delphi - 如何弹出 "Connect To"对话框？

Question

如何使用delphi弹出这个表单？是 ShellExecuteEx 或 ShellExecute 可以做到这一点吗？

Answer 1

您可以从命令行执行此操作。 (至少，对于我来说Win7...()

 rundll32.exe van.dll,RunVAN

因此，只需将其包装在合适的 ShellExecute 或类似调用中即可。

请注意，该对话框设计为在系统托盘中弹出。我不知道如何让它出现在更明显的地方。

另外，看看这个线程。这里提到的另一种方法描述了如何以可能更有用的方式做到这一点:

https://groups.google.com/forum/?hl=en&fromgroups=#!topic/microsoft.public.development.device.drivers/nPn-PH3g_2Q

<小时/>

如果您想从程序中调用此函数，只需跳过 rundll32 调用即可更简​​单。您可以自己加载 DLL 并调用该函数。例如:

procedure RunVANW(hwnd: HWND; hinst: HINST; lpszCmdLine: LPSTR; 
    nCmdShow: Integer); stdcall; external 'van.dll';

procedure ShowViewAvailableNetworksDialog;
begin
  RunVANW(0, 0, nil, 0);
end;

我预计此功能在旧版本的 Windows 上不可用，并且几乎肯定会在未来版本的 Windows 上进行修改。因此，您可能更喜欢使用 LoadLibrary 和 GetProcAddress 编写 DLL 导入，并根据 RunVANW 函数是否可用在运行时切换行为.