无盘98如何实现自动安装驱动.

无盘论坛 Diskless
1

无盘98如何实现自动安装驱动
就是第一次登陆后.自动安装驱动.自动点击下一步.然后自动重启?

2

把所有的驱动全部拷到服务器上去，就ok了

3

修改98系统文件

4

看看这里： xlinkx.w104.wooor.net/advertise/diskless_cd.htm

5

这种东西也值得卖？

6

晕呀……

7

现在有2种方法。一是自己遍个程序，加在runservice中，程序启动自动按一步
csj2004就是这钟方法，2是明智的方法，好像修改sysdm.cpl等系统文件，
不再有下一步的提示。

8

我太菜找到了几行代码却不会用大家帮我看看咋用：
以下是

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);//要有个timer控件
procedure FormCreate(Sender: TObject);//窗口创建时的动作
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);//以下是核心代码就这么几条
var
hd1,hd2,hd3:Thandle;
TrayWindow:integer;
begin
TrayWindow := FindWindow(‘Shell_TrayWnd’, nil);//查找开始菜单
if traywindow<>0 then
close;//找到开始菜单和任务条,就自动关闭本程序
hd1:= findwindow(nil,‘添加新硬件向导’);//找装驱动的窗口
if hd1<>0 then//如果找到
begin
SetActiveWindow(hd1);//将当前窗口设为活动窗口
SetForegroundWindow(hd1);//将当前窗口放到最上面
keybd_event(VK_RETURN, 0, 0 , 0 );//模拟按’回车’键
keybd_event( VK_RETURN, 0, 2, 0 );//模拟弹出’回车’键
end;

hd1:= findwindow(nil,‘系统设置改变’);//找提示’是否重启’的窗口
if hd1<>0 then
begin
SetActiveWindow(hd1);
SetForegroundWindow(hd1);
keybd_event(VK_RETURN, 0, 0 , 0 );//模拟回车键
keybd_event( VK_RETURN, 0, 2, 0 );
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
width:=0;
height:=0;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);//程序不在任务条上显示
end;

end.

9

我靠 80 你抢啊 整理整理这里的资料 就卖啊 也太那个了吧~~~~~~~~~