exeName = 'MYPROG.EXE';

 

 fWnd:hwnd;

 

 

function GetModuleFileNameExW(hProcess:THandle; hModule:HMODULE; lpFilename:PWideChar; nSize:DWORD):DWORD; stdcall; external 'PSAPI.DLL'

 

function WindowGetEXE(wnd:HWND):string; // для Win2K/XP. В Win9x нужно юзать GetWindowModuleFileName

 wt:array[0..MAX_PATH-1] of WChar;

 prc:THandle;

 prcID:cardinal;

 result:='';

 if GetWindowThreadProcessID(wnd,prcID)<>0 then

 begin

  prc:=OpenProcess(PROCESS_ALL_ACCESS,false,prcID);

  if prc<>0 then

  try

    if GetModuleFileNameExW(prc,0,wt,MAX_PATH*2)<>0 then result:=wt

  finally

   CloseHandle(prc)

  end

 end

end;

 

function EnumWindowsProc(wnd:HWND; lParam: LPARAM):BOOL; stdcall;

 result:=true;

 if IsWindowVisible(wnd) and (GetParent(wnd)=0) and

 (wnd<>Application.Handle) and (wnd<>Form1.Handle) // проверка, что окно не твое собственное.

 and

 (UpperCase(ExtractFileName(WindowGetEXE(wnd)))=exeName) then

 begin

   fWnd:=wnd;

   result:=false

 end

end;

 

procedure TForm1.Button1Click(Sender: TObject);

 fWnd:=0;

 EnumWindows(@EnumWindowsProc,0);

 if fWnd=0 then ShowMessage('Not found') else ShowMessage('Found window '+IntToStr(fWnd))

end;