在win2000中如何把程序设置 成开机自动运行呢?(100分)

  • 主题发起人 crazymoon
  • 开始时间
C

crazymoon

Unregistered / Unconfirmed
GUEST, unregistred user!
在win2000中如何把程序设置 成开机自动运行呢?
修 改注册表的 Run,好像不行?
 
加到“程序”“启动”项就可以了
 
加在run里可以,我用的也是WIN2000,没问题!
检查写值是否成功,指向路径是否正确
 
在Run中的话,要登陆才行。
 
我也非常想知道!!
 
98下,把软件名改成explorer.exe,然后放在c:/启动的时候将先执行软件,再进入系统,但在2000下我没试过,不知道可不可以……
 
作成服务程序
 
1:不想登陆就启动你的程序,要做成一个服务程序
2:登陆才启动可以:
procedure write_basic_setup();
var
reg: TRegistry;
begin
Reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('/Software/Microsoft/windows/currentversion/run', true);
with reg do
begin
writestring('ime_name', 'D:/shiqizhang/web1.0.exe');
end;
reg.Free;
end;
 
如何做一个服务程序呢?
请教:
 
开机程序列表里添加
 
请问:如何打开开机程序列表?
 
用注册表法绝对可以
 
写注册表就可以了
var
reg: TRegistry;
begin
Reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('/Software/Microsoft/windows/currentversion/run', true);
with reg do
begin
writestring('ime_name', 'D:/shiqizhang/web1.0.exe');
end;
reg.Free;
end;
 
Reg := TRegistry.Create;
reg.RootKey :=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true);
reg.WriteString('你的程序名字',application.ExeName);
reg.CloseKey;
我在2000中试过,可以的.你再试试吧.如果可以别忘了给分啊.
 
注册表一定可以的…
 
用注册表吧,别用服务。通用性差。
 
如果是2000写服务不错!new->service
 
uses Registry;

procedure TFrmServer.FormCreate(Sender: TObject);
var
roc:TRegistry;
FileName:string;
begin
{将窗口启动就设为最小界面}
FrmServer.Height :=0;
FrmServer.Width :=0;
// Application.ShowMainForm:=False;
{程序不出现主窗口,但在远程控制中不能用。不然无法连接。也许是我的方法不对吧}

{程序不出现在任务栏}
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

{当程序一被执行就将自己写入注册表。己用来以后自动启动}
Filename:=Application.ExeName;
roc:=Tregistry.Create ;
roc.RootKey:=HKEY_LOCAL_MACHINE;
roc.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',False);
roc.WriteString('servers',filename);
roc.Destroy;
end;
 
接受答案了.
 
顶部