2022年教你在DELPHI中如何调用系统对话框Delphi教程.docx

《2022年教你在DELPHI中如何调用系统对话框Delphi教程.docx》由会员分享，可在线阅读，更多相关《2022年教你在DELPHI中如何调用系统对话框Delphi教程.docx（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年教你在DELPHI中如何调用系统对话框Delphi教程 在写程序的时候，有时我们为了省力，或者为了别的目的，我们经常想借用系统的对话框，那么，如何才能调用系统对话框呢？一位挚友是VB中是这样调用“打开方式”对话框的： winexec(PChar(rundll32 shell32,OpenAs_RunDLL +FilePath),SW_SHOWDEFAULT); 这句代码是运行rundll32.exe，让它调用shell32.dll中的资源来实现的。方法可行，但是有很多像我一样的菜鸟并不明白如何调用shell32.dll中的珍贵资源，我们应当如何去做呢? 下面说说我是如何调用的: 一、

2、调用系统“About”对话框： 首先在uses中加入SHellApi， 然后写下如下代码： procedure TForm1.Button1Click(Sender: TObject); var shellapp: variant; begin ShellAboutW(0,Timer v1.03,kedy版权全部,1); end; 其他步骤我不详述。运行后点击button就会弹出标准的WINDOWS关于对话框。对话框标题为关于Timer v 1.03。大家可 以看到，在程序中我运用了ShellAboutW这个函数。在MSDN2022中这个函数 是这样描述的： ShellAbout Functi

3、on Displays a ShellAbout dialog box. Syntax int ShellAbout( HWND hWnd, LPCTSTR szApp, LPCTSTR szOtherStuff, HICON hIcon ); Parameters hWnd in Window handle to a parent window. This parameter can be NULL. szApp in Pointer to a null-terminated string containing text that will be displayed in the title

4、 bar of the ShellAbout dialog box and on the first line of the dialog box after the text Microsoft. If the text contains a separator (#) dividing it into two parts, the function displays the first part in the title bar and the second part on the first line after the text Microsoft. szOtherStuff in P

5、ointer to a null-terminated string containing text that will be displayed in the dialog box after the version and copyright information. hIcon in Icon that the function displays in the dialog box. If this parameter is NULL, the function displays the Microsoft® Windows® or Microsoft Windows N

6、T® icon. 什么意思我想不用我来翻译了吧，这些东西自己去看最好。 二、调用关机对话框 我们只要把begin部分代码改为 begin shellapp := CreateOleObject(Shell.Application); shellapp.ShutDownWindows; end; 其他部分不变。运行点击button我们就可以看到标准的系统关机对话框了。 其实这还是调用的WindowsAPI函数shutdownwindows. 这个部分运用的是windows的shell application的method中的两个函数。method其他的函数还有: BrowseForFol

7、der、CascadeWindows、ControlPanelItem、EjectPC、Explore、FileRun、FindComputer、 FindFiles、Help、 MinimizeAll、NameSpace、Open、RefreshMenu、SetTime、TileHorizontally、 TileVertically、TrayProperties、 UndoMinimizeALL。我也只是学会了运用其中的几个函数。具体状况 请大家查看MSDN中有关shell object的内容。 我最想说的是，学windows下的程序肯定要用MSDN。这个库里的资源让我实在惊羡不已，大家可以看一看，我想你也会这样认为的。