Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

System info

⤷ Determine name of StartUp group

Use "Start Menu" value in HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
Implementation of this idea is so:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\
                  Windows\CurrentVersion\
                  Explorer\Shell Folders', 
                FALSE) then
    try
      Label1.Caption:=ReadString('Start Menu');
    except
      MessageDlg('Error', mtError, [mbOk], 0);
    end
    else MessageDlg('Error of reading of the register', 
                    mtError, 
                    [mbOk], 
                    0);
    CloseKey;
  end;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes