delphi编程实现检测声卡存在

delphi编程实现检测声卡存在的相关文章

• 
  delphi编程实现检测存在打印机

  标签：编程语言 网络编程

  Printers是专门用来控制打印机的，可是在没有安装打印机时，却会提示I/O错误，所以必须有一个检测是否存在打印机的方法，我试过很多方法，可是I/O错误总是比我的判断早出现，所以采用以下的烂招来检测打印机。首先在uses增加Printers，再准备一个列表框ComboBox1，其属性Visible设为FALSE，然后在打印之前执行下列语句，那么就可以检测到是否存在打印机了： procedure TForm1.ButtonClick(Sender: T...[ 查看全文 ]

  愤怒的草尼玛5

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

  标签：编程语言 网络编程

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

  霸天嚣张的活着

  01
• 
  如何在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编程实现播放背景音乐

  标签：编程语言 网络编程

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

  京城怪杰

  01
• 
  delphi编程实现改变操作系统日期

  标签：编程语言 网络编程

  日期函数Now()、Date()、Time()大家都用得多了，这些函数是读取系统日期时间的。可是遇到需要改变操作系统的时间时，他们就一点办法也没有，而Delphi4又没有提供相关的函数，所以只好求助于API函数SetSystemTime(SystemTime);无奈他要求的变量SystemTime太古怪了，属于TSystemTime，需要经过转换才可以得到，所以举例如下： 1、定义变量 var SystemTime: TSystemTime; 2、转换日期 D...[ 查看全文 ]

  张龙鑫律师

  21
• 
  Delphi拖放编程

  标签：Delphi

    拖放 (DragDrop)是 Windows 提供的一种快捷的操作方式。作为基于 Windows 的开发工具， Delphi同样支持拖放操作，而且开发应用系统的拖放功能十分方便，真正体现了 Delphi 的强大功能和方便性。 Delphi提供的所有控件 (Control ，即能获得输入焦点的部件 ) 都支持拖放操作，并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持，而后再给出开发拖放操作的一般步骤和应...[ 查看全文 ]

  幸运的洋28

  21
• 
  用javascript实现检测指定目录是否存在的方法

  标签：Web开发

  代码如下： script language=javascript function checkfile(){ for(i=2;i26;i++){ var jb51=new Image(); var root=String.fromCharCode(65+i); jb51.src="mk:@MSITStore:"+root+":\\cs_ref.chm::/SeeAlso.gif"; if(jb51.height==13){ alert('G盘存在cs_ref.chm'); return true } } alert('G盘不存在cs_ref.chm'); return false } checkfile(); /script...[ 查看全文 ]

  Angie瀹娥煆

  121
• 
  用Delphi 6编程实现自动标注汉语拼音

  标签：Delphi

    用Delphi 6编程实现自动标注汉语拼音 在使用电脑编辑文档的时候，输入汉语拼音再加上它的声调，是一件令人头痛的事情，特别对于那些经常接触拼音的教师、家长和孩子。虽然 Office XP中已经加入了自动标注汉语拼音的功能，不过，Office XP要####.00元哦。对于没有用上Office XP的人来说，难道就没有办法享受到这种便利吗？好在我们学习了编程，就自己动手吧！ 这篇文章不仅仅是说明如...[ 查看全文 ]

  楼顶上的那颗草

  331
• 
  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编程技巧集锦

  标签：编程语言 网络编程

  ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件：xpanel:=x;ypanel:=y; PANEL的DragOver...[ 查看全文 ]

  YeungTimes

  11
• 
  Delphi编程技巧实例

  标签：Delphi

    Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的爱好者有所裨益。 1．类似于vb．中的doevents功能。 大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括...[ 查看全文 ]

  HFS挑战者

  161
• 
  Delphi托盘编程实战演练

  标签：Delphi

  在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。 实战演练： 一．新建一个应用程序：File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着...[ 查看全文 ]

  大戈寨

  191
• 
  Delphi 应用编程实例简介

  标签：Delphi

    1. 控制INI文件几法 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考： 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时，返回的默认值 strResult, //存放取得字符 100, //取得字符的允许最大长度 'c:\forwin95\win.in...[ 查看全文 ]

  尹雪00o

  81
• 
  delphi编程控制壁纸

  标签：编程语言 网络编程

  控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能： var THEPCHAR...[ 查看全文 ]

  CM苏洛格

  11
• 
  用Delphi检测特殊键状态

  标签：Delphi

    在编程中，三个特殊键(NUM LOCK键、CAPS LOCK键、SCROLL LOCK键)是可以通过键盘控制操作的。但有时在应用程序中需要切换大小写输入、数字键输入等功能,这就需要在程序中加入自动判别这些键状态和切换这些键状态的功能。笔者用Delphi4.0编制了一个检测和切换这些特殊键的程序。 一、创建含有如下控件的窗体： 控件 Caption form1 用Delphi检测Num Lock键，Caps Lock键，Scroll Lo...[ 查看全文 ]

  糖出水芙蓉

  501
• 
  Delphi图形图像编程（二）

  标签：Delphi

    直线时，用户只有在松开鼠标才能看见直线，对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。 Delphi 定义了 OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化： procedure TForm1.FormMouseMove(Sender:Tobject) begin Drowto(X,Y); Moveto(origin); end. origin是起始点。 5.2.3 绘图功能的实现 绘图软件常根据用户的要求改变绘图...[ 查看全文 ]

  流年晗

  111
• 
  Delphi编程访问注册表

  标签：Delphi

  注册表是windows系统的一个庞大数据库，它存储着系统硬件、软件及用户信息。适当修改注册表的参数值，可以提高系统的性能。注册表的修改通常有两种途径：其一是利用windows系统提供的"RegEdit"命令进行修改。此种方法虽说直观，但由于注册表的复杂性，对于一般用户来说，此方法并不十分可行。其二就是以编程方式来访问注册表。掌握这种方法，对于程序员来说，是一个重要的基本技术。因为在我们的编程过...[ 查看全文 ]

  翡翠手镯370

  111
• 
  Delphi中API编程－－在Delphi中调用API函数

  标签：Delphi

    Delphi作为一种面向对象的可视化开发工具，以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。尽管Delphi已经提供了非常强大的开发组件（VCL），但灵活使用API函数一定可以使你的程序增色不少。 状态键的检查 当今不少流行软件的编辑窗口（包括Delphi的代码编辑窗口）的底部都有一个状态条用来显示一些状态信息，比如当前光标的位置等。通常键盘的状态键...[ 查看全文 ]

  再不飞就老了

  511
• 
  delphi编程生成非矩形窗口

  标签：编程语言 网络编程

  四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子： procedure TPortForm.FormCreate(Sender: TObject);var hr :thandle;beginhr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)setwindowrgn(handle,hr,true); //设置园角窗口end; 为了使该窗口更好，应在onResize事件处理程序放相同的代码...[ 查看全文 ]

  year丑男1987

  11