Как получить аргумент из CommandLineToArgvW(lpCmdLine (shellapi)?
avk02 © (2005-01-26 04:40:00)
function CommandLineToArgvW(lpCmdLine: LPCWSTR; var pNumArgs:
Integer): PPWideChar; stdcall;
где
type
PPWideChar = ^PWideChar;
Результат функции - указатель на массив параметров
(аргументов) командной строки.
SUBJ?
2.
Зачем в system.pas собственная реализация разбора коммандной
строки?
MBo (2005-01-26 07:36:00) [1]
1.
Примитивный разбор параметров:
procedure TForm1.Button1Click(Sender: TObject);
var
cl: PWideChar;
args: PPWideChar;
na: Integer;
ws: WideString;
i, j: Integer;
begin
cl := GetCommandLineW;
args := CommandLineToArgvW(cl, na);
Caption := IntToStr(na) + ' ' + args^;
j := 0;
for i := 1 to na do begin
ws := '';
repeat
ws := ws + args^[j];
Inc(j);
until args^[j] = #0;
Inc(j);
Memo1.Lines.Add(ws);
end;
end;
2. Она всегда была со времен TP и удобна в
использовании
Наверх 
ЧАТ |
Орешник |
|
