Title: 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;