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.
--------------------------------------------------------------------------