Пример в автозагрузку
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run', false);
reg.WriteString('Имя', Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
Открыть CD
mciSendString('Set cdaudio door open wait',nil, 0, Form1.Handle);
закрыть соответствено Closed
Для перезагрузки я обычно целую процедуру пишу, их можно в нэте найти и вообще там всё можно найти если поискать.
|