Others

unit　Unit1; interface uses 　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms, 　Dialogs,　StdCtrls; type 　TForm1　=　class(TForm) 　　procedure　FormCreate(Sender:　TObject); 　end; var 　Form1:　TForm1; implementation {$R　*.dfm}

Recodedatetime, Recodedate, Recodetime, recodeyear ... Modified Time DateUtils.RecodeDateTime(); DateUtils.RecodeDate(); DateUtils.RecodeTime(); DateUtils.RecodeYear(); DateUtils.RecodeMonth(); DateUtils.RecodeDay(); DateUtils.RecodeHour();

This example tests the color that modifies the cursor, and the effect chart: Code files:Unit Unit1;InterfaceUsesWindows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,Dialogs, Stdctrls, Extctrls;TypeTForm1 = Class

This example tests the speed at which the cursor is set to blink, noting that this affects other programs and that the exit should revert to the system default of 530 milliseconds. This example effect chart: Code files:Unit

Statement:QueryPerformanceCounter( 　var lpPerformanceCount: TLargeInteger {获取定时器每秒的频率数; TLargeInteger = Int64} ): BOOL; {返回 False 表示调用失败, 或者是硬件不支持高性能定时器} An interesting example: Determine the speed of your mouse clicks; My fastest record is 151

There is no line of code three layer, the function must be very simple, but, again simple, we also three layers, learning a thing, need to start from the beginning of interest, if the introduction to frighten scared, where then how to confidence to

Statement: GetKeyboardType( 　nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量} ): Integer; Example: procedure TForm1.FormCreate(Sender: TObject); var 　i: Integer; 　List: TStringList; begin 　List := TStringList.Create; 　List.Add('IBM PC/XT or

Statement:GetDiskFreeSpaceEx( 　lpDirectoryName: PChar;　　　　　　　　　　　　　{磁盘根路径} 　var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} 　var lpTotalNumberOfBytes: TLargeInteger;　　　　 {总空间} 　TotalFree: PLargeInteger　　　　　　　　　　　　 {剩余空间} ): BOOL; Example:

Statement:GetDiskFreeSpace( 　lpRootPathName: PChar;　　　　　　 {磁盘根路径} 　var lpSectorsPerCluster: DWORD;　　{一个簇内的扇区数} 　var lpBytesPerSector: DWORD;　　　 {一个扇区内的字节数} 　var lpNumberOfFreeClusters: DWORD; {剩余簇数} 　var lpTotalNumberOfClusters: DWORD {总簇数} ): BOOL;

Show MetaFile file var 　g: TGPGraphics; 　img: TGPImage; begin 　g := TGPGraphics.Create(Canvas.Handle); 　img := TGPImage.Create('c:\temp\x.emf'); {文件要存在} 　g.DrawImage(img, 11, 11); 　img.Free; 　g.Free; end; Drawing MetaFile Files var 　g:

displaying images with Bitmap var 　g: TGPGraphics; 　bit: TGPBitmap; begin 　g := TGPGraphics.Create(Canvas.Handle); 　bit := TGPBitmap.Create('c:\temp\x.jpg'); 　g.DrawImage(bit, 11, 11); {默认大小竟然和 1:1 不一样, 是不是分辨率的问题?} 　g.DrawImage(bit, 11, 11,

Proportional change var 　g: TGPGraphics; 　p: TGPPen; 　rect: TGPRect; begin 　g := TGPGraphics.Create(Canvas.Handle); 　p := TGPPen.Create(MakeColor(255,255,0,0),0); 　rect := MakeRect(10,10,100,100); 　g.DrawRectangle(p, rect); {原始} 　g.ScaleTransform(2,

Output textvar 　g: TGPGraphics; 　sb: TGPSolidBrush; 　fontFamily: TGPFontFamily; 　font: TGPFont; begin 　g := TGPGraphics.Create(Canvas.Handle); 　sb := TGPSolidBrush.Create(MakeColor(0,0,255)); 　fontFamily := TGPFontFamily.Create('宋体'); 　font :=

Drawing qualityvar 　g: TGPGraphics; 　p: TGPPen; begin 　g := TGPGraphics.Create(Canvas.Handle); 　p := TGPPen.Create(MakeColor(255,0,0),2); 　g.SetSmoothingMode(SmoothingModeHighQuality); {高质量} 　g.DrawLine(p,11,11,111,111);

Closed curve var 　g: TGPGraphics; 　p: TGPPen; 　sb: TGPSolidBrush; 　pts: array[0..4] of TGPPoint; begin 　g := TGPGraphics.Create(Canvas.Handle); 　sb := TGPSolidBrush.Create(MakeColor(255,255,255)); 　p := TGPPen.Create(MakeColor(255,0,0),4); 　pts[0].X

Draw curvevar 　g: TGPGraphics; 　p: TGPPen; 　pts: array[0..4] of TGPPoint; begin 　g := TGPGraphics.Create(Canvas.Handle); 　p := TGPPen.Create(MakeColor(255,0,0),4); 　pts[0].X := 11;　pts[0].Y := 11; 　pts[1].X := 66;　pts[1].Y := 66; 　pts[2].X :=

Fill and stroke var 　g: TGPGraphics; 　p: TGPPen; 　sb: TGPSolidBrush; begin 　g := TGPGraphics.Create(Canvas.Handle); 　sb := TGPSolidBrush.Create(MakeColor(255,255,255)); 　p := TGPPen.Create(MakeColor(255,0,0),6); 　g.FillRectangle(sb, 0, 0,

Solid painting Brush var 　g: TGPGraphics; 　sb: TGPSolidBrush; begin 　g := TGPGraphics.Create(Canvas.Handle); 　sb := TGPSolidBrush.Create(aclGreen); {参数是颜色} 　g.FillEllipse(sb, 11, 11, 222, 111); 　sb.Free; 　g.Free; end; Set Paint brush Color var 　g:

Composite brushes var 　g: TGPGraphics; 　p: TGPPen; 　arr: array[0..9] of Single; {10 个元素可以分成 5 条线, 每条线需要起点和终点} begin 　g := TGPGraphics.Create(Canvas.Handle); 　p := TGPPen.Create(MakeColor(255,255,0,0),100); {笔宽定为 100 好算帐} 　arr[0] := 0.00; {第一条线起点}

Lstrcpyn-Copies the string, specifying the length to copy Unit Unit1; interface uses 　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 　Dialogs, StdCtrls; type 　TForm1 = class(TForm) 　　Button1: TButton; 　　procedure Button1