martian6125 - 博客园

2007年9月22日

摘要： unit CheckTreeview;interfaceuses Windows, Messages, SysUtils, Classes, Controls,Commctrl,ComCtrls;const TVIS_CHECKED = $2000;type ... 阅读全文

posted @ 2007-09-22 19:05 martian6125 阅读(236) 评论(0) 推荐(0) 编辑

摘要： procedure Tfrm1.DBGrid1MouseUp(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginDBGrid1.ShowHint := true;... 阅读全文

posted @ 2007-09-22 19:03 martian6125 阅读(152) 评论(0) 推荐(0) 编辑

2007年8月8日

摘要： method1:1.如何查看SQL Server2000的版本号 select serverproperty('Edition') select serverproperty('ProductLevel') serverproperty函数返回有关服务器实例的属... 阅读全文

posted @ 2007-08-08 08:47 martian6125 阅读(167) 评论(0) 推荐(0) 编辑

2007年7月12日

摘要： procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(TLastInputInf... 阅读全文

posted @ 2007-07-12 07:41 martian6125 阅读(213) 评论(0) 推荐(0) 编辑

摘要：比如将C:\My Installations\Delphi7Compent\Media\CDROM\Disk Images\Disk1\data2.cab显示为C:\My Installati...\data2.cabAPI函数为ShlWApi.dll中的PathCo... 阅读全文

posted @ 2007-07-12 07:40 martian6125 阅读(165) 评论(0) 推荐(0) 编辑

摘要： unit UMute;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName... 阅读全文

posted @ 2007-07-12 07:39 martian6125 阅读(285) 评论(0) 推荐(0) 编辑

摘要：在Delphi中，用Length来取字符长度时，如果有汉字，那它会将汉字当成一个字符来计算，而Copy把汉字又当成两个来处理，关键的是Copy一个字符后，我如何知道是否取的是汉字呢？是否把一个汉字取完整了呢？判断字符串的长度我们可以不用Length，改用Str... 阅读全文

posted @ 2007-07-12 07:37 martian6125 阅读(307) 评论(0) 推荐(0) 编辑

摘要： function GetMAC(CardNo: integer): string;//CardNo指定多个网卡适配器中的哪一个0，1，2...var NCB: TNCB; // Netbios control block file://NetBios控制块 ADA... 阅读全文

posted @ 2007-07-12 07:36 martian6125 阅读(233) 评论(0) 推荐(0) 编辑

摘要： Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey('Control PanelDesktop',False); Reg.WriteString('Til... 阅读全文

posted @ 2007-07-12 07:35 martian6125 阅读(112) 评论(0) 推荐(0) 编辑

摘要： procedure TWPThread.Jpg2Bmp(Src, Dst: String);var SrcJpg:TJpegImage; DstBitMap:TBitMap;begin SrcJpg:=TJpegImage.Create; SrcJpg.Lo... 阅读全文

posted @ 2007-07-12 07:34 martian6125 阅读(361) 评论(0) 推荐(0) 编辑