|
Create a new string type record in HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Implementation of this idea is so:
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
with TRegistry.Create do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
TRUE) then
WriteString('UserProgram', Edit1.Text)
else
MessageDlg('Registry record error', mtError, [mbOk], 0);
CloseKey;
end;
end;
end;
- Related chapters
-
Registry
- Related topics
-
Detect font (Small or Large) is in use
Use registry instead of *.ini file
Detect windows version
- For more
-
Delphi Help
Win32 programmer's reference
- Download source
|
