2010年4月14日
解决Delphi的剪贴板的AsText方法乱码的问题
摘要： 使用Delphi的剪贴板的AsText方法会导致非英语出现乱码,怎么解决?改用Unicode就可以了。procedureSetClipboardText(AStr:string); var//SetBuffer(CF_TEXT,PChar(Value)^,Length(Value)+1); Data:THandle; DataPtr:Pointer; Size:Integer; WStr:PWid... 阅读全文
posted @ 2010-04-14 18:54 Max Woods 阅读(598) 评论(0) 推荐(1)
Delphi调用FlashWindowEx闪烁窗口源代码
摘要： ...var hwnd:THandle; F:FLASHWINFO;begin ... if hwnd>0 then begin F.cbSize:=sizeof(FLASHWINFO); F.hwnd:=hwnd; F.dwFlags:=FLASHW_ALL or FLASHW_STOP; F.uCount:=4; F.dwTimeout:=250; if not IsWindowVisi... 阅读全文
posted @ 2010-04-14 10:52 Max Woods 阅读(828) 评论(0) 推荐(0)