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
|
program MakeLink;
uses
Strings,
Windows,
WinShell;
procedure ReadFailure;
begin
Writeln('Reading of config file failed');
Halt(1);
end;
var
DesktopPath : PChar;
Line,
Typ : String;
ExeName,
LinkName,
IconName,
Comment,
WorkingDir : Array [0..MAX_PATH] of char;
f : text;
begin
DesktopPath := StrAlloc (MAX_PATH);
{ How could we know if the installer as access to global
desktop dir ?? }
GetDesktopFolder (true, DesktopPath);
if (ParamCount=2) and (ParamStr(1)='-F') then
begin
Assign(f,ParamStr(2));
Reset(f);
if IOResult<>0 then
ReadFailure;
while not eof(f) do
begin
readln(f,line);
typ:=copy(line,1,pos('=',line)-1);
line:=copy(line,pos('=',line)+1,high(line));
if typ='ExePath' then
StrPCopy(ExeName,Line);
if typ='LinkName' then
StrPCopy(LinkName,Line);
if typ='IconPath' then
StrPCopy(IconName,Line);
if typ='Comment' then
StrPCopy(Comment,Line);
if typ='WorkingDir' then
StrPCopy(WorkingDir,Line);
end;
end;
StrCat (DesktopPath, '\');
StrCat (DesktopPath,LinkName);
CreateShortcut (DesktopPath,
ExeName,
nil,
WorkingDir,
Comment,
IconName,
0);
StrDispose (DesktopPath);
end.
|
