打入到注册表中,就可以了,给你一段例子
procedure Tfrm_admini.Reg;
var
; RegF:TRegistry;
begin
; RegF:=TRegistry.Create;
; RegF.RootKey:=HKEY_LOCAL_MACHINE;
; try
; ; RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
; ; RegF.WriteString('icq',application.exename);
; except
; ; application.MessageBox('注册未成功!','提示',mb_ok+mb_iconinformation);
; end;
; RegF.CloseKey;
; RegF.Free;
end;
procedure Tfrm_admini.DelReg;
var
; RegF:TRegistry;
begin
; RegF:=TRegistry.Create;
; RegF.RootKey:=HKEY_LOCAL_MACHINE;
; try
; ; RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
; ; RegF.DeleteValue('icq');
; except
; ; application.MessageBox('注册未成功!','提示',mb_ok+mb_iconinformation);
; end;
; RegF.CloseKey;
; RegF.Free;
end;