-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathUOS.dpr
43 lines (38 loc) · 1.04 KB
/
UOS.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
program UOS;
uses
Vcl.Forms,
uUOS in 'uUOS.pas' {Form1} ,
Vcl.Themes,
Vcl.Styles,
System.IniFiles,
System.SysUtils,
uThreadLocator in 'uThreadLocator.pas',
uThreadReplacer in 'uThreadReplacer.pas',
uFuncCompartidas in 'uFuncCompartidas.pas',
uThreadChecker in 'uThreadChecker.pas',
uAddToList in 'uAddToList.pas' {Form2} ,
ABOUT in 'ABOUT.pas' {AboutBox} ,
uListaGuardada in 'uListaGuardada.pas' {Form3} ,
uIdiomas in 'uIdiomas.pas';
{$R *.res}
{$R Anotador.res}
{$R Idiomas.res}
var
Opt: TIniFile;
begin
Application.Initialize;
Application.MainFormOnTaskbar:= True;
Opt:= TIniFile.Create(GetEnvironmentVariable('TEMP') + '\UOS.ini');
Try
Skin:= Opt.ReadString('UOS', 'Skin', 'Smokey Quartz Kamri');
Finally
Opt.Free;
End;
TStyleManager.TrySetStyle(Skin);
// TStyleManager.TrySetStyle('Smokey Quartz Kamri');
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.