چگونه متوجه بشویم برنامه ای در حال اجراست یا خیر؟

[yaas135]

سلام
قبلا هم این سوال رو طرح کرده بودم و جناب مصطفی سرباز زاده زحمت کشیدید و یک برنامه بهم دادن.
اما چون از کامپوننتهای ویژوال درش استفاده شده بود و من میخواستم از این برنامه در سرویس استفاده کنم عملا برام کارآیی نداشت.
اما سوال اصلی اینه که من چطور می تونم متوجه بشم، فلان برنامه در حال حاضر روی سیستم در حال اجراست یا خیر؟

ممنونم از لطفتون
یا علی

[m-khorsandi]

جستجو کنید.

[yaas135]

کرده ایم ما!!!

[m-khorsandi]

خوب نگشتی،
http://www.barnamenevis.org/sh...ad.php?t=11381

[Touska]

میتونی اون کدی رو که من به هت دادم رو تو یک لیست پیوند add کنی و استفاده کنی

به جای ریختن تو listview عزیز.

[MiRHaDi]

سلام
از findwindow استفاده کن
بای

[Hamid_PaK]

دوست عزیز از روی اسم EXE از لیست پراسس ها می تونید متوجه شوید آیا اجرا هست یا نه !

function GetProcessList:TStringList;

var

  conn:bool;

  aProcHand:THandle;

  miProcess:TProcessEntry32;

  miList:TStringList;

begin

  miList := TStringList.Create;

  aProcHand := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

  miProcess.dwSize := SizeOf(miProcess);

  conn := Process32First(aProcHand,miProcess);

  while integer(conn)<>0 do begin

    miList.Add(miProcess.szExeFile);

    conn := Process32Next(aProcHand,miProcess);

  end;

  CloseHandle(aProcHand);

  Result := miList;

end;

یا حق ...