Советы по Delphi


              

Как не допустить запуск второй


Как не допустить запуск второй копии программы IV Пришло от читателя письмо:

Здравствуйте Валентин.

Решил предложить Вам еще один вариант "Как не допустить запуск второй копии программы". Может кому и подойдет...

В этом случае необходимо быть уверенным, что в системе больше нет окон с именем "TForm1" - В.О.

    program Project1;

uses
Forms, Windows, Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}

var
hwnd: THandle;
begin
hwnd := FindWindow('TForm1', 'Form1'); if hwnd = 0 then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else SetForegroundWindow(hwnd) end.
Васильев Сергей, vs2000@mail.ru [000750]


Содержание  Назад  Вперед