Temporäre Datei

[sir-archimedes]

Ich hab das irgendwann mal so gemacht:

Delphi-Quellcode:

function GetTempPath:string;
Var TmpString : String;
begin
  SetLength(TmpString, 255);
  SetLength(TmpString,Windows.GetTempPath(Length(TmpString),PChar(TmpString)));
  TmpString := TmpString + 'mmp_manager\';
  Result := TmpString;
end;

Function GetTempFileName(Pre : String) : String;
Var TmpStr : PChar;
    P : Integer;
Begin
  SetLength(Result, 255);
  Windows.GetTempFileName(PChar(GetTempPath), PChar(Pre),0,PChar(Result));
  P := Pos(#0, Result);
  If P > 0 Then
    Delete(Result, P, Length(Result)-P+1);
  Result := Trim(Result);
End;

HtH,
Dominik