文が発音されない時があるのですが？？ (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;

←解決時は質問者本人がここをチェックしてください。

戻る