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

[poltergeistx]

SO, also ich wollt mal fragen, wie das geht, dass ich wenn ich in eine textdatei schreiben will direkt im windows ordner .. OHNE den ganzen pfad zum windows ordner angeben zu müssen .

dass heisst

button click --> SOFORT zum Windows verzeichniss
dann /pfad/text.txt <<-- diese datei verändern mit edit1.texteingabe

[3_of_8]

Wie willst du das machen? Meinst du einen TOpenDialog? Da musst du dir den Windows Pfad auslesen und dann OpenDialog1.InitialDir auf den Windows Pfad setzen.

[poltergeistx]

also bin noch ziemlich anfänger ;)

ich habe eine form ein button und ein edit feld ! [LOoL]

dann möchte ich, sobald auf diesen Button geklickt wird , das was in dem edit feld steht in eine textdatei geschrieben wird im WINDOWS ordner ;)

Nur möchte ich nicht den langen pfad angeben zu windows sondern SOFORT INS WINDOWS VERZEICHNISS wechseln

hoffenltich verständlich geschrieben ;)

[alcaeus]

Moin poltergeist,

guck dir in der Hilfe mal die Befehle [oh]AssignFile, Reset, Rewrite, Write, Read, CloseFile[/oh] an. Mit denen kannst du in Dateien schreiben bzw. daraus lesen.

Greetz
alcaeus

[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';

[poltergeistx]

:wiejetzt: :wiejetzt: :wiejetzt:

lol, ja ok sorry aber das ist mir zu kompliziert :stupid: :wall: :wall: :wall:
ein kleines test-programm könnte da schon weiter helfen ..
mit source ;)

(sorry aber bin noch ziemlich Anfänger :roll: )
Ich kenne zwar auch schon vieles aber naja ....

eben nicht alles :roll:
---------------------------------

[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:

Delphi-Quellcode:

memo1.savetofile(GetWinDir+filename);

[poltergeistx]

okay habs doch noch kapiert danke dir ich probier das jetzt mal schnell falls es noch probleme gibt meld ich mich cu
und danke nochmals ;)

[jbg]

Zitat:

Zitat von poltergeistx

lol, ja ok sorry aber das ist mir zu kompliziert

Na dann solltest du dir ein paar Anfänger Tutorials durchlesen von denen es Unmengen im Internet gibt. Denn sowas wie GetWinDir() ist mehr oder weniger nur Tipparbeit.

Noch was zu deinem Vorhaben mit dem Windows-Verzeichnis. Da sollte man nichts reinschreiben, da es sehr wahrscheinlich ist, dass man dort keine Schreibrechte hat (eingeschränkter Benutzer).

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

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