2015年11月14日
判断当前进程是否以管理员权限启动的
uses shlobj; type WELL_KNOWN_SID_TYPE = ( WinNullSid, WinWorldSid, WinLocalSid, WinCreatorOwnerSid, WinCreatorGroupSid, WinCreatorOwnerServerSid, WinC... Read More
posted @ 2015-11-14 18:42 findumars Views(1292) Comments(0) Diggs(0)
在一个exe文件中查找指定内容，找到则返回起始位置, 否则返回0
//在一个exe文件中查找指定内容，找到则返回起始位置, 否则返回0//如果某字符串, 直接传入字符串进来//如果要查找16进制，则用如下格式传参进来： #$1A#$2A#$3Afunction FindString(FileName, FindStr: string): Int64;var Fi... Read More
posted @ 2015-11-14 18:41 findumars Views(489) Comments(0) Diggs(0)
删除IE缓存中指定的文件
DeleteUrlCacheEntry　1.文件单元:WinInt VC声明 BOOL DeleteUrlCacheEntry ( LPCTSTR lpszUrlName); 函数功能 删除Cache中指定的源文件名,如果指定文件存在 则删除 参数说明 lpszUrlNam... Read More
posted @ 2015-11-14 18:39 findumars Views(386) Comments(0) Diggs(0)
将窗体显示在 PageControl 上
var AWinControl:TPageControl;begin AWinControl := PageControl1; if frmAbout = nil then Exit; frmAbout.ManualDock(AWinControl, nil, alClient);... Read More
posted @ 2015-11-14 18:38 findumars Views(586) Comments(0) Diggs(0)
判断操作系统多久没有任何操作
function StopTime: integer; //返回没有键盘和鼠标事件的时间var LInput: TLastInputInfo;begin LInput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LInput); Re... Read More
posted @ 2015-11-14 18:37 findumars Views(387) Comments(0) Diggs(0)