ThaiPBL.com

PowerBuilder Library Thailand

อีเมล พิมพ์ PDF

Set desktop wallpaper

3 ขั้นตอนง่ายๆ ครับ
1  กำหนด External function  ตามนี้
FUNCTION  ulong SystemParametersInfoA( ulong ul_action, &
ulong ul_iParam, string s_bitmap, ulong ul_winIni ) &
LIBRARY "USER32"

2. กำหนด instance  ตัวแปรไว้ ดังนี้
CONSTANT ulong SPISETDESKWALLPAPER = 20
CONSTANT ulong SPIUPDATEINIFILE = 1 

3  ตัวอย่างการเรียกใช้งาน ครับ
string ls_wallpaper
ls_wallpaper = "C:แอบถ่ายน้องตั๊ก.bmp"
SystemParametersInfoA( SPISETDESKWALLPAPER, 0, ls_wallpaper, SPIUPDATEINIFILE )

*** รูปที่จะใช้ต้องเป็น BMP นะครับ