Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#12

Re: Wohin mit den Logfiles?

  Alt 8. Okt 2007, 10:55
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;
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat