-
Notifications
You must be signed in to change notification settings - Fork 5
/
screenur.lpr
43 lines (38 loc) · 1.01 KB
/
screenur.lpr
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
program screenur;
{$mode objfpc}{$H+}
{$define UseCThreads}
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
cthreads,
cmem, {$ENDIF} {$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, {$IFDEF WINDOWS}
Windows, {$ENDIF}
uMain,
uModal,
uSettings,
uHistory,
indylaz,
uniqueinstance_package;
{$R *.res}
{$IFDEF WINDOWS}
var
Ex: Long;
{$ENDIF}
begin
//RequireDerivedFormResource := True;
Application.Initialize;
{$IFDEF WINDOWS}
Ex := GetWindowLong(FindWindow(nil, 'screenur'), GWL_EXSTYLE);
SetWindowLong(FindWindow(nil, 'screenur'), GWL_EXSTYLE, Ex or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
{$ENDIF}
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TModalForm, ModalForm);
Application.CreateForm(TSettingsForm, SettingsForm);
Application.CreateForm(THistoryForm, HistoryForm);
MainForm.ShowInTaskBar := stNever;
ModalForm.ShowInTaskBar := stNever;
SettingsForm.ShowInTaskBar := stNever;
HistoryForm.ShowInTaskBar := stNever;
Application.Run;
end.