掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定したexeが起動しているかの判別方法 (ID：8845)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
もっと簡単に、これではダメかにゃ〜？ function IsFileOccupied(FileName: TFileName): Boolean; var hFileRes : HFILE; begin result := False; hFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); result := (hFileRes = INVALID_HANDLE_VALUE); if not result then CloseHandle(hFileRes); end; procedure TForm1.Button1Click(Sender: TObject); begin if IsFileOccupied('C:\Windows\Notepad.exe') then begin ShowMessage('使ってるにゃ〜'); end else begin ShowMessage('使っていないにゃ〜'); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.