摘要：
procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(GetCurrentDir +... 阅读全文
摘要：
Dll 文件:-------------------------------------------------------------------------------- library Lib;uses SysUtils, Classes;{$R *.res}procedure Test(p: PChar);const Title = 'Title ';var str: string;... 阅读全文
摘要：
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... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, ... 阅读全文
摘要：
Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // sym... 阅读全文
摘要：
用过卡巴斯基的朋友都知道，卡巴斯基的进程是无法杀掉的，在任务管理器中杀卡巴进程的话，会弹出一个消息框提示拒绝访问！那么这是怎么实现的呢？很简单，就是使用了HOOK API的方法。我用delphi来写程序好了，先写个dll。const PRG_NAME = 'ddos.exe';var TerminateProcessNext : function (processHandle, exitCode:... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, winsock, nb30;type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2... 阅读全文
摘要：
字符转换为Base64编码代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--functionstrtoBase64(str:string):string;var_1byte,_2byte:arrayofbyte;strlen,i,j,jj:integ... 阅读全文