تشخیص اینکهاین برنامه در حال اجراست

[بهروز عباسی]

درود به شما برنامه نویسهای گل:لبخند:

میخواستم با استفاده از مسیرونام فایلexe تشخیص بدم که این برنامه در حال حاضر در حال اجراست یا...:متفکر:

واینکه اگر در حال اجرا بود چطوری اونو ببندم اگه سیستمی بود و بسته نشد باپیغام مناسب به کاربر اطلاع بده.:متفکر:

[سعید صابری]

Findwindow را جستجو کنید در سایت

[بهروز عباسی]

Findwindow را جستجو کنید در سایت

ممنون از کمک اما اگه برنامه بصورت مخفی هم اجرا بشه جواب میده
واینکه من فقط ادرس و نام فایل رو دارم نه عنوان پنجره هارو.

[Mask]

اسم فایل رو در پروسه های در حال اجرا چک کنید. برای این کار میتونید از کامپوننت آقای کشاورز به نام Proceinfo استفاده کنید.

[بهروز عباسی]

اسم فایل رو در پروسه های در حال اجرا چک کنید. برای این کار میتونید از کامپوننت آقای کشاورز به نام Proceinfo استفاده کنید.

ممنون از کمک
میشه لینک دانلودش رو بذارید

[Mask]

از این لینک وارد سایت میشید و دانلود کنید. (http://vcldeveloper.com/products/products-components/process-info/)

[بهروز عباسی]

درود اینو پیدا کردم شاید بدرد کسی بخوره

کار منو که را انداخت
{+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+}
function Tfrm_Main.processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
{+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+}