游子日月长

笑渐不闻声渐悄，多情却被无情恼！

导航

2016年12月7日 #

EmptyRecycle() 清空回收站

摘要： //在uses下面引用 function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll'; {清空回收站} //调用 EmptyRecycle(); //调用 Empty 阅读全文

posted @ 2016-12-07 17:40 游子日月长 阅读(222) 评论(0) 推荐(0)

delphi检查url是否有效的方法

摘要： function CheckUrl(url: string; TimeOut: integer = 5000): boolean;var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array[1. 阅读全文

posted @ 2016-12-07 14:31 游子日月长 阅读(268) 评论(0) 推荐(0)