Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
2. Mär 2007
function GetDrives:TDriveArray; // funktion gibt die Laufwerke zurück; Parameter FileName entfernt
var
Drives: TDriveArray;
Idx: Integer;
Drive: Char;
begin
SetLength(Drives, 0);
Idx := 0;
for Drive := 'C' to 'Z' do
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
2. Mär 2007
Habe oben noch eine Kleinigkeit geaendert.
Der Aufruf schaut dann so aus:
DeletingFiles(GetDrives,'Dein FileName');
Was funktioniert denn nicht wie erwartet?
Gruesse
Klaus
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
2. Mär 2007
Guten Morgen,
habe es jetzt nicht getestet, sollte aber ungefähr so gehen:
Program Project2;
{$APPTYPE CONSOLE}
uses