Question

delphi点击按钮执行

delphi 点击一个按钮执行 regsvr32 /u nvcpl.dll 这句代码 要怎么写
或者一个按钮执行一个批处理？本人刚刚学这个。请教一下

我要调用的不是系统自带的。
Winexec(pchar('c:\windows\system32\clac.exe'),SW_SHOW); 这句可以改 但是会跳出一个组件注册成功的对话框，能否改改为自己需要的话

我是要执行代码，不是把代码写入memo1

Answer 1

在button的click事件中写
Winexec('regsvr32 /u nvcpl.dll -s ',SW_HIDE);
就没有注册成功的对话框了

Answer 2

用Winexec,就两个参数.
比如我要打开calc
Winexec(pchar('c:\windows\system32\clac.exe'),SW_HIDE);
或者是
Winexec(pchar('c:\windows\system32\clac.exe'),SW_SHOW);
大概思路就是这样.
调用 regsvr32 /u nvcpl.dll 应该也差不多吧.
自己多练习下.

Answer 3

uses Shellapi
1.放一个MEMO
2.MEMO.LINES.ADD('regsvr32 /u nvcpl.dll');
3.MEMO.LINES.SAVETOFILE('D:\BB.BAT');
4.ShellExecute(0, nil, PChar('D:\BB.BAT'), nil, nil, SW_NORMAL);
5.拿分来。

Answer 4

Winexec('regsvr32 /u nvcpl.dll ',SW_HIDE);
弹出来那个对话没有办法,系统自带的.除非cbt或者shell钩子

如果不用regsvr32 命令可以避免这个对话框.
先loadlibary()你这个dll,然后再GetProcAddress获得DllRegisterServer的地址,然后运行这个函数.ok.就会有框框出来了.
下面这段的代码在家里面.有空发给你