■■■■ 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; |