اعلام وصول از RUN بودن یک پروسه ؟

[vatal]

با عرض سلام خدمت دوستان
به چه شکل میشه فهمید که یک پروسه یا یک فایل در حال اجراست ؟

با تشکر : VATAL :P

[Delphi-Clinic]

سلام



var
Proc : TProcessEntry32;
Snap : THandle;
...

Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
Proc.dwSize := SizeOf(TProcessEntry32);
Process32First(Snap,Proc);
repeat
// add into list...
until (not Process32Next(Snap,Proc));

[Delphi-Clinic]

سلام

برداشت دوم من از سوال شما:



var
MyWnd : Thandle;


procedure TMyForm.WndLookup(WndTitle: string);
begin
MyWnd:=FindWindow(nil, PChar(WndTitle));
//If the call succeeds MyWnd will hold the handle to the app,
//if it does'nt succeds MyWnd will be '0'.

if MyWnd=0 then
ShowMessage(MyWnd+' dose'nt appear to be RUNNING')
else
ShowMessage(MyWnd+' are RUNNING')
end;

[vatal]

با تشکر از شما جناب Delphi_Clinic

من میخوام در واقع از برنامه ای که به فرض تو Delphi نوشته شده ... بوسیله اون

بفهمم که فلان فایل یا یک پروسه بخصوص وضعیتش از لحاظ Run بودن به چه شکل هست ! :?:

از کمکی که به من میکنین ممنونم !

با تشکر :VATAL :wink:

[Delphi-Clinic]

سلام
فکر کنم حواب شما در راه حل دوم داده شده است.

[vatal]

با سلام :oops:
خیلی ممنون ........... :wink:

راه حل دوم شما عالی بود :تشویق: :flower:

با تشکر :VATAL

[vatal]

با سلام :oops:
جناب Delphi_Clinic این کد برای اکثر پروسه ها کار نمیکنه !
و شاید هم من نتونستم :cry:
اگه میشه در این مورد هم کمک کنننننننننننننننننننننننی د 8)