//在矩形范圍中顯示文本var　g: TGPGraphics;　fontFamily: TGPFontFamily;　font: TGPFont;

//獲取字體信息var　fontFamily: TGPFontFamily;　font: TGPFont;begin　fontFamily :=

//比例變化var　g: TGPGraphics;　p: TGPPen;　rect: TGPRect;begin　g := TGPGraphics

//顯示圖像var　g: TGPGraphics;　img: TGPImage;begin　g := TGPGraphics.Create(Sel

//用 Bitmap 顯示圖像var　g: TGPGraphics;　bit: TGPBitmap;begin　g := TGPGraphics.

//指定位圖顏色var　g,gbit: TGPGraphics;　bit1,bit2: TGPBitmap;　sb: TGPSolidBrush;

//創建並填充區域var　g: TGPGraphics;　sb: TGPSolidBrush;　region: TGPRegion;　{定義區域}

//顯示 MetaFile 文件var　g: TGPGraphics;　img: TGPImage;begin　g := TGPGraphics.

//正常顯示圖片, 沒有變換uses GDIPAPI, GDIPOBJ;procedure TForm1.FormPaint(Sender: TO

//聲明:GetCursorPos(　var lpPoint: TPoint {POINT 結構指針, 接收鼠標指針的屏幕坐標}): BOOL;/

//聲明:GetDiskFreeSpace(　lpRootPathName: PChar;　　　　　　 {磁盤根路徑}　var lpSectors

//聲明:GetDiskFreeSpaceEx(　lpDirectoryName: PChar;　　　　　　　　　　　　　{磁盤根路徑}　var

//聲明:GetDriveType(　lpRootPathName: PChar {磁盤根目錄}): UINT;//返回值:DRIVE_UNKNO

//聲明:GetKeyboardType(　nTypeFlag: Integer {0:鍵盤類型; 1:鍵盤子類型; 2:功能鍵數量}): Int

//獲取鼠標在窗體中的當前位置procedure TForm1.FormMouseDown(Sender: TObject; Button: TM

本例效果圖:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Cla

//聲明:GetLogicalDrives: DWORD; {無參數}//返回值:返回值的二進制右邊第一位為 1 表示驅動器 A: 存在;返回值的

網上關於新版本的datasnap的資料不是太多，我現在所能找到的全面一些的，也就是 我們QQ群（DATASNAP[DELPHI]三層：678037

沒有一行代碼的三層，功能肯定非常的簡單，但是，再簡單，我們也三層了，學習一 個東西，需要從入門開始就有興趣，如果入門就給嚇怕了，哪麼後來何來信心學

//聲明:GetLogicalDriveStrings(　nBufferLength: DWORD; {緩沖區大小}　lpBuffer: PAns