如何使用Delphi实现弹出连接数据库的对话框？

本文共计351个文字，预计阅读时间需要2分钟。

使用Delphi弹出这个表单，可以使用ShellExecute或ShellExecuteEx函数。以下是使用ShellExecute的示例代码：

delphiprocedure ExecuteShellCommand(const Command: string);var Shell: TShellExecute;begin Shell :=TShellExecute.Create(nil); try Shell.ExeName :='rundll32.exe'; Shell.Parameters :='van.dll,RunVAN'; Shell.Show :=seNone; Shell.Execute; finally Shell.Free; end;end;

// 调用函数执行命令ExecuteShellCommand('rundll32.exe van.dll,RunVAN');

此代码通过调用rundll32.exe运行van.dll中的RunVAN函数，实现从命令行执行操作。

如何使用delphi弹出这个表单？
是 ShellExecuteEx还是ShellExecute可以做到这一点？ 从命令行,您可以执行此操作. (至少,在我的Win7上…()

rundll32.exe van.dll,RunVAN

因此,只需将其包装在合适的ShellExecute或类似的调用中.

请注意,该对话框旨在弹出系统托盘.我不知道你怎么能让它出现在更明显的地方.

另外,看看这个帖子.这里提到的另一种方法描述了如何以一种可能更有用的方式做到这一点：

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函数是否可用.