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

⤷ 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
Databases for Amazon Associates
Amazon Categories
Amazon Nodes