Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.544 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Exception beim Ermitteln des TEMP-Ordners unter Delphi 2

  Alt 15. Apr 2010, 14:54
Nein, das hatte ich ja auch erst so verstanden, aber dann noch einmal gelesen.
Zitat:
If the function succeeds, the return value is the length, in TCHARs, of the string copied to lpBuffer, not including the terminating null character. If the return value is greater than nBufferLength, the return value is the length, in TCHARs, of the buffer required to hold the path.
[edit] Bevor wir hier jetzt stundenlang rumraten, wie das wirklich gemeint ist:
Delphi-Quellcode:
function TempPath: string;
begin
  SetLength(Result,GetTempPath(0, nil));
  GetTempPath(Length(Result),PChar(Result));
  SetLength(Result,StrLen(PChar(Result)));
end;
Sollte auf jeden Fall passen [/edit]

[edit2] Was auch gehen müsste:
Delphi-Quellcode:
function TempPath: string;
begin
  SetLength(Result,GetTempPath(0, nil));
  SetLength(Result,GetTempPath(Length(Result),PChar(Result)));
end;
[/edit2]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat