2007年7月12日
摘要：
procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(TLastInputInf... 阅读全文
摘要：
比如将C:\My Installations\Delphi7Compent\Media\CDROM\Disk Images\Disk1\data2.cab显示为C:\My Installati...\data2.cabAPI函数为ShlWApi.dll中的PathCo... 阅读全文
摘要：
unit UMute;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName... 阅读全文
摘要：
在Delphi中，用Length来取字符长度时，如果有汉字，那它会将汉字当成一个字符来计算，而Copy把汉字又当成两个来处理，关键的是Copy一个字符后，我如何知道是否取的是汉字呢？是否把一个汉字取完整了呢？ 判断字符串的长度我们可以不用Length，改用Str... 阅读全文
摘要：
function GetMAC(CardNo: integer): string;//CardNo指定多个网卡适配器中的哪一个0，1，2...var NCB: TNCB; // Netbios control block file://NetBios控制块 ADA... 阅读全文
摘要：
Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey('Control PanelDesktop',False); Reg.WriteString('Til... 阅读全文
摘要：
procedure TWPThread.Jpg2Bmp(Src, Dst: String);var SrcJpg:TJpegImage; DstBitMap:TBitMap;begin SrcJpg:=TJpegImage.Create; SrcJpg.Lo... 阅读全文
摘要：
如果需要在Delphi内对某一字符串进行分隔（字符串有固定的分隔标记），一般情况下好像都是自己写一个函数来实现。其实在Delphi内有一个写好的函数，只是不在常用的单元内。它在xmlutil单元内，名称是Split0。 这是原形，第一个参数是待分隔的字符串，第... 阅读全文
摘要：
unit UVersionInfo;interfaceuses Windows, SysUtils;function GetVersionValue(FileName,QueryName:string):String;implementationfunction Ge... 阅读全文
摘要：
Create function fun_getPY ( @str nvarchar(4000) )returns nvarchar(4000)asbegin declare @word nchar(1),@PY nvarchar(4000) set @... 阅读全文