Ordner zur Laufzeit öffnen

[gordon freeman]

Hi Leute,
ich per Buttonklick einen Ordner öffnen. Geht das?

[Sharky]

Zitat:

Zitat von gordon freeman

Hi Leute,
ich per Buttonklick einen Ordner öffnen. Geht das?

Was meinst Du denn mit "Ordner öffnen"? Einen Ordner aus dem Aktenschrank? ;-)

[gordon freeman]

Ich hab einen Ordner auf der Festplatte, dessen Pfad mir bekannt ist. In diesem Ordner sind .Doc Dateien. Da Delphi ja Doc-Dateien mit integrierten Bildern nicht anzeigen kann?! habe ich mir gedacht, dass der Benutzer den Ordner geöffnet bekommt und nur noch die Datei mit seinem Micro$oft Word öffnen muss. Dazu muss der Ordner jedoch zur Laufzeit geöffnet werden.

[Sharky]

Zitat:

Zitat von gordon freeman

.... Dazu muss der Ordner jedoch zur Laufzeit geöffnet werden.

Öffne ihn doch einfach im Explorer. Oder meinst Du genau das?

[alcaeus]

So:

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar("explore"),PChar(DeinPfad),PChar(""),PChar(DeinPfad),SW_SHOW);

Wenn du nicht den Explorer sondern eine normale Ordneransicht willst dann so:

Delphi-Quellcode:

ShellExecute(Application.Handle,PChar("open"),PChar(DeinPfad),PChar(""),PChar(DeinPfad),SW_SHOW);

[gordon freeman]

DANKE :thuimb: :thuimb: :thuimb:

[Sharky]

Oder so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
 ordner : String;
begin
  ordner := 'c:\Programme';
  ShellExecute(application.handle,'open',PChar(ordner),nil,nil,sw_shownormal);
end;

[alcaeus]

Das kommt wenn man zum ersten Mal ShellExecute verwendet...da kann man ja auch nil nehmen

[gordon freeman]

ZU Hasue funzt et leider nicht. Da benutze ich Delphi 4! kann es sein das "Shell" noch nicht in Delphi 4 implementiert ist? Ich soll es nämlich definieren, aber wie?

[S2B]

:wiejetzt:
Hast du vielleicht

Delphi-Quellcode:

uses ShellAPI;

vergessen?