Temp-Verzeichnis von Windows herausfinden?

Larayna · Beiträge: 47

Hi

Ich baue hier so ein kleines Tool und habe vermutlich eine absolute Anfängerfrage

Windows hat ein Standardverzeichnis für Temp-Datein.. kann Delphi irgendwie auslesen welche das jeweils ist?

Wäre nett wenn mir jemand 'nen tip gibt.

Larayna

Urba · Beiträge: 47

Hallo,

Einfach folgendermaßen :

markieren

Delphi-Quelltext

1:	TempDir := GetEnvironmentVariable('TEMP');

Gruss
Urba

_________________
Es gibt keine blöden Fragen, nur blöde Antworten

Larayna · Beiträge: 47

Danke

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetTempDir: string;
var
  Buffer: array[0..MAX_PATH - 1] of Char;
  Len: DWORD;
begin
  result := '';
  Len := GetTempPath(sizeof(Buffer), Buffer);
  if Len > 0 then
    SetString(result, Buffer, Len);
end;

[/b]

Ehemaliges Mitglied Erhaltene Danke: 1

Da "GetTempPath" die Anzahl der kopierten Zeichen zurückgibt, geht´s auch ohne den Umweg über pchar:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function GetTempDir: string;
begin
  SetLength(Result,MAX_PATH + 1);
  SetLength(Result,GetTempPath(length(Result),@Result[1]));
end;

Wenn übrigens der benutzte Puffer zu klein ist, liefert die Funktion die benötigte Größe zurück:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetTempDirChars: dword;
begin
  Result := GetTempPath(0,nil);
end;


ShowMessage(Format(
  'Sie brauchen für "%s" einen Puffer von %d Zeichen.',
  [GetTempDir,GetTempDirChars])
);

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme