Да-да, как в Кипере.
Создадим новый проект, или откройте вашу готовый проект Delphi, кинем на форму Checkbox1 с вкладки Standart, кликнем на него два раза, создавая событие OnClick. Перед тем как писать код, добавим в раздел uses — Registry (работа с реестром Windows). Теперь пишем код в событии OnClick:
Код:
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Run’,
false);
reg.WriteString(‘My App’, Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
Вот и все. Запускайте программу, нажимайте на кнопку, перезагружайте Windows, радуйтесь
Создадим новый проект, или откройте вашу готовый проект Delphi, кинем на форму Checkbox1 с вкладки Standart, кликнем на него два раза, создавая событие OnClick. Перед тем как писать код, добавим в раздел uses — Registry (работа с реестром Windows). Теперь пишем код в событии OnClick:
Код:
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Run’,
false);
reg.WriteString(‘My App’, Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
Вот и все. Запускайте программу, нажимайте на кнопку, перезагружайте Windows, радуйтесь
