Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 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. |