{ **** UBPFD *********** by delphibase.endimus.com **** >> Получение параметров командной строки приложения Зависимости: Windows, SysUtils Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 29 марта 2003 г. ***************************************************** } functionParameters: string
; var
P: PChar; begin
P := GetCommandLine; if
P^ = '"' then
begin
Inc(P); P := StrPos(P, '"'); Inc(P); end
else
P := StrPos(P, ' '); Inc(P); Result := P; end
;