Windows textdatei per knopfdruck direkt verändern .....

[3_of_8]

Du schreibst folgende Prozedure in deine Unit:

Delphi-Quellcode:

function GetWinDir: String;
var
  Dir: String;
  Len: DWord;
begin
  SetLength(Dir,MAX_PATH);
  Len:=GetWindowsDirectory(PChar(Dir),MAX_PATH);
  if Len>0 then
  begin
    SetLength(Dir,Len);
    Result:=Dir;
  end
  else
    RaiseLastOSError;
end;

Dann machst du memo1.savetofile(GetWinDir+filename);

Wobei filename ein Dateiname ist, sowie 'test.txt';