Delphi如何利用Setup API实现驱动程序自动安装

qianqinghui 2003-10-06 06:22:03
现在在做GPRS MODEM,用了一根USB数据线连接手机,在PC机上虚拟了一个串口,现在软件编写完成,可是MODEM的添加却仍然需要用户手动添加,非常麻烦。我们自己做了一个MODEM的inf文件,不知道怎么在setup过程中就把MODEM添加到USB数据线虚拟的那个串口上去。也就是如何利用Setup API实现驱动程序自动安装

...全文
244 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
naughtyboy 2003-10-07
  • 打赏
  • 举报
回复
用SetupApi我不清楚
不过你可以试试另外一种方法

procedure InstallPortTalkDriver;
var
SchSCManager:SC_HANDLE;
schService:SC_HANDLE;
err:DWORD;
DriverFileName:array[0..79]of CHAR;
begin
if (GetSystemDirectory(DriverFileName, 55)=0) then
begin
showmessage('PortTalk: 取System目录出错');
exit;
end;

{加入驱动程序文件名}
lstrcat(DriverFileName,'\Drivers\PortTalk.sys');
showmessagefmt('PortTalk: 拷贝驱动程序到%s',[DriverFileName]);

{拷贝驱动程序到System32/drivers目录,如果出错,一般是因为文件不存在。}

if (not CopyFile('PortTalk.sys', DriverFileName, FALSE)) then
begin
showmessagefmt('PortTalk: 拷贝驱动程序到以下位置出错:%s'+#$D#$A+
'请手工拷贝到system32/driver目录',
[DriverFileName]);
exit;
end;

{打开Service Control Manager}
SchSCManager := OpenSCManager (nil, { 机器 (nil = 本机) }
nil, { 数据库 (nil = 默认 }
SC_MANAGER_ALL_ACCESS); { 访问权 }
{
SC_HANDLE OpenSCManager(
LPCTSTR lpMachineName, // computer name
LPCTSTR lpDatabaseName, // SCM database name
DWORD dwDesiredAccess // access type
);
}

schService := CreateService (SchSCManager, { SCManager数据库 }
'PortTalk', { 服务个数 }
'PortTalk', { 显示名 }
SERVICE_ALL_ACCESS, { 权限 }
SERVICE_KERNEL_DRIVER, { 服务类别 }
SERVICE_DEMAND_START, { 启动类别 }
SERVICE_ERROR_NORMAL, { 出错控件类别 }
'System32\Drivers\PortTalk.sys', { 服务二进制文件 }
nil, { 加入的组 }
nil, { 标识 }
nil, { 隶属 }
nil, { 本地帐户 }
nil { 密码 }
);
{
SC_HANDLE CreateService(
SC_HANDLE hSCManager, // handle to SCM database
LPCTSTR lpServiceName, // name of service to start
LPCTSTR lpDisplayName, // display name
DWORD dwDesiredAccess, // type of access to service
DWORD dwServiceType, // type of service
DWORD dwStartType, // when to start service
DWORD dwErrorControl, // severity of service failure
LPCTSTR lpBinaryPathName, // name of binary file
LPCTSTR lpLoadOrderGroup, // name of load ordering group
LPDWORD lpdwTagId, // tag identifier
LPCTSTR lpDependencies, // array of dependency names
LPCTSTR lpServiceStartName, // account name
LPCTSTR lpPassword // account password
);
}

if (schService = 0) then
begin
err := GetLastError;
if (err = ERROR_SERVICE_EXISTS) then
showmessage('PortTalk: 驱动程序不存在。')
else showmessage('PortTalk:建立服务时发生未知的错误。');
end
else showmessage('PortTalk: 成功安装!');

{ 关闭Service Control Manager }
CloseServiceHandle (schService);
end;

这是一个例程,安装完驱动以后,要启动服务
qianqinghui 2003-10-07
  • 打赏
  • 举报
回复
驱动我用SetupAPI已经可以,但不知如何绑定端口,请各位多多帮忙,分数不够,可以再加
qianqinghui 2003-10-07
  • 打赏
  • 举报
回复
多谢naughtyboy,请问SC_HANDLE为何种类型,安装驱动是否支持Modem
qianqinghui 2003-10-06
  • 打赏
  • 举报
回复
问题是Setup API函数可以实现Modem的自动安装
aiirii 2003-10-06
  • 打赏
  • 举报
回复
如果你用installshield,wise等做安装程序的话,都可自己加入脚本或定义安装后再运行指定程序或调用dll啊;
代码下载地址: https://pan.quark.cn/s/581cd7c6c6b7 在信息技术行业,JavaScript(缩写为JS)主要应用于网页的前端交互功能,然而借助特定的技术手段,它同样能够完成与硬件设备例如串口通信的连接。所提及的标题“js接收串口数据,测试过完全可用的,不骗人”明确指出这是一个已经成功实现了JavaScript串口通信的案例,或许是一个规模较小的Web应用程序或网页模型,具备接收和处理串口发送的数据的能力。描述中指出,该应用程序被用于接收GPS数据,这通常关联到物联网(IoT)的应用场景,通过串口将GPS模块所采集的位置信息传递给JavaScript进行后续处理。"mscomm32.ocx"是由微软公司推出的一款ActiveX控件,其主要功能是进行串行通信,这表明这个解决方案可能基于ActiveX技术,而ActiveX控件主要在Internet Explorer浏览器中得到广泛支持。由于ActiveX控件存在安全方面的隐患以及现代浏览器对其功能的限制,使用时可能需要在用户计算机系统中进行注册表的编辑操作,以启用该控件。这一过程需要用户具备相应的操作权限,并且可能引发一定的安全风险。 在标签中,“js 接收串口数据 真正 可用的代码”进一步证实了这个资源是一个有效的JavaScript代码实现,适用于实际应用,且经过验证可以正常工作。压缩包内的"test.html"文件可能是用来演示如何运用此串口通信功能的测试性网页,用户可以通过打开这个HTML文档来观察和测试代码的执行效果。"说明文档.txt"文件则很可能包含了详细的操作步骤、使用提示或代码说明的文本资料,涵盖了如何设置环境、注册控件以及如何运用JavaScript代码与串口进行...

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧