Login | ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/musikbox/trunk/Musikbox.dpr
Revision: 2
Committed: Sat Nov 10 16:57:29 2018 UTC (22 months, 2 weeks ago) by daniel-marschall
File size: 724 byte(s)
Log Message:
Released source code of version 1.5 (20 February 2007) into SVN

File Contents

# Content
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.