blob: fe47f622e86c23a01b25f754235c8e7ebab707c5 (
plain)
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
{
This file is part of the Free Pascal run time library.
A file in Amiga system run time library.
Copyright (c) 1998-2003 by Nils Sjoholm
member of the Amiga RTL development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
The boolean IsConsole is in system.
Just check the value of system.IsConsole
or just IsConsole, if it is false then you
started from workbench.
Added the define use_amiga_smartlink.
13 Jan 2003.
Changed integer > smallint.
10 Feb 2003.
nils.sjoholm@mailbox.swipnet.se Nils Sjoholm
}
{$I useamigasmartlink.inc}
{$ifdef use_amiga_smartlink}
{$smartlink on}
{$endif use_amiga_smartlink}
unit WBArgs;
interface
uses workbench,amigados;
function GetStartupMsg: pWBStartup;
function ProgramName: string;
function WBArgCount: smallint;
function GetWBArg(num : smallint): STRING;
implementation
function GetStartupMsg: pWBStartup;
begin
if system._WBenchMsg <> nil then
GetStartupMsg := pWBStartup(_WBenchMsg)
else
GetStartupMsg := nil;
end;
function ProgramName: string;
var
WBMsg : pWBStartup;
buffer : array[0..255] of char;
begin
WBMsg := GetStartupMsg;
if WBMsg <> nil then begin
ProgramName := strpas(WBMsg^.sm_ArgList^[1].wa_Name);
end else begin
if GetprogramName(buffer,255) then begin
ProgramName := strpas(buffer);
end else begin
ProgramName := '';
end;
end;
end;
function WBArgCount: smallint;
var
WBMsg : pWBStartup;
begin
WBMsg := GetStartupMsg;
if WBMsg <> nil then
WBArgCount := WBMsg^.sm_NumArgs -1
else WBArgCount := 0;
end;
function GetWBArg(num : smallint): string;
var
WBMsg : pWBStartup;
param : smallint;
begin
WBMsg := GetStartupMsg;
if WBMsg <> nil then begin
param := WBMsg^.sm_NumArgs;
end else begin
param := 0;
end;
if (param > 0) AND (num <= param) then begin
GetWBArg := strpas(WBMsg^.sm_ArgList^[num+1].wa_Name);
end else begin
GetWBArg := '';
end;
end;
end.
|
