forked from PascalCoinDev/PascalCoin
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathPascalCoinWallet.dpr
More file actions
34 lines (29 loc) · 785 Bytes
/
PascalCoinWallet.dpr
File metadata and controls
34 lines (29 loc) · 785 Bytes
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
program PascalCoinWallet;
{$mode delphi}
uses
{$IFDEF LINUX}cthreads,{$ENDIF}
Interfaces,
sysutils,
UOpenSSL,
UCrypto,
Forms,
UUserInterface,
UFRMMainForm;
{$R *.res}
var
mainForm : TFRMMainForm;
begin
// Start OpenSSL dll
if Not LoadSSLCrypt then
raise Exception.Create('Cannot load '+SSL_C_LIB+#10+'To use this software make sure this file is available on you system or reinstall the application');
TCrypto.InitCrypto;
// Load application
Application.Initialize;
{$IFDEF WINDOWS}{$Warnings OFF}
Application.MainFormOnTaskBar := True;
{$Warnings ON}{$ENDIF}
Application.Title := 'Pascal Coin Wallet, Miner & Explorer';
Application.CreateForm(TFRMMainForm, mainForm);
TUserInterface.StartApplication(mainForm);
Application.Run;
end.