世界末日BLOG

首先下载seven 7zip源码包http://download.youkuaiyun.com/detail/lokeyyang/4748647将sevenzip.pas和7z.dll 复制到你的工程目录下，将sevenzip.pas加入你的工程在uses后面加入sevenzip命名空间然后就可以直接适用seven里面的各种函数了。 procedure TForm1.Button1Cl

{---------------------------------------------------------------------- Unit Name: sUnit Author:    Mats Asplund, 2001-11-09 Purpose:   Indy client/server示例, 服务器部分-----------------------------

delphi中单独编译pas生成dcu文件 在网上下载了一个带源码的组件，结果碰到提示说缺少xxx.dcu。一看它的目录下确实没有，那能不能生成一个呢？当然可以！方法是使用delphi的安装目录\bin文件夹下的的dcc32.exe。例如：dcc32 myUnit.pas正常情况下运行上面的命令就会编译myUnit.pas生成 myU

一、INI文件的结构：;注释[小节名]关键字=值...---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。---- 注释以分号“;”开头。二、定义---- 1、

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);e

procedure TForm1.ImgBtn2Click(Sender: TObject);beginhalt;end;

Math 命名空间取随机数randomrange(10000,9999999999)

IdHTTP 命名空间引用定义idhttp1 : Tidhttp;Param:TStringList;RStream:TStringStream;userid:string;userpwd:string;创建try idhttp1 := Tidhttp.create(nil);用来接收返回的数据流。 RStream:=TStringStream.Create(

CreateThread(nil, 0, @New_Thread, nil, 0, Tid);function New_Thread(P:pointer):DWORD;stdcall;访问主线程USES SyncObjs 命名空间CS: TcriticalSection; 定义CS:=TcriticalSection.Create; 创建子线程内CS.Enter; 进入

{*******************************************************}{                                                                                            }{       异形窗口