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

[poltergeistx]

Okay,
trotzdem kann ich in meine dateien wie zb textdateien reinschreiben ...
geht ja auch wenn man als admin angemeldet ist oder ??? ...

achja und zu dem code :

wenn ich kompiliere kommt folgendes :

Undeclared identifier Savetofile

und so sieht das ganze bei mir aus jetzt :


--------------------------------------------------------------------------

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.savetofile(GetWinDir+filename);
end;

end.

--------------------------------------------------------------------------