2012年11月28日

摘要： function　Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;　//压缩或解压缩文件 var　ziper:TVCLZip;begin//函数用法：Zip(压缩模式，压缩包大小，压缩文件，解压目录) //ZipMode为0：压缩；为1：解压缩　PackSize为0则不分包；否则为分包的大小 tryif　copy(UnzipDir,　length(UnzipDir),　1)　=　'\'　thenUnzipDir　:=　copy(UnzipDir,　1,　length(UnzipDir)　-　1);　// 阅读全文

摘要： SendMessage基础知识 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）； 参数： hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口，但消息不被发送到子窗口。 ... 阅读全文