Zitat von
ralfiii:
@RWarnecke: Und, wie verwende ich die Systemvariable? Ein AssignFile('%Temp%\MyLogfile.log') geht ja nicht.
Mit dieser Funktion liest Du Systemvariablen aus :
Delphi-Quellcode:
function GetEnvVarValue(const VarName: string): string;
var
BufSize: Integer; // buffer size required for value
begin
// Get required buffer size (inc. terminal #0)
BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
if BufSize > 0 then
begin
// Read env var value into result string
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(PChar(VarName),
PChar(Result), BufSize);
end
else
// No such environment variable
Result := '';
end;