Delphi Проверить Запущена Ли Программа

Для проверки того, запущена ли программа на Delphi, можно воспользоваться функцией FindWindow. Она ищет окно, соответствующее указанным параметрам класса и заголовка, и возвращает его идентификатор. Если окно не найдено, то функция вернет 0. Вот пример использования функции FindWindow:

var  WindowHandle: HWND;begin  WindowHandle := FindWindow(nil, 'Название окна');  if (WindowHandle <> 0) then    ShowMessage('Программа запущена!')  else    ShowMessage('Программа не запущена!');end;

В этом примере мы ищем окно по его заголовку и выводим сообщение, что программа запущена или не запущена, в зависимости от результата поиска.Также можно воспользоваться функцией EnumWindows, чтобы получить список всех открытых окон и проверить, есть ли среди них наше окно. Вот пример использования функции EnumWindows:

function EnumWindowsProc(WindowHandle: HWND; lParam: LPARAM): BOOL; stdcall;var  ClassName: array[0..255] of Char;begin  GetClassName(WindowHandle, ClassName, SizeOf(ClassName));  if (StrComp(ClassName, 'ClassName') = 0) then  begin    PBoolean(lParam)^ := True;    Result := False;  end  else    Result := True;end;var  Found: Boolean;begin  Found := False;  EnumWindows(@EnumWindowsProc, LPARAM(@Found));  if (Found) then    ShowMessage('Программа запущена!')  else    ShowMessage('Программа не запущена!');end;

В этом примере мы ищем окно по его классу и также выводим сообщение, что программа запущена или не запущена, в зависимости от результата поиска.