delphi实现关闭Windows

delphi实现关闭Windows的相关文章

• 
  delphi编程实现弹出、关闭CD-ROM驱动器

  标签：编程语言 网络编程

  如果你想做一个CD播放器的话，那本技巧一定少不了。这是一个控制CD-ROM驱动器门弹出和关闭的方法，首先需要在uses部分加入mmsystem，接着增加两个TButton按钮，在按钮事件里写入下列语句，记住在调用完毕后一定要显示或判断returnstring，要不程序将出错： procedure TForm1.Button1Click(Sender: TObject);var returnstring:pchar;begin//弹出returnstring:=驱动器打开错误;mciSendString(set CDA...[ 查看全文 ]

  DT小杨

  11
• 
  delphi实现控制声音音量

  标签：编程语言 网络编程

  当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChange事件都写上下列语句： procedure TForm1.Tr...[ 查看全文 ]

  美好人生685

  521
• 
  用Delphi实现文件关联

  标签：Delphi

    文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} Reg := TRegistry...[ 查看全文 ]

  依小然Z

  101
• 
  用Delphi实现打印功能

  标签：Delphi

    给单位开发软件，涉及一打印模块，我感到颇有兴趣，就拿来其中的一个小功能模块与读者共享。下面以打印在纸张的矩形框内为例简单介绍： 程序要求： 单击[打印]按钮，把Memo的内容最多分三行打印出来，每行最多能容纳22个三号字，限定汉字上限为50个汉字。 编程思路： 用LineTo和MoveTo函数画一矩形框，根据Memo组件的内容长度用Copy函数把它分割为1到3个子串。在矩形框...[ 查看全文 ]

  就差你了go

  1961
• 
  Delphi7.0实现添加记录的“携带”实现

  标签：Delphi

  在数据库管理系统中，数据录入是数据处理的基本功能，录入操作方便与否是衡量数据库应用程序交互良莠的指标之一。录入中除了应要对录入数据进行合法检验外，还应为用户提供更多的方便操作，即对于“规范性”数据，如：性别、职称等字段的数据，应尽可能供用户“选择”录入，而非直接文字输入，另外，如：出生年月、联系电话、邮编等类似名称的字段，程序应设置数据录入格式，这可以从一定程度 上“规范...[ 查看全文 ]

  坑人嘚圆通

  361
• 
  用DELPHI实现文件加密压缩

  标签：编程语言 网络编程

  用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘 点击下载此详细说明文件 概述： 在这篇文件中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。 关键字：加密压缩、Zlib、流、资源文件 引 言： 在日...[ 查看全文 ]

  1127787680

  341
• 
  delphi编程实现检测声卡存在

  标签：编程语言 网络编程

  如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Caption :=系统没有发现声卡;end; [ 查看全文 ]

  尕伍儿

  11
• 
  用Delphi轻松实现背景播放

  标签：Delphi

  如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法 修改TWinControl，让Handle可写。 建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二种方法比较好. TSurpriseDisplay=class(TWinControl) protected...[ 查看全文 ]

  回头看帖

  151
• 
  Delphi实现窗体控件自由摆布

  标签：Delphi

    Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件  在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事： 1、设置进入控件边缘的光标形状； 2、改变控件的大小及位置； 3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下： 1、修改控件光标。只...[ 查看全文 ]

  风萧笑兮

  961
• 
  Delphi中如何实现透明按钮

  标签：Delphi

    各位亲爱的读者，在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时，我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果？笔者在互联网搜索了不少时间也没有找到这方面的控件，于是决定自己DIY一番，下面笔者就将自己的经验与广大读者共享一番。 要实现透明按钮，共需要三个控件-image、label、bevel。其中image控件是为了突出透明...[ 查看全文 ]

  兮贝城

  1541
• 
  delphi编程实现动态创建别名

  标签：编程语言 网络编程

  对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，...[ 查看全文 ]

  霸天嚣张的活着

  01
• 
  用Delphi实现超级链接

  标签：编程语言 网络编程

  在许多程序的关于对话框中，我们常可以看到超级链接式的标签，只须轻轻一点，就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页，或者远程登录，或者自动链入新闻组 如果你苦于找不到实现这些功能的Delphi控件，又无法在帮助文件中找到相关主题，那不妨参照下文，亲手一试！ 别看上述的超级链接功能繁多，其实用一条函数就能完成，那就是ShellAPI单元中的ShellExecute。不要误以为...[ 查看全文 ]

  你有这用户名吗

  641
• 
  用Delphi实现远程屏幕抓取

  标签：Delphi

    在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 一、软硬件要求。 Windows95/98对等网，用来监视的计算机（...[ 查看全文 ]

  lifulailawyer

  1011
• 
  Delphi实现远程串口的数据采集

  标签：Delphi

  摘要：本文介绍了在Windows平台下串口开发的方法，并给出一个使用Delphi设计的远程数据采集的实例。 关键词：远程数据采集 AcitiveX MSComm控件 1 引言 在工业生产实践中，使用PC机对Inprise公司推出的Delphi是一种功能强大的高级编程语言，其具有可视化面向对象的特征，特别适合Windows平台下的图形界面和用户程序的编制。本文就介绍在Windows平台下用Delphi开发串口的方法和使用Delph...[ 查看全文 ]

  那夜我喝醉了0

  451
• 
  如何在Delphi中实现ASP编程

  标签：Delphi

    众所周知，ASP技术是我们在以internet/intranet为平台的web程序的主要技术，在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言，其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题，因此我们一般在开发web系统时用高级语言编写asp执行体，然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的，因...[ 查看全文 ]

  兮謡话

  41
• 
  delphi编程实现在Word插入字符

  标签：编程语言 网络编程

  现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙： procedure TForm1.Button1Click(Sender: Tobject);var MSWord: Variant;beginMSWord := CreateOLEObject(Word.Application);//连接WordMSWord.Documents.Open(FileName:=d:\test.doc, ReadOnly:=True);//打开外部Word文档MSWord.Visible := 1;//是否显示文件编辑MSWord.ActiveDocume...[ 查看全文 ]

  liangtian0107

  511
• 
  DELPHI中自适应表单的实现

  标签：编程语言 网络编程

  我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终 要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会 走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。 一、根据新的分辨率自动重画表单及控件 先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）...[ 查看全文 ]

  wwwcom881

  171
• 
  Delphi“流”实现文件加密器

  标签：编程语言 网络编程

  数据流是面向对象程序设计语言中面向对象思想的典型体现，它彻底地取代了早期的利用函数实现输入输出的功能，克服了用函数实现输入输出功能的诸多弊端。简单来说，流就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中，可定义一些处理数据的基本操作，如读取数据、写入数据等，程序员是对流进行操作，而不用关心流的另一头数据的真正流向。流不但可以处理文件，还可以处理动态内存、网络数据...[ 查看全文 ]

  V項总

  91
• 
  delphi编程实现播放背景音乐

  标签：编程语言 网络编程

  如果要做一些比较艺术化的程序时，你会想到插入背景音乐，这时你是否使用了TMediaPlayer控件来播放音乐呢？其实我们大可放弃该方法，直接使用WINDOWS为 我们提供的API函数来播放音乐，方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志 procedure TForm1.Button1Click(Sender: TObject);begin//播放音乐MCISendString(OPEN e:\1.MID TYP...[ 查看全文 ]

  京城怪杰

  01
• 
  Delphi实现同类型文档自动合并

  标签：Delphi

  最近，买了一张英语900句的学习光盘，因为没有相应的书面文字材料，就想自己将光盘中的文档提取出来，可一打开光盘，发现虽然每一句都有相应的详细文字材料，但每一句都单独存放在一个独立的RTF文档中（Sentence001.rtf至Sentence900.rtf），使用起来非常麻烦，于是就想将所有900句句型的文字材料合并到一起，即将900个独立的文档合并为一个文档。 2.解决方法 2.1 常规方法 首先想...[ 查看全文 ]

  燃烧sheng命

  451