procedure GetCDROM(var CD:char); var str:string; Drivers:Integer; driver:char; i,temp:integer; begin Drivers:=GetLogicalDrives; temp:=(1 and Drivers); for i:=0 to 26 do begin if temp=1 then begin driver:=char(i integer(''''a'''')); str:=driver '''':...

2008-04-09 04:20:31

Delphi中用于读写(I/O)的三种文件类型 一.旧pascal文件类型 用旧文件变量表示的文件类型,比如 F:text,F:File. 定义了三类:有类型,无类型,字符类型以及一些Delphi的文件操作函数.比如:AssignPrn,Writeln,这些文件类和Windows文件句柄不兼容 二.Windows文件句柄(handle)...

2008-04-09 04:20:30

program get_ip; uses winsock,sysutils; VAR ch : ARRAY[1..32] OF Char; i : Integer; WSData: TWSAData; MyHost: PHostEnt; begin IF WSAstartup(2,wsdata)0 THEN BEGIN Writeln(''''can''''''''t start Winsock: Error '''',WSAGetLastError); Halt(2); END; try I...

2008-04-09 04:20:30

成员 说明 Pwfx 一个 TWaveFormatEX结构指针用来接收结果（这里我们实际上用的是TACMFormat）。 Cbwfx 接收结果的缓冲区大??CbStruct 结构大??另一个值得一提的成员是 fdwStyle, 它包括用来指定格式额外信息的标志。特别是下面这个标志： ACMFORMATCHOOSE_STYLEF_I...

2008-04-09 04:20:29

Q：手册中关于怎样使用TQuery 的误导 A：用Delphi开发数据库时经常会用到TQuery， 手册中有很多关于它的例子， 大致结构如下： Query1.Close; Query1.ParamByName(''''ID'''').AsString := ''''001''''; Query1.Open; String := Query1.FieldByName(''''ID'''').AsStri...

2008-04-09 04:20:29

－使用Audio Compression Manager（ACM） 作者／ Peter Morris 翻译／陈省 在几年以前 IP 电话被炒的沸沸扬扬，但用过的人都觉得这个技术非常不成熟，语音质量很差，时断时续，还经常有延迟，结果这项技术的应用没有普及开来。但随着 Internet 应用的越来越广泛以及相...

2008-04-09 04:20:27

没有用过c语言，就不能算是真正的程序员；没有用汇编编过系统软件及不能算是懂计算机；delphi何物 ？？？？？？乳臭未干的小子，你再能也只能运行在c和汇编程序编的系统平台上；有种的delphi程序员用delphi 自己编一个操作系统出来，不要忘了你爹姓什么，叫windows,你...

2008-04-09 04:20:27

田志刚 (2000-10-19) 在Windows 9x中系统桌面和开始菜单可以说是它的一大特色，其实我们可以利用Delphi轻易地在应用程序中实现这种技术 ： 新建一个应用程序， 将Form1窗体的BorderStyle属性设置为bsNone，FormStyle属性设置为 fsStayOnTop，WindowState属性设置为wsMa...

2008-04-09 04:20:26

Delphi提供了关于文件操作的许多函数，其中关于目录操作的有目录的创建与删除、设置当前目录、获取当前目录等。目录的删除有函数（Function）RemoveDir和过程（Procedure）RmDir，但它们都只能删除空目录，对于非空目录则不能删除。要实现删除整个目录树（DelTree）必...

2008-04-09 04:20:26

在数据处理量很大的情况下，如何在数据处理的同时响应用户操作？Windows95/98和WindowsNT作为多线程的多任务操作系统，其调度单元是线程，即线程是系统分配处理器时间资源的基本单元，所以我们可以利用线程实现在处理大批量数据的同时响应用户操作。 DELPHI作为一个优...

2008-04-09 04:20:25