Текущий архив: 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.024 c