8 |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, |
9 |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, |
10 |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, |
11 |
Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, |
Winspool, ShellApi, ClipBrd, Buttons, wininet, |
12 |
UITypes, |
UITypes, |
13 |
PakkeshopLabels, |
PakkeshopLabels, |
14 |
StBarC, |
StBarC, |
101 |
function retRutenummer(rutenummer : String) : String; |
function retRutenummer(rutenummer : String) : String; |
102 |
function GetCurrentPrinterHandle() : THandle; |
function GetCurrentPrinterHandle() : THandle; |
103 |
function SavePChar(p: PChar): PChar; |
function SavePChar(p: PChar): PChar; |
104 |
function AdobeReaderExists(): Boolean; |
|
105 |
function FileTime2DateTime(FileTime: TFileTime): TDateTime; |
function FileTime2DateTime(FileTime: TFileTime): TDateTime; |
106 |
function CheckUrl(url:string):boolean; |
function CheckUrl(url:string):boolean; |
107 |
|
|
3419 |
|
|
3420 |
if FileExists(fileName) then |
if FileExists(fileName) then |
3421 |
begin |
begin |
3422 |
if AdobeReaderExists then |
if TUtils.AdobeReaderExists then |
3423 |
begin |
begin |
3424 |
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); |
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); |
3425 |
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); |
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); |
3443 |
|
|
3444 |
if FileExists(fileName) then |
if FileExists(fileName) then |
3445 |
begin |
begin |
3446 |
if AdobeReaderExists then |
if TUtils.AdobeReaderExists then |
3447 |
begin |
begin |
3448 |
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); |
//ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); |
3449 |
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); |
ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); |
4516 |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
XForm, XFormOld: TXForm; //Bruges til rotate X-formation |
4517 |
Angle: integer; |
Angle: integer; |
4518 |
gMode: integer; |
gMode: integer; |
|
BarcodeArea: TRect; |
|
4519 |
Dirigering: string; |
Dirigering: string; |
4520 |
|
|
4521 |
begin |
begin |
5361 |
end; |
end; |
5362 |
end; |
end; |
5363 |
|
|
5364 |
function TMainForm.AdobeReaderExists: Boolean; |
|
|
var |
|
|
AReg: TRegistry; |
|
|
begin |
|
|
result:= false; |
|
|
AReg := TRegistry.Create; |
|
|
AReg.RootKey := HKEY_LOCAL_MACHINE; |
|
|
if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then |
|
|
result:= True; |
|
|
AReg.Free; |
|
|
end; |
|
5365 |
|
|
5366 |
|
|
5367 |
function TMainForm.CheckUrl(url:string):boolean; |
function TMainForm.CheckUrl(url:string):boolean; |