<ul id="ymses"></ul>

<tfoot id="ymses"></tfoot>

在DELPHI中如何調用系統對話框

2019-11-18 18:26:55

字體：大中小

來源：轉載

供稿：網友

在寫程序的時候，有時我們為了省力，或者為了別的目的，我們常常想借用系統的對話框，那么，如何才能調用系統對話框呢？一位朋友是VB中是這樣調用“打開方式”對話框的：
winexec(PChar('rundll32  shell32,OpenAs_RunDLL  '+FilePath),SW_SHOWDEFAULT);
這句代碼是運行rundll32.exe，讓它調用shell32.dll中的資源來實現的。方法可行，但是有許多像我一樣的菜鳥并不明白如何調用shell32.dll中的寶貴資源，我們應該如何去做呢?
下面說說我是如何調用的:
一、調用系統“About”對話框：
首先在uses中加入SHellApi，
然后寫下如下代碼：
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® Windows® or Microsoft Windows NT® icon.
什么意思我想不用我來翻譯了吧，這些東西自己去看最好。
二、調用關機對話框
我們只要把begin部分代碼改為
begin
  shellapp := CreateOleObject('Shell.application');
  shellapp.ShutDownWindows;
end;
其他部分不變。運行點擊button我們就可以看到標準的系統關機對話框了。
其實這還是調用的WindowsAPI函數shutdownwindows.
這個部分使用的是windows的shell application的method中的兩個函數。method其他的函數還有:
BrowseForFolder、CascadeWindows、ControlPanelItem、EjectPC、Explore、FileRun、FindComputer、FindFiles、Help、MinimizeAll、NameSpace、Open、RefreshMenu、SetTime、TileHorizontally、TileVertically、TrayProperties、UndoMinimizeALL。我也只是學會了使用其中的幾個函數。詳細情況請大家查看MSDN中有關shell object的內容。

我最想說的是，學windows下的程序一定要用MSDN。這個庫里的資源讓我實在驚嘆不已，大家可以看一看，我想你也會這樣認為的。

上一篇：用Delphi編寫數據報存儲控件

下一篇：Delphi使用VB編寫的ActiveX控件全攻略