教你在DELPHI中如何调用系统对话框

2016-01-29 14:12 114 1 收藏

教你在DELPHI中如何调用系统对话框,教你在DELPHI中如何调用系统对话框

【 tulaoshi.com - Delphi 】

 
在写程序的时候,有时我们为了省力,或者为了别的目的,我们常常想借用系统的对话框,那么,如何才能调用系统对话框呢?一位朋友是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® 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。这个库里的资源让我实在惊叹不已,大家可以看一看,我想你也会这样认为的。

 

来源:http://www.tulaoshi.com/n/20160129/1492749.html

延伸阅读
标签: 电脑入门
通过WPS文字的页面设置对话框我们可以设置文档的页边距、布局、分栏等。一般情况下,我们可以通过单击文件菜单选择页面设置命令来打开它。次数多了这样操作起来有些烦琐,有没有简单的方法呢?答案是肯定的。 方法如下: 方法一:在垂直标尺的任何地方双击可以显示页面设置对话框。 方法二:如果你想通过双击水平标尺来显示页面设置对话框...
在对话框程序中,我们经常是利用对话框上的子控件进行命令响应来处理一些事件。如果我们想要让对话框(子控件的父窗口)类来响应我们的按键消息,我们可以通过ClassWizard对WM_KEYDOWN消息进行响应,当程序运行后,我们按下键盘上的按键,但对话框不会有任何的反应。这是因为在对话框程序中,某些特定的消息,例如按键消息,它们被Windows内部...
标签: windows系统
Win8系统如何找回卸载确认对话框   在Win8系统中,用户每次通过控制面板卸载程序时,系统都会询问用户是否确定卸载。同时我们也可以勾选"以后不再显示对话框",这样以后再卸载程序就不会有这个提示了。接着问题就来了,我们该如何让这个卸载确认对话框重新出现呢?下面系统之家图老师小编就为大家介绍一下。 1.我们...
标签: Web开发
    1.将下面一段代码插入head与/head之间: script function rusure() {  question = confirm("确实要去进入吗?")  if (question !="0") { window.open("","测试公告窗口","width=340,height=163,toolbar=0,status=0,menubar=0,resize=0"); } } /script     2.在链接标签内加入onclick()语句...
用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是VB的通用对话框没有预览的功能,为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。 程序示例: 程序功能说明: 在窗体的file1中选择一个图片文件,点选“预览”复选框,image控件就显示相应的图片,label1就显示该图片的大小。 ...

经验教程

909

收藏

12
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部