■■■■ Delphi から他のプログラムを起動する方法 ■■■■

送信者:富中



Unit Executil.Pas をプロジェクトの追加し、 以下の行を書き加える。

use 節に ShellAPI

procedure TFormTG.ExeWait(cmd:string;ACmdShow : integer);
var
handle:THandle;
x,y,w,h:integer;
begin
handle:=WinExecForMulti(cmd,'',ACmdShow);
WaitForAppl(handle);
ReleaseHandle(handle);
end;