Как узнать - запущен ли определенный процесс ?

[12usver12]

Как мне узнать запущен ли процесс winamp.exe ?

[Квэнди]

var
handle_winamp:hwnd;
begin
handle_winamp:=findwindow('Winamp v1.x',nil);
if handle_winamp<>0 then 
   showmessage('Winamp запущен!')
else
   showmessage('Winamp не запущен!');
end;

[12usver12]

неа чото не хочет

[Трофимов Александр]

А если просто найти процесс winamp , а то может версия у него другая winampa стоит? Программа то ругается на что-то или процесс не находит?

[Сильванович Михаил]

PFindWindowStruct = ^TFindWindowStruct;
TFindWindowStruct = record
    Caption: string;
    ClassName: string;
    WindowHandle: THandle;
end;

function EnumWindowsProc(hWindow: hWnd; lParam: LongInt): Bool; stdcall; 
var 
  lpBuffer: PChar; 
  WindowCaptionFound: bool; 
  ClassNameFound: bool; 
begin 
  GetMem(lpBuffer, 255); 
  Result := True; 
  WindowCaptionFound := False; 
  ClassNameFound := False; 
  try 
    if GetWindowText(hWindow, lpBuffer, 255) > 0 then
      if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0 then WindowCaptionFound := true;
    if PFindWindowStruct(lParam).ClassName = '' then 
      ClassNameFound := True 
    else if GetClassName(hWindow, lpBuffer, 255) > 0 then 
      if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) > 0 then ClassNameFound := True; 
    if (WindowCaptionFound and ClassNameFound) then 
      begin 
        PFindWindowStruct(lParam).WindowHandle := hWindow; 
        Result := False; 
      end; 
  finally 
    FreeMem(lpBuffer, sizeof(lpBuffer^)); 
  end; 
end; 

function FindAWindow(Caption: string; ClassName: string): THandle;
//Находит окошко по неполному названию т.е., например, FindAWindow('winamp','')
//где я ее выкопал не помню...
var WindowInfo: TFindWindowStruct;
begin 
  WindowInfo.Caption := Caption; 
  WindowInfo.ClassName := ClassName; 
  WindowInfo.WindowHandle := 0; 
  EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
  FindAWindow := WindowInfo.WindowHandle; 
end;

[Var17]

Сообщение от Сильванович Михаил

 
function FindAWindow(Caption: string; ClassName: string): THandle;
//Находит окошко по неполному названию т.е., например, FindAWindow('winamp','')
//где я ее выкопал не помню...
var WindowInfo: TFindWindowStruct;
begin 
  WindowInfo.Caption := Caption; 
  WindowInfo.ClassName := ClassName; 
  WindowInfo.WindowHandle := 0; 
  EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
  FindAWindow := WindowInfo.WindowHandle; 
end;

И как определить нашла функция окно или нет ?

[Ozerich]

Человек ведь попросил как узнать запущен ли ПРОЦЕСС?

Function IsProcesssRun(processname:string):boolean;
var Snapshot:Thandle;
proc:TprocessEntry32;
begin
result:=false;
Snapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if snapshot=INVALID_HANDLE_VALUE then exit;
proc.dwSize:=sizeof(TprocessEntry32);
if Process32First(snapshot,proc) then
repeat
if proc.szExeFile=processname then
begin
  result:=true;
  break;
end;
until not process32next(snapshot,proc);
closehandle(snapshot);
end;

подключить модуль TLHELP32.

Писал здесь так что могут быть ошибки

[Terran]

Сообщение от Var17

И как определить нашла функция окно или нет ?

Если эта функция нашла нужное окно, то она возвращает хендел найденого окна. Это видно в этой строчке:

FindAWindow := WindowInfo.WindowHandle;

А если окно не найдено, то хендл будет равным нулю. Вы можете её проверить так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=IntToStr(FindAWindow('Delphi',''));
End;

[Ozerich]

Var17 просил узнать запущен ли процесс.А вы иму даёте функции которые проверяют запущено ли окно.

[Terran]

Сообщение от Ozerich

Var17 просил узнать запущен ли процесс.А вы иму даёте функции которые проверяют запущено ли окно.

Может я конечно ошибаюсь, но в этой строчке

И как определить нашла функция окно или нет ?

он спрашивает про поиск окна и у него приведена цитата именно той функции, которая ищит окна...