Dateiverwaltung??

[sui]

Moin,

ich versuch mir grad mal die Funktionen der Dateiverwaltung
beizubringen. Mit DiskFree und DiskSize komm ich mittlerweile
klar.

Code:

var
  Form1: TForm1;
  partition, partitionfrei : int64;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
partition := DiskFree(3);
partitionfrei := partition div 1024 div 1024 ;
label1.caption := inttostr(partitionfrei);
end;

Jetzt will ich die FileAge-Funktion ausprobieren, so mit
Datei öffnen-Menü. Das Öffnen-Menü ist auch kein Problem:

Code:

procedure TForm1.Open1Click(Sender: TObject);
begin
Opendialog1.Execute;
Hier muss doch noch was hin wo der DateiName in eine Variable geladen wird???
end;

Weiter komm ich einfach nicht, verlier immer den Faden...