Arbeitsplatz öffnen mit Delphi-App

[turboPASCAL]

Hi,

Ich habe da mal 'ne Frage. ;)

Ich suche eine Möglichkeit den "Arbeitsplatz" mit Shellexecute oder so zu öffnen, so wie wenn mann auf das Symbol klickt. Ich habe schon gesucht aber anscheinen nicht mit den richtigen Begriffen. :gruebel:

MfG.

[mOzZzI]

Hi das geht glaub ich so,

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls, ShlOBJ;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Info: ShellExecuteInfo;
  List: PItemIDList;

begin
  SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DRIVES, List);

  ZeroMemory(@Info, SizeOf(ShellExecuteInfo));
  Info.cbSize := SizeOf(ShellExecuteInfo);
  Info.lpVerb := 'explore';  //Diese Zeile kannst du auch entfernen, wenn du die TreeView anzeige nicht haben möchtest...
  Info.Wnd := GetActiveWindow;
  Info.fMask := SEE_MASK_IDLIST;
  Info.lpIDList := List;
  Info.nShow := SW_SHOWMAXIMIZED; //auch veränderbar ;-)

  ShellExecuteEx(@Info)
end;

end.

Damit kann man auch EigeneDateien öffnenund mehr...

Gruß Philipp

[turboPASCAL]

Ja genau, das habe ich gesucht. Verflixt noch eins, Thx.

So will ich es offnen:

Delphi-Quellcode:

var
  Info: ShellExecuteInfo;
  List: PItemIDList;

begin
  SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DRIVES, List);

  ZeroMemory(@Info, SizeOf(ShellExecuteInfo));
  Info.cbSize := SizeOf(ShellExecuteInfo);
  Info.lpVerb := 'open'; // <-----<<<
  Info.Wnd := GetActiveWindow;
  Info.fMask := SEE_MASK_IDLIST;
  Info.lpIDList := List;
  Info.nShow := SW_NORMAL;

  ShellExecuteEx(@Info)
end;