请教,怎么样在win2000下实现拨号和挂断?
用以前的方法好像只在win98 下用得,2000下好像不行?谁能说说??
win2000的注册表中相应的项和98下不同!
用以前的方法好像只在win98 下用得,2000下好像不行?谁能说说??
win2000的注册表中相应的项和98下不同!
解决方案 »
- 如何屏蔽 PrintScreen键?如何屏蔽截屏软件的截屏功能?
- !模拟按键RSHIFT+END弹不起来了,请教各位大侠。
- 100分请问怎么在fastreport脚本里面使用变量
- PrintDBGridEh打印DBGridEh第一列的“总计”怎么为0啊?!解决问题后独立开帖散分啊……
- 请问,怎么创建象DELPHI环境那样的浮动工具栏??
- open client & odbc
- 送分!关于TWAIN协议(扫描仪)的问题
- 在中国可以实现多播吗(组播)?
- Delphi之未经证实的葵花宝典下载了打不开怎么办?错误信息如下:
- 请问天才如何找到下面的文章? 高分相送。
- 如何把'c:\program\...\c80.exe'中的C80提取出来. 其中C80的长度是不知道的,可能是c8080等可以确定的是它的前面一定'/'后面是'.exe'有什
- 如何得到某一控件的所有可选属性?
function DisconnectActiveConnection: Boolean;
var
RasEntry: TRasEntry;
EntryInfoSize: Cardinal;
DeviceInfoSize: Cardinal;
RasGetEntryPropertiesResult: Integer;
begin
ZeroMemory(@RasEntry, SizeOf(TRasEntry));
RasEntry.dwSize := SizeOf(TRasEntry);
EntryInfoSize := SizeOf(TRasEntry);
RasGetEntryPropertiesResult := RasGetEntryProperties(nil,
MyActiveEntryName), @RasEntry, EntryInfoSize, nil, DeviceInfoSize);
if (RasGetEntryPropertiesResult = 0) then
Result := DisconnectDevice(StrPas(RasEntry.szDeviceName));
end;
上面的方法不行吧!我试了好像2000下是不行的!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
Error:integer;
begin
Error:=winexec('rundll32.exe rnaui.dll,RnaDial'+'拨号连接因特网',9);
if Error=0 then
Showmessage('系统内存耗尽');
if Error=ERROR_BAD_FORMAT then
Showmessage('拨号程序是非法32位可执行程序');
if Error=ERROR_FILE_NOT_FOUND then
Showmessage('拨号程序么没有找到');
if Error=ERROR_PATH_NOT_FOUND then
Showmessage('拨号程序所在路径不正确');end;end.
没辙了??????
你找一下如何得到当前拨号连接的句柄。。然后用RasHangUp即可