Subversion Repositories musikbox

Rev

Blame | Last modification | View Log | RSS feed

  1. program Musikbox;
  2.  
  3. {$Description 'ViaThinkSoft MusikBox 1.5'}
  4.  
  5. uses
  6.   Forms,
  7.   Windows,
  8.   Dialogs,
  9.   Main in 'Main.pas' {MainForm},
  10.   Info in 'Info.pas' {InfoForm},
  11.   Config in 'Config.pas' {ConfigForm};
  12.  
  13. {$R *.res}
  14.  
  15. var
  16.   mHandle: THandle;
  17.  
  18. begin
  19.   mHandle := CreateMutex(Nil, True, 'ViaThinkSoft MusikBox');
  20.   if GetLastError = ERROR_ALREADY_EXISTS then
  21.     ShowMessage('Programm läuft bereits!');
  22.   if mHandle <> 0 Then
  23.     CloseHandle(mHandle);
  24.  
  25.   Application.Initialize;
  26.   Application.Title := 'ViaThinkSoft MusikBox';
  27.   Application.CreateForm(TMainForm, MainForm);
  28.   Application.CreateForm(TInfoForm, InfoForm);
  29.   Application.CreateForm(TConfigForm, ConfigForm);
  30.   Application.Run;
  31. end.
  32.