摘要： 使用Delphi的剪贴板的AsText方法会导致非英语出现乱码,怎么解决?改用Unicode就可以了。procedureSetClipboardText(AStr:string); var//SetBuffer(CF_TEXT,PChar(Value)^,Length(Value)+1); Data:THandle; DataPtr:Pointer; Size:Integer; WStr:PWid... 阅读全文

摘要： ...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... 阅读全文