摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cli... 阅读全文
摘要：
//声明:GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolumeSerialNumber: PDWORD; {磁盘驱动器卷标序列号} var lpMaximu... 阅读全文
摘要：
unit UGBBig5Convert;interfaceusesClasses, Windows;typeTGBBIG5Convert = class(TObject)publicclass function BIG5ToGB(BIG5Str : String): AnsiString;class function GBToBIG5(GBStr : String): AnsiString;end... 阅读全文
摘要：
unit Find_Unit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TLHelp32, ComCtrls;type TFindForm = class(TForm) Button1: TButton; Edit1: TEdit; Edi... 阅读全文
摘要：
function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean;var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: PVSFixedFileInfo;begin if not FileExists(FileName) t... 阅读全文
摘要：
// ========================================================================== // USB - Insertion and Removal Detection Class // Mike Heydon 2007 // // Assignable Events // eg. procedure TForm1.MyOnIns... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,JPEG, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; B... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls; ... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Ed... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Tlhelp32, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Se... 阅读全文