Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление приложением



Вернуться к списку функций
 Предотвращение запуска второй копии приложения

 Прислал: easy (Мурманск) ( 26 апреля 2002 г. )
©  автор неизвестен
 Зависимости:
Windows

 Ограничения:
Функция проверяет наличие окна с текстом заголовка как у текущей (возможны конфликты имен)

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Предотвращение запуска второй копии приложения

Зависимости: Windows
Автор:       easy, easy98ru@yandex.ru, Мурманск
Copyright:   автор неизвестен
Дата:        26 апреля 2002 г.
***************************************************************** }

procedure TForm1.FormCreate(Sender: TObject);
var
  Wnd : hWnd; buff : ARRAY[0.. 127] OF Char;
begin
  Wnd := GetWindow(Handle, gw_HWndFirst);
  WHILE Wnd <> 0 DO
  begin
    IF (Wnd <> Application.Handle) AND (GetWindow(Wnd, gw_Owner) = 0) THEN
      begin GetWindowText (Wnd, buff, sizeof (buff ));
        IF StrPas (buff) = Application.Title THEN
          begin
           Application.Terminate;
          end;
      end;
    Wnd := GetWindow (Wnd, gw_hWndNext);
  end;
end;


Вернуться к списку функций

Наверх ▲