Rückgabe von CommandLineToArgvW

[Garfield]

Zitat von samso:

Zweites Speicherloch:
GlobalFree(THandle(TempArgs)); denn TempArgs ist nicht mehr gültig (wegen Inc()).

Das sollte sich mit einem weiteren PPWideChar lösen lassen, welchem nach

TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs); der Wert von TempArgs zugewiesen wird.

[samso]

Ja, das ist wohl war. Es gibt viele Wege zum Ziel. Es geht auch so:

Delphi-Quellcode:

procedure GetCommandLineArgs(Args: TStrings);
var
  NumArgs: Integer;
  TempArgs, p: PPWideChar;
  i: Integer;
begin
  TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
  try
    if TempArgs <> nil then
    begin
      p := TempArgs;
      for i := 0 to NumArgs - 1 do
      begin
        Args.Add(p^);
        Inc(p);
      end;
    end
    else
      RaiseLastOSError;
  finally
    LocalFree(THandle(TempArgs));
  end;
end;

Gegenüber der Lösung in Antwort #6 sieht das hier zwar nicht so schön aus, dafür übersteht es aber eine Bereichsprüfung.

[Garfield]

Man muss Prioritäten setzen. Schönheit oder Korrektheit.

[Dezipaitor]

Naja, das try finally ist hier garnicht notwendig und macht es imo unübersichtlich. Besser sollte es weg und das LocalFree in die if-Bed mit rein.

[Luckie]

Also so:

Delphi-Quellcode:

procedure GetCommandLineArgs(Args: TStrings);
type
  TPWideCharArray = array[0..0] of PWideChar;
var
  NumArgs: Integer;
  TempArgs: PPWideChar;
  i: Integer;
begin
  TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
  if TempArgs <> nil then
  begin
    for i := 0 to NumArgs - 1 do
      Args.Add(TPWideCharArray(TempArgs^)[i]);
    LocalFree(THandle(TempArgs));
  end
  else
    RaiseLastOSError;
end;

[samso]

Nunja, ich hatte auch darüber nachgedacht, ob das try finally notwendig ist. Ich hatte es drinn gelassen, weil die Add-funktion bei einer leeren Liste (args=nil oder args nicht gültig) eine Exception erzeugen würde. Falls man den Fall LocalFree(0) abfangen möchte (was ich nicht für notwendig halte), dann könnte man das ja auch noch auf anderen Wegen erreichen.

[himitsu]

Zitat:

Delphi-Quellcode:

for i := 0 to NumArgs - 1 do
  Args.Add(TempArgs^[i]);

Zitat von Luckie:

Danke funktioniert. Aber warum? Kannst du mir das auch noch erklären?

Delphi-Quellcode:

for i := 0 to NumArgs - 1 do
  Args.Add(TempArgs[i]);

Es müste auch funktionieren, wenn du das ^ weglassen würdest.

Über ^ dereferenzierst du den PPWideChar und der Index [i] wird dann als Zeichenindex im 1. PWideChar gezählt.
Ohne ^ wäre es aber der Index im PPWideChar, also im Array.

bzw. so müßte es auch gehn.

Delphi-Quellcode:

type TTempArgs: array[0..0] of PWideChar;
var TempArgs: ^TempArgs;

TempArgs := Ponter(CommandLineToArgvW(GetCommandLineW, NumArgs));
...
for i := 0 to NumArgs - 1 do
  Args.Add(TempArgs[i]);

[Luckie]

Danke für die Erklärung.