Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383256 Wed, 30 Sep 2009 06:07:40 +0000 CommandLineToArgvW ???? https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383256 alex_sporik
Да как не работает... у меня работает все... единственное что кавычки двойные ушли...]]> Palladin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383244 Wed, 30 Sep 2009 05:56:31 +0000 CommandLineToArgvW ???? https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383244
Зы, я дурак...сорри. Просмотрел что это двойной указатель. Кому интересно - вот так

    var arrParams,pp:PPWideChar;
          i,c:integer;
          cl:array of WideString;
     
     arrParams:=CommandLineToArgvW(GetCommandLineW,c);
     if Assigned(arrParams) then
      begin
       SetLength(cl,c);
       pp:=arrParams;
       for i:=0 to c-1 do
        begin
         cl[i]:=WideString(PWideChar(pp^));
         inc(pp);
        end;
       LocalFree(THandle(arrParams));
      end;
]]> alex_sporik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383238 Wed, 30 Sep 2009 05:50:50 +0000 CommandLineToArgvW ???? https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383238 Palladin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383227 Wed, 30 Sep 2009 05:42:43 +0000 CommandLineToArgvW ???? https://forum.sources.ru/index.php?showtopic=283364&view=findpost&p=2383227
Функция CommandLineToArgvW что то засадила меня. Не получается правильно отпарсить путь вида
     "debug\program.exe" '/state:1 /state_tag:0 /state_file:"C:\Users\XXX\AppData\Local\TempC9.data"'


Почему то возвращает мне количество аргументов 4 а доступен только 0.

    function CommandLineToArgvW(lpCmdLine:LPCWSTR;var pNumArgs:Integer):PPWideChar;stdcall;external 'shell32.dll';
     
    var arrParams:PPWideChar;
          i:integer;
     
     arrParams:=CommandLineToArgvW(GetCommandLineW,i);
     if arrParams<>nil then
      begin
       arrParams^[0] - тут работает но с другими индексами нет.
     
     
       LocalFree(THandle(arrParams));
      end;


Help pls.

Добавлено
ЗЫ под Вынь7 64 бит... под хрю таких путей не бывает.]]> alex_sporik Delphi: Общие вопросы