Festplatte öffnen lassen

[Surge0n]

hi leute ich habe ein problem und zwar möchte ich nur die festplatte öffnen lassen, und das nicht mit einem dialog...ich habe es schon mit shellexecute probiert, das programm zeigt auch keinen fehler an, aber wenn ich auf den button zum öffnen klicke passiert nix...hier mein quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl,shellapi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','C:\',nil,nil,0);

end;

end.

danke im voraus

[khh]

was verstehst du denn unter "festplatte öffnen " ??



Gruss Kh

[Luckie]

Zitat:

Zitat von khh

was verstehst du denn unter "festplatte öffnen " ??

Na ja, aufschrauben der selbigen?

[khh]

Zitat:

Zitat von Luckie

Zitat:

Zitat von khh

was verstehst du denn unter "festplatte öffnen " ??

Na ja, aufschrauben der selbigen?

ach so :wall:

[Surge0n]

genau ^^

[himitsu]

übergib den Pfad doch einfach direkt an den Explorer

[add]

Delphi-Quellcode:

shellexecute(handle, 'open', 'explorer.exe', '"C:\"', nil, 0);

[Surge0n]

hmm...ich habs jetzte so probiert aber das fenster der festplatte wird trotzdem nicht angezeigt :gruebel:

[Luckie]

Das Verb muss 'explore' heißen und nicht 'open'.

[Surge0n]

es tut mir wirklich leid :oops: aber das funzt immer noch ne

[Andreas L.]

Delphi-Quellcode:

ShellExecute(Handle, 'explore', 'C:\', nil, nil, SW_SHOW)