在DELPHI中如何调用系统对话框计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:34:41
来源 100Test.Com百考试题网

　　在写程序的时候，有时我们为了省力，或者为了别的目的，我们常常想借用系统的对话框，那么，如何才能调用系统对话框呢？一位朋友是VB中是这样调用“打开方式”对话框的：
　　winexec(PChar(\rundll32 shell32,OpenAs_RunDLL \ FilePath),SW_SHOWDEFAULT).
　　这句代码是运行rundll32.exe，让它调用shell32.dll中的资源来实现的。方法可行，但是有许多像我一样的菜鸟并不明白如何调用shell32.dll中的宝贵资源，我们应该如何去做呢?
　　下面说说我是如何调用的:
　　一、调用系统“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这个函数。在MSDN2003中这个函数是这样描述的：
　　ShellAbout Function
　　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 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] Pointer 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