Текущий архив: 2005.03.06;
Скачать: CL | DM;
Вниз
Как получить аргумент из CommandLineToArgvW(lpCmdLine (shellapi)? Найти похожие ветки
← →
avk02 (2005-01-26 04:40) [0]function CommandLineToArgvW(lpCmdLine: LPCWSTR; var pNumArgs: Integer): PPWideChar; stdcall;
где
type
PPWideChar = ^PWideChar;
Результат функции - указатель на массив параметров (аргументов) командной строки.
SUBJ?
2.
Зачем в system.pas собственная реализация разбора коммандной строки?
← →
MBo © (2005-01-26 07:36) [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 и удобна в использовании
Страницы: 1 вся ветка
Текущий архив: 2005.03.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.025 c
