Compago

...free knowledge

 
  • Increase font size
  • Default font size
  • Decrease font size
Home Manuali Programmazione Trovare la directory temporanea con delphi

Trovare la directory temporanea con delphi

E-mail Stampa PDF

Per trovare la directory temporanea di sistema è possibile usare la funzione GetTempPath:

function GetTempDir: string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetTempPath(SizeOf(Buffer) - 1, Buffer);
  Result := StrPas(Buffer);
end;

oppure usando anche un controllo sulla riuscita dell'operazione:

function GetTempPath: string;
var
  TmpDir: PChar;
begin
  TmpDir := StrAlloc(MAX_PATH);
  GetTempPath(TmpDir, MAX_PATH);
  Result := string(TmpDir);
  if Result[Length(Result)] <> '\' then
    Result := Result + '\';
  StrDispose(TmpDir);
end;

function GetTempPath(var S: String): Boolean;
var
  Len: Integer;
begin
  Len := Windows.GetTempPath(0, nil);
  if Len > 0 then
  begin
    SetLength(S, Len);
    Len := Windows.GetTempPath(Len, PChar(S));
    SetLength(S, Len);
    Result := Len > 0;
  end else
  Result := False;
end;
Ultimo aggiornamento ( Venerdì 24 Settembre 2010 10:43 )  
Loading

Login




Chiudi