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

[3_of_8]

Aaalso: Klicke auf deinen Button doppelt, dann erscheint ein Code: procedure Button1Click oder so ähnlich. Schreib darüber den Code:

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 schreib in die Prozedur Button1Click zwischen begin und end; folgendes:

memo1.savetofile(GetWinDir+filename);