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
67
68
69
70
71
72
|
unit mainform;
{$mode objfpc}{$H+}
interface
uses
SysUtils, Forms, StdCtrls, EditBtn, LCLIntf;
type
{ TForm1 }
TForm1 = class(TForm)
btnOpenURLHTTP: TButton;
btnOpenURLFILE: TButton;
btnOpenDocument: TButton;
btnFindBrowser: TButton;
editResult: TEdit;
editFileName: TFileNameEdit;
Label1: TLabel;
Label2: TLabel;
procedure btnFindBrowserClick(Sender: TObject);
procedure btnOpenDocumentClick(Sender: TObject);
procedure btnOpenURLHTTPClick(Sender: TObject);
procedure btnOpenURLFILEClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.btnFindBrowserClick(Sender: TObject);
var
lStr, lParams: String;
begin
FindDefaultBrowser(lStr, lParams);
editResult.Text := lStr + ' ' + lParams;
end;
procedure TForm1.btnOpenURLHTTPClick(Sender: TObject);
begin
if editFileName.Text = '' then
editFileName.Text := 'www.google.com';
editResult.Text := BoolToStr(OpenURL(editFileName.Text), true);
end;
procedure TForm1.btnOpenDocumentClick(Sender: TObject);
begin
if editFileName.Text = '' then
editFileName.Text := 'mainform.pas';
editResult.Text := BoolToStr(OpenDocument(editFilename.Text), true);
end;
procedure TForm1.btnOpenURLFILEClick(Sender: TObject);
begin
if editFileName.Text = '' then
editFileName.Text := ExpandFileName('./mainform.pas');
editResult.Text := BoolToStr(OpenURL('file://'+editFilename.Text), true);
end;
end.
|
