Subversion Repositories Kolibri OS

Rev

Rev 7107 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7107 Rev 7209
Line 122... Line 122...
122 
    con_exit(FALSE)
 122 
    con_exit(FALSE)
123 
  END;
 123 
  END;
124 
  API.ExitProcess(0)
 124 
  API.ExitProcess(0)
125 
END ExitProcess;
 125 
END ExitProcess;
Line -... Line 126...
- 
 
 126 
 
- 
 
 127 
PROCEDURE AppAdr(): INTEGER;
- 
 
 128 
VAR
- 
 
 129 
    buf: ARRAY 1024 OF CHAR;
- 
 
 130 
    a: INTEGER;
- 
 
 131 
BEGIN
- 
 
 132 
    a := API.sysfunc3(9, sys.ADR(buf), -1);
- 
 
 133 
    sys.GET(sys.ADR(buf) + 22, a)
- 
 
 134 
    RETURN a
- 
 
 135 
END AppAdr;
126 
 
 136 
 
127 
PROCEDURE GetCommandLine*(): INTEGER;
 137 
PROCEDURE GetCommandLine*(): INTEGER;
128 
VAR param: INTEGER;
 138 
VAR param: INTEGER;
129 
BEGIN
 139 
BEGIN
130 
  sys.GET(28, param)
 140 
  sys.GET(28 + AppAdr(), param)
131 
  RETURN param
 141 
  RETURN param
Line 132... Line 142...
132 
END GetCommandLine;
 142 
END GetCommandLine;
133 
 
 143 
 
134 
PROCEDURE GetName*(): INTEGER;
 144 
PROCEDURE GetName*(): INTEGER;
135 
VAR name: INTEGER;
 145 
VAR name: INTEGER;
136 
BEGIN
 146 
BEGIN
137 
  sys.GET(32, name)
 147 
  sys.GET(32 + AppAdr(), name)
Line 138... Line 148...
138 
  RETURN name
 148 
  RETURN name
139 
END GetName;
 149 
END GetName;