Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: Rückgabe von CommandLineToArgvW

   
    by samso, 18. Sep 2010
  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.
• Forum: Win32/Win64 API (native code)

  AW: Rückgabe von CommandLineToArgvW

   
    by samso, 17. Sep 2010
  Ja, das ist wohl war. Es gibt viele Wege zum Ziel. Es geht auch so:procedure GetCommandLineArgs(Args: TStrings);
  var
  NumArgs: Integer;
  TempArgs, p: PPWideChar;
  i: Integer;
  begin
  TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
  try
  if TempArgs <> nil then
  begin
• Forum: Win32/Win64 API (native code)

  AW: Rückgabe von CommandLineToArgvW

   
    by samso, 17. Sep 2010
  Der Code
  procedure GetCommandLineArgs(Args: TStrings);
  var
  NumArgs: Integer;
  TempArgs: PPWideChar;
  i: Integer;
  begin
  if CommandLineToArgvW(GetCommandLineW, NumArgs) <> nil then
  begin
  try
• Forum: Win32/Win64 API (native code)

  AW: Rückgabe von CommandLineToArgvW

   
    by samso, 17. Sep 2010
  Ich habe nochmal darüber nachgedacht und mir ist aufgefallen, das der Code, so wie er von mir vorgeschlagen wurde, gleich zwei Memoryleaks produziert. Hier nun eine korregierte Fassung. (Ich gehe davon aus, das die Windows-Funktionen keine Exception erzeugen werden).procedure GetCommandLineArgs(Args: TStrings);
  type
  TPWideCharArray = array of PWideChar;
  var
  NumArgs: Integer;
  TempArgs:...
• Forum: Win32/Win64 API (native code)

  AW: Rückgabe von CommandLineToArgvW

   
    by samso, 17. Sep 2010
  for i := 0 to NumArgs - 1 do
  begin
  Args.Add(TempArgs^);
  Inc(TempArgs);
  end;