Ordner löschen

[Targion]

Hallo!
Ich habe nur eine ganz simple Frage: Wie lautet der Befehl, um das Lazarus-Programm unter Linux einen Ordner löschen zu lassen?
Das war's auch schon. Im Internet habe ich dazu nichts wirklich sinnvolles gefunden.

[bembulak]

Code: Alles auswählen

procedure RmDir ( const DirectoryName  : string ) ;
{ oder }
function RemoveDir ( const Dir  : string ) : Boolean;

Sollte eigentlich helfen. Bei solchen Dingen bist du gut beraten, wenn du auf

http://www.delphibasics.co.uk" onclick="window.open(this.href);return false; nachsiehst.

Im konkreten Fall ist es diese URL:
http://www.delphibasics.co.uk/RTL.asp?Name=RmDir" onclick="window.open(this.href);return false;

[Targion]

Hmm. Beide Befehle funktionieren nicht, beim Ersten bekomme ich die Fehlermeldung "Project raised exception class "RunError(5)", der zweite bringt auch keinen Erfolg. Das Programm hat Schreibrechte auf den Ordner.

[bembulak]

Sonderbar, ich habe es hier gerade zuhause mit WinXP Home unter Lazarus 0.9.24 ausprobiert und es funktioniert:

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Test-Verzeichnis erstellen }
  CreateDir('C:\test');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  { Test-Verzeichnis wieder löschen }
  RemoveDir('C:\test');
end;
 
initialization
  {$I unit1.lrs}
 
end.

[bembulak]

So, das Gleiche hat auch unter Linux wunderbar funktioniert:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateDir('/home/bembulak/test');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  RemoveDir('/home/bembulak/test');
end;

Bist du sicher, dass du rw-Rechte hast?

[creed steiger]

http://www.freepascal.org/docs-html/rtl ... vedir.html" onclick="window.open(this.href);return false;

Ordner nicht leer?

[pluto]

Ich glaube das Klappt nur wenn das Verrzeichnis Leer ist.
Such dir eine FindFirst mehtode die auch unterverzeichniss durch sucht
und lösche jeden Gefunde Datei.

evlt. klappt dieser tipp auch unter Lazarus:
http://www.dsdt.info/tipps/?id=68" onclick="window.open(this.href);return false;
oder hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=152" onclick="window.open(this.href);return false;
oder aber auch hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=415" onclick="window.open(this.href);return false;

aber alle nutzten WinApi Funktionen, und ich weiß nicht ob es die Unter Lazarus auch gibt.... Wenn nicht müssten wir eine eigene Lösch procedure schreiben die auch gefüllte Verzeichnisse löschen kann.

[Targion]

Ja, das geht so nicht... Das Verzeichnis ist gefüllt mit dateien und weiteren Ordnern. Wie schreibe ich eine Lösch-prozedur? Gibt es da linuxAPI-Befehle?

[Christian]

Musst du nicht schreiben, gibts in FileUtil glaub CleanDir hieß die.

[Targion]

Ja! So kann man den Ordner löschen:

Code: Alles auswählen

uses FileUtil;
[...]
DeleteDirectory('/tmp/xyz',false);

Vielen Dank!

[bembulak]

Cool!
Wie bist du jetzt auf den Befehl gekommen? Ich hab' im Wiki gesucht, aber leider nix finden können.

[Christian]

Bin ich irgendwann mal drüber gestolpert. Da sind auch noch andere schöne Sachen drin AppendPathDelim z.b.