Как не допустить запуск второй копии программы 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]