Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Не дать запустить 2-ую копию приложения

Автор: santilaas 23.5.2006, 05:17

Люди добрые, выручайте!
Нужно сделать, чтобы пользователь не смог запустить вторую копию приложения
Я делаю так (по Delphi World6):
............................

Код


program aaaaa;

uses
  Forms,
  Windows,
  Main in 'Main.pas' {FMain},
  DataModule in 'DataModule.pas' {DM: TDataModule},
  Connect in 'Connect.pas' {FConnect}

{$R *.res}

var
  hwnd: THandle;

begin
  hwnd:= FindWindow('TFMain', 'FMain');
  if hwnd = 0 then
     begin
       Application.Initialize;
       Application.CreateForm(TFMain, FMain);
       Application.CreateForm(TFConnect, FConnect);
       Application.CreateForm(TDM, DM);
       Application.Run;
     end
  else
     SetForegroundWindow(hwnd)
end.

............................
- сама прога работает, но открыть можно сколько угодно exe-файлов. Что не так?

Автор: Alex 23.5.2006, 06:51

http://forum.vingrad.ru/index.php?showtopic=77216&view=findpost&p=665954