文が発音されない時があるのですが？？ (ID:49826)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ネットで検索すると、X-RAYさんのHPに行けて下記のように変更しました. しかし、コンパイルすると、 GetExitCodeProcess(PI.hProcess, Result); の行でタイプが一致しないといけないとかのエラーが出ます。 IF分より上はマネしてないのですが、そこが問題でしょうか？？ procedure TForm1.JSpeak(WD:string); var s:string; result:integer; //boolean; Si: TStartupInfo; PI: TProcessInformation; begin Bunput(WD); application.ProcessMessages; s := 'c:\英文練\JapaneseSpeakB.exe'; FillChar(SI, SizeOf(SI), #0); SI.cb := SizeOf(SI); SI.dwFlags := STARTF_USESHOWWINDOW; SI.wShowWindow := 1; if CreateProcess(PChar(s),nil,nil,nil,False, CREATE_DEFAULT_ERROR_MODE,nil,nil,SI, PI)=false then begin Result := WAIT_FAILED else begin //起動したプロセスが終了するまで待つ while WaitForSingleObject(PI.hProcess, 100) = WAIT_TIMEOUT do Application.ProcessMessages; GetExitCodeProcess(PI.hProcess, Result); CloseHandle(PI.hProcess); CloseHandle(PI.hThread); end; // Res := CreateProcess(PChar(s),nil,nil,nil,False, // CREATE_DEFAULT_ERROR_MODE,nil,nil,SI, PI); end;