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