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