چطور میشه‌ وجود یك فایل در پروسیسر جیك كرد

[akar_program]

باسلام دوستان من میخواهم بدونم میشه‌ جیك كنم برنامه‌ی اجراشوده‌ یا خیر
میخواهم اجرا شودن یك فایل بدانم اگر اجرا شود من یك كار انجام بدم مسلن یك مساج نیشون بدم

[loo30fer]

function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then Exit;
HFileRes := CreateFile(PChar(FileName),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_N ORMAL,0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsFileInUse('C:\Project1.exe') then
ShowMessage('File is in use.')
else
ShowMessage('File not in use.');
end;