Category: System Information
Title: Get the startmenu's directory
Date added: 15.03.2006
Hits: 1755

uses
  ShlObj, ActiveX;

procedure FreePidl(pidl: PItemIDList);
var
  allocator: IMalloc;
begin
  if Succeeded(SHGetMalloc(allocator)) then
  begin
    allocator.Free(pidl);
    {$IFDEF VER100}
    allocator.Release;
    {$ENDIF}
  end;
end;

function GetStartMenu: string;
var
  pidl: PItemIDList;
  buf: array[0..MAX_PATH] of Char;
begin
  if Succeeded(SHGetSpecialFolderLocation(Form1.Handle, CSIDL_STARTMENU, pidl)) then
  SHGetPathFromIDList(pidl, buf);
  Result := StrPas(buf);
  FreePIDL(pidl);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := GetStartMenu;
end;

1. How to check if logged in as administrator? (NT/2000 only)? (2620 Hits)

2. How to check if the user uses 24 hour format? (1582 Hits)

3. How to get the drive type? (3177 Hits)

4. How to get the harddisk serial number? (7154 Hits)

5. How to determinate in whitch way windows is started? (2099 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.