WindowsXPまでは、下記のようなコードで既定のメールソフトが起動できま
した。ところがWindows7にしてから起動しなくなりました。何かこの辺変わっ
たのでしょうか?
var
bo : boolean;
Si: TStartupInfo;
Pi: TProcessInformation;
begin
GetStartupInfo(Si);
bo := CreateProcess(nil,
PChar(GetMailer),
nil,
nil,
False,
CREATE_DEFAULT_ERROR_MODE,
nil,
nil,
SI,
PI);
if bo = false then MessageDlg('メーラの起動に失敗しました。',mtError,[mbOk],0);
|