1. 如果想你的程序能够正确处理异常情况的话，请引用SysUtils.pas单元，否则即使程序使用了try。。。except。。。也不能正确捕获异常。2. 定义常量字符串的一种方式resourcestring aa='aaaa';raise Exception.CreateRes(@aa);3. 字符串常量数组的初始化const constarray:array [0..2] of string=(‘first’,’second’,’third’);4. 结构体初始化type Tstructinit=record A1:integer; A2:array [0..2] of integer;End;Const m_structinit:Tstructinit=(A1:0;A2:(0,1,2));5. 多维数组的长度var array2:array of array of integer;setlength(array2,2,2);6. 使用Create和New开辟的空间都存在于堆中，不能自动释放，建议使用FreeAndNil释放, 参数以及局部变量存在于栈中，自动释放。7. SizeOf不适合于对象，返回的总是4；对于固定类型可以正确返回.8. Create(nil)需要手工释放，Creat(self)会随着拥有者的释放而释放.9. 动态改变已定义常量的值PRocedure ChangeConst(const Const;var Value;Size:Integer);begin Move((@Value)^,(@Constant)^,Size);End;10. 进行删除操作的时候循环使用DownTo,会避免错误.11. 汉字的Ascii码>128，可以用它来判别是否为汉字12. dll编写中，需要使用Sharemem单元来引用BORLANDMM.DLL内存管理.13. PostMessage只将消息放到消息队列中，需要排队等待处理。SendMessage绕过消息队列直接发送到窗口过程,等到消息处理返回值才返回.14. 鼠标移入移出消息：CM_MOUSEENTER,CM_MOUSELEAVE15. 关机消息WM_QUERYENDsession16. 可以利用ThintWindow和类的方法ActivateHint来创建浮动窗体.17. 调出文件属性对话框uses ShellAPI;function ShowFileProperties(FileName: String; Wnd: HWND):Boolean;var sfi: TSHELLEXECUTEINFO;begin with sfi do begin cbSize := SizeOf(sfi); lpFile := PAnsiChar(FileName); Wnd := Wnd; fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI; lpVerb := PAnsiChar('properties'); lpIDList := nil; lpDirectory := nil; nShow := 0; hInstApp := 0; lpParameters := nil; dwHotKey := 0; hIcon := 0; hkeyClass := 0; hProcess := 0; lpClass := nil; end; Result := ShellExecuteEX(@sfi);end;procedure TForm1.Button1Click(Sender: TObject);begin ShowFileProperties('c:/AA.txt', Handle);end;18. 更改系统时间uses Windows,Dialogs,Forms;var MyTime:TsystemTime;begin FillChar(MyTime,sizeof(MyTime),#0); MyTime.wYear:=2003; MyTime.wMonth:=06; MyTime.wDay:=01; If not SetSystem(MyTime) thenShowmessage(‘Failure’); End; 19. 复制文件夹Xcopy. procedure Xcopy(SourceDir,DestinationDir:String);
var
Search : TSearchRec;
Rec : Word;
Begin
SourceDir := SourceDir + '/';
Rec := FindFirst(SourceDir + '*.*', faAnyFile, Search);
While Rec = 0 Do
Begin
If Search.Name[1] <> '.' Then
Begin
If (Search.Attr And faDirectory) = faDirectory Then
Begin
Windows.CreateDirectory(PChar(DestinationDir + '/' + Search.Name), nil);
FileSetAttr(DestinationDir + '/' + Search.Name, FileGetAttr(SourceDir + '/' + Search.Name));
X_Copy(SourceDir + '/' + Search.Name, DestinationDir + '/' + Search.Name);
end
Else
Begin
CopyFile(PChar(SourceDir + '/' + Search.Name),PChar(DestinationDir + '/' + Search.Name), True);
FileSetAttr(DestinationDir + '/' + Search.Name, FileGetAttr(SourceDir + '/' + Search.Name));
application.ProcessMessages;
end;
end;
Rec := FindNext(Search);
end;
FindClose(Search);
end;20. 绘制透明位图 procedure DrawTrans(DestCanvas: TCanvas; X,Y: smallint; SrcBitmap: TBitmap; AColor, BackColor: TColor);var ANDBitmap, ORBitmap: TBitmap; CM: TCopyMode; Src: TRect;begin ANDBitmap:= NIL; ORBitmap:= NIL; try ANDBitmap:= TBitmap.Create; ORBitmap:= TBitmap.Create; Src := Bounds(0,0, SrcBitmap.Width, SrcBitmap.Height); with ORBitmap do begin Width:= SrcBitmap.Width; Height:= SrcBitmap.Height; Canvas.Brush.Color := clBlack; Canvas.CopyMode := cmSrcCopy; Canvas.BrushCopy(Src, SrcBitmap, Src, AColor); end; with ANDBitmap do begin Width:= SrcBitmap.Width; Height:= SrcBitmap.Height; Canvas.Brush.Color := BackColor; Canvas.CopyMode := cmSrcInvert; Canvas.BrushCopy(Src, SrcBitmap, Src, AColor); end; with DestCanvas do begin CM := CopyMode; CopyMode := cmSrcAnd; Draw(X,Y, ANDBitmap); CopyMode := cmSrcPaint; Draw(X,Y, ORBitmap); CopyMode := CM; end; finally ANDBitmap.Free; ORBitmap.Free; end;end;procedure TForm1.Button4Click(Sender: TObject);begin DrawTrans(Image1.Canvas, 0,0, Image2.Picture.Bitmap, clBlack, clSilver);end;21. 获取CPU速度 function GetCpuSpeed: Extended;var t, mhi, mlo, nhi, nlo: dword; shr32 : comp;begin shr32 := 65536; shr32 := shr32 * 65536; t := GetTickCount; while t = GetTickCount do ; asm DB 0FH,031H // rdtsc mov mhi,edx mov mlo,eax end; while GetTickCount < (t + 1000) do ; asm DB 0FH,031H // rdtsc mov nhi,edx mov nlo,eax end; Result := ((nhi * shr32 + nlo) - (mhi * shr32 + mlo)) / 1E6;end;procedure TForm1.Button4Click(Sender: TObject);begin label1.Caption := FloatToStr(GetCpuSpeed) + 'mhz';end; 暂时只是写了这么多，以后会逐步更新添加