开机运行程序,请大家进来坐坐。给点建议,谢谢,分数不够在加 我想再开机的时候运行我做的密码登陆界面,但再登陆时候,如果密码部队,就不能打开这台计算机,分不同的权限,如admin可以操作这台计算机的所有功能,但其余的用户登陆只能操纵一部分功能,如不让它上网(IE不起作用或其他) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 网上转载希望有帮助开机启动程序可以通过下列方法来设置:1. 注册表项:HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\RunHKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\RunonceHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceExHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunonceHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\ServicesHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon键下的Userinit项 可以在注册表里把shell的explore.exe先改成自己的应用程序 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; 为什么这些人总能发现 bug? 免费的动态域名解析问题 用listview显示数据库的内容,在增加和修改一个记录后,怎么能马上在listview中显示出来 调查:青岛的程序员薪金情况 各位高手!请教! 用DBE连接Access总是不成功! TSQLConnection支持oracle11g吗? 请教一个ttreeview中的项目上移下移的问题,各位大虾帮帮我? 关于文件压缩问题请教各朋前辈 如何保存树型数据到关系型数据库里?或者自编的数据库。请写出结构。Thank you 双喜临门,放分庆祝^_^ dbgrid的分页显示问题
希望有帮助
开机启动程序可以通过下列方法来设置:
1. 注册表项:
HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\RunonceHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunonceHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\ServicesHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon键下的Userinit项
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;