-
Notifications
You must be signed in to change notification settings - Fork 1
/
WinPrint.dpr
66 lines (58 loc) · 3.4 KB
/
WinPrint.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
{******************************************************************************}
{ }
{ WinPrint - Print Spooler for DOS Programs }
{ }
{ Copyright (C) 2004 Przemyslaw Czerkas <[email protected]> }
{ 2008 Mieczyslaw Nalewaj <[email protected]> }
{ See GPL.TXT for copyright and license details. }
{ }
{******************************************************************************}
{******************************************************************************}
{ }
{ This file is part of WinPrint. }
{ }
{ WinPrint is free software; you can redistribute it and/or modify }
{ it under the terms of the GNU General Public License as published by }
{ the Free Software Foundation; either version 2 of the License, or }
{ (at your option) any later version. }
{ }
{ WinPrint is distributed in the hope that it will be useful, }
{ but WITHOUT ANY WARRANTY; without even the implied warranty of }
{ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the }
{ GNU General Public License for more details. }
{ }
{ You should have received a copy of the GNU General Public License }
{ along with WinPrint; if not, write to the Free Software }
{ Foundation, Inc., 59 Temple Place, Suite 330, Boston, }
{ MA 02111-1307 USA }
{ }
{******************************************************************************}
program WinPrint;
{$R 'resources\icons32x32\icons.res' 'resources\icons32x32\icons.rc'}
{$R 'resources\stringtables.res' 'resources\stringtables.rc'}
uses
Forms,
Windows,
//Misc Components sources
MyStrings in 'source\auxiliary\MyStrings.pas',
NumEdit in 'source\auxiliary\NumEdit.pas',
TrayIcon in 'source\auxiliary\TrayIcon.pas',
CEVersionInfo in 'source\auxiliary\CEVersionInfo.pas',
SetString in 'source\auxiliary\SetString.pas',
//WinPrint sources
MainFormUnit in 'source\MainFormUnit.pas' {MainForm},
ConfigFormUnit in 'source\ConfigFormUnit.pas' {ConfigForm},
PrintStringsUnit in 'source\PrintStringsUnit.pas',
ConversionUnit in 'source\ConversionUnit.pas';
{$R *.res}
begin
Application.Initialize;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); //prevents flickering
Application.ShowMainForm:=false;
Application.Title := 'WinPrint';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TConfigForm, ConfigForm);
MainForm.LoadLang;
ConfigForm.LoadLang;
Application.Run;
end.