VFP 愛用者社區

[CPS0204]

同目錄中需要有system.app,請下載後解rar
*--- 設定 JPG 儲存路徑 ---
LOCAL lcFile
lcFile = "C:\temp\HardCopy_" + DTOS(DATE()) + "_" + STRTRAN(TIME(), ":", "") + ".jpg"
*--- 正確的 VFP 宣告方式 ---

DECLARE keybd_event IN user32 ;
INTEGER bVk, ;
INTEGER bScan, ;
INTEGER dwFlags, ;
INTEGER dwExtraInfo

*--- 執行模擬 PrintScreen ---
keybd_event(44, 0, 0, 0)
*--- 2. 使用 GdiPlusX 處理剪貼簿並存檔 ---
* 雖然不用 CopyFromScreen，但存成 JPG 仍建議用 GdiPlusX
IF NOT FILE("System.app")
MESSAGEBOX("請確保目錄下有 System.app", 16)
RETURN
ENDIF

DO System.app

WITH _Screen.System.Drawing
* 從剪貼簿取得圖片物件
LOCAL loBitmap AS xfcBitmap
loBitmap = .Bitmap.FromClipboard()

IF ISNULL(loBitmap)
MESSAGEBOX("剪貼簿內無影像，擷取失敗", 4
RETURN
ENDIF

* 儲存為 JPG (品質設為 90)
loBitmap.Save(lcFile, .Imaging.ImageFormat.Jpeg)
MESSAGEBOX("螢幕已存檔至：" + lcFile, 64, "完成")
ENDWITH