program Balance;

uses
 Forms,
 uMain in 'uMain.pas' {fmBalance},
 uDm in 'uDm.pas' {dm: TDataModule},
 uConstants in 'Units\uConstants.pas',
 uMyUnit in 'Units\uMyUnit.pas',
 uSplash in 'uSplash.pas' {fmSplash},
 SysUtils,
 IniFiles,
 uDbs in 'Units\uDbs.pas',
 Windows,
 uLogin in 'uLogin.pas' {fmLogin},
 uDialog in 'uDialog.pas' {fmDialog},
 uMessage in 'uMessage.pas' {fmMessage},
 uCard in 'uCard.pas' {fmCard},
 uHandBook in 'uHandBook.pas' {fmHandBook};

{$R *.res}

var
 HM: THandle;
 fmSplash: TfmSplash;
 fmLogin: TfmLogin;
 Rec: TLogin;

{ Ïðîâåðêà çàïóùåííîé êîïèè ïðîãðàììû. }
function CheckOpenProgram: Boolean;
begin
 HM := OpenMutex(MUTEX_ALL_ACCESS, False, 'TfmBalance');
 Result := (HM <> 0);
 if HM = 0 then
   HM := CreateMutex(nil, False, 'TfmBalance');
end;

begin
 { &#207;&#240;&#238;&#226;&#229;&#240;&#234;&#224; &#231;&#224;&#239;&#243;&#249;&#229;&#237;&#237;&#238;&#233; &#234;&#238;&#239;&#232;&#232; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#251;. }
 if CheckOpenProgram then
   Exit;
 { &#200;&#237;&#232;&#246;&#232;&#224;&#235;&#232;&#231;&#224;&#246;&#232;&#255; &#239;&#240;&#232;&#235;&#238;&#230;&#229;&#237;&#232;&#255;. }
 Application.Initialize;
 Application.CreateForm(TfmBalance, fmBalance);
 fmBalance.Hide;
 fmSplash := TfmSplash.Create(nil);
 with fmSplash do
   try
     Show;
     lbText.Caption := 'Ïîäêëþ÷åíèå ìîäóëÿ äàííûõ...';
     Refresh;
     Application.CreateForm(Tdm, dm);
     lbText.Caption := 'Ïåðåäà÷à ñòðîêè ñîåäèíåíèÿ ñ ÁÄ...';
     Refresh;
     dm.Connection.ConnectionString := 'FILE NAME=' + GetPathUdlFile;
     lbText.Caption := 'Óñòàíîâêà ñîåäèíåíèÿ ñ ÁÄ...';
     Refresh;
     if OpenConnection(dm.Connection) then
       begin
         lbText.Caption := 'Àâòîðèçàöèÿ...';
         Refresh;
         Rec.ShowType := slBegin;
         if CreateLogin(Application, Rec) then
           begin
             //
           end
         else
           begin
             //Application.Terminate;
           end;
       end
     else
       begin
         //Application.Terminate;
       end;
   finally
     Free;
   end;
 Application.Run;
end.

CreateWindowEx