順⑦.z燃

摘要： Delphi快捷键大全（转）--------------------------------------------------------------------------------2008-03-18 20:29:13　标签：Delphi 快捷键 [推送到技术圈]1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)2.Shift+F8 调试时弹出CPU窗口。3.Shift+F10 等于鼠标右键（Windows快捷键）。4.Shitf+箭头 选择5.shift +F12 快速查找窗体并打开6.F7 （步进式调试同时追踪进入子过程）7.F8 （步进式.. 阅读全文

摘要： unit zip_main;{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, zstream, Zipper,Base64;type { TForm1 } TForm1 = class(TForm) Button1: TButton; SelectDirectoryDialog1: TSelectDirectoryDialog; unZipBtn: TBitBtn; localDirLbl: TLabel; Op 阅读全文

摘要： 源代码 在 http://wiki.freepascal.org/paszlib页面中。uses zipper;procedure TForm1.Button5Click(Sender: TObject);var Zipper: TZipper; i:integer;begin //http://wiki.freepascal.org/paszlib try Zipper := TZipper.Create; Zipper.FileName := 'E:\20120411\zip\zip.zip'; Zipper.Entries.AddFileEntry('E:\201 阅读全文

摘要： { No.1 判断逻辑类型 }var B: Boolean;beginB := Boolean(2); //这样只是为了调试//B := True;if B = True then ShowMessage('B = True'); //不建议//不安全///////if B then ShowMessage('B'); //建议//简短end;var B: Boolean;beginif Edit1.Text = '是' then //不建议//烦琐B := Trueelse B := False;///////B := Edit1.Text = 阅读全文

摘要： procedure FileSearch(DirPath:AnsiString);var TarGetPath:string;{目标路径名} Sr:TsearchRec;begin TarGetPath:=ExtractFilePath(DirPath); {分解出目标路径名} if FindFirst(DirPath,faAnyfile,Sr)=0 then repeat if (Sr.name<>'.')and(Sr.name<>'..') then //排除父目录和本目录两个假文件 begin if ((FileGetAttr(Ta 阅读全文

摘要： 通过WSAWaitWSAGetOverlappedResult函数 ForMultipleEvents函数来得到重叠操作完成的通知， 那么自然也需要一个函数来查询一下重叠操作的结果，定义如下 BOOL WSAGetOverlappedResult( SOCKET s, // SOCKET，不用说了 LPWSAOVERLAPPED lpOverlapped, // 这里是我们想要查询结果的那个重叠结构的指针 LPDWORD lpcbTransfer, // 本次重叠操作的实际接收(或发送)的字节数 BOOL fWait, // 设置为TRUE，除非重叠操作完成，否则函数不会返回 // 设置FAL 阅读全文

摘要： QueueUserWorkItem 函数 Windows 说明如下：一、异步调用函数:BOOL QueueUserWorkItem(PTHREAD_START_ROUTINE pfnCallback,PVOID pvContext，ULONG dwFlags);该函数将“工作项目”放入线程池并且立即返回。工作项目是指一个用pfnCallback参数标识的函数。它被调用并且传... 阅读全文