ネットワークファイルのタイムアウトについて (ID:29650)

名前

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

本文 こうすれば if FileExistTimeOut(FileName,TimeOut) = True then begin end; みたくできるかな Application.ProcessMessages; は 無い方がいいのかな？ function FileExistTimeOut(const FileName:String;TimeOut:Integer=3000):Boolean; var FileExistsThread : TFileExistsThread; TC : Cardinal; begin FileExistsThread := TFileExistsThread.Create(True); FileExistsThread.FreeOnTerminate := False; FileExistsThread.FileName := FileName; FileExistsThread.Resume; TC := GetTickCount; while (FileExistsThread.Terminated = False) and (GetTickCount - TC < TimeOut) do begin //Application.ProcessMessages; end; case FileExistsThread.Result of -1://タイムアウト begin TerminateThread(FileExistsThread.Handle,0); Result := False; end; 0:Result := True; 1:Result := False; end; FileExistsThread.Free; end;