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


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

Поиск по базе



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

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

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



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

 Прислал: ALFA ( 13 мая 2002 г. )
©  см. предыдущее (доработка)
 Описание:
Доработка предыдущего кода с активизацией приложения

 Зависимости:
Windows

 Ограничения:
Delphi 5+

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

Доработка предыдущего кода с активизацией приложения

Зависимости: Windows
Автор:       ALFA, muve@narod.ru
Copyright:   см. предыдущее (доработка)
Дата:        13 мая 2002 г.
***************************************************************** }

procedure TForm1.FormCreate(Sender: TObject);
var
  Wnd,ggg : 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
           SetForegroundWindow(wnd);
           ShowWindow(wnd,SW_SHOWNORMAL);
           Halt;
          end;
      end;
    Wnd := GetWindow (Wnd, gw_hWndNext);
  end;
end;


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

Наверх ▲