Mega Code Archive

 

Categories / Delphi / System

 

Determine name of StartUp group

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;