|
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;
- Related chapters
-
Registry
- Related topics
-
Detect font (Small or Large) is in use
Use registry instead of *.ini file
Run program not in StartUp Folder
- For more
-
Delphi Help
Win32 programmer's reference
- Download source
|
