掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ShellExecuteExがIDE実行で中断する (ID:25605)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
皆様お世話になります。 ShellExecuteExで、IDEで実行するとCPUのデバック表示！？で、一旦中断 されます。(この表示が出ても何がなんだか・・・) 再度、実行ボタンをクリックして継続すると、目的のプログラムは起動 するのですが、何か気持ち悪いです。 function AppRun(strFileName:String; ObjFrmHwnd :THandle):THandle; var ShellExecuteInfo: TShellExecuteInfo; begin FillChar(ShellExecuteInfo, SizeOf(TShellExecuteInfo), 0); with ShellExecuteInfo do begin cbSize := SizeOf(TShellExecuteInfo); fMask := SEE_MASK_NOCLOSEPROCESS; wnd := ObjFrmHwnd;//MainフォームでのSelf.Handle lpVerb := 'OPEN'; lpFile := PChar(strFileName);//フルパス lpParameters := ''; lpDirectory := ''; nShow := SW_SHOWNORMAL; hInstApp := 0; lpIDList := nil; lpClass := nil; hkeyClass := 0; dwHotKey := 0; hIcon := 0; end; if ShellExecuteEx(@ShellExecuteInfo) then begin Result := ShellExecuteInfo.hProcess; end else begin Result := 0; end; end; 何か、私が間違ってるのでしょうか？ ちなみに、D2006ENT、WinXP SP2 です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.