Show special folders - System - Tips & Tricks - Greatis Delphi Pages

Delphi/CB

• Greatis

• Security

• AppDatabase

• Utilities

• Visual Basic

• .NET

• just4fun

Delphi / C++ Builder
Components, utilities and tips for Delphi and C++ Builder developers

Hot Offer

Featured

Ultimate Pack hot!
Image Editor new!
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET

...get more...
for Delphi.NET, C#, VB.NET
for Delphi VCL, BCB 3-6

News Tips .NET Software VCL Software Partners

Show special folders

Use SHGetSpecialFolderLocation for getting identifier of special folder. After that, you must fill components of ShellExecuteInfo structure where one of the parameters is the identifier of special folder.
Folder variable contains a constant, which shows special folder.
For example:
CSIDL_DRIVES - My Computer
SIDL_CONTROLS - Control Panel
CSIDL_DESKTOP - Desctop
CSIDL_BITBUCKET - Recycle Bin


uses
  ShlObj, ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MyItemIDList: PItemIDList;
  MyShellEx: TShellExecuteInfo;
  Folder: Integer;
begin
  Folder:=CSIDL_DRIVES;
  SHGetSpecialFolderLocation(Form1.Handle, Folder, MyItemIDList);
  with MyShellEx do
  begin
    cbSize:=Sizeof(MyShellEx);
    fMask:=SEE_MASK_IDLIST;
    Wnd:=Handle;
    lpVerb:=nil;
    lpFile:=nil;
    lpParameters:=nil;
    lpDirectory:=nil;
    nShow:=SW_SHOWNORMAL;
    hInstApp:=0;
    lpIDList:=MyItemIDList;
  end;
  ShellExecuteEx(@MyShellEx);
end;

For more: Win32 programmer's reference
Download source

Our Partner

Recommended

Useful Resources

Win32.hlp Online
Unix Manual Pages
MegaDetailed.NET
in3steps.com

Newsletters

Subscribe to our news!