2015年11月14日
Delphi中动态创建的Panel无法改变颜色的解决办法（要把Panel的ParentBackground设为False）
刚开始代码如下：procedure TForm1.Button1Click(Sender: TObject);var Panel: TPanel;begin Panel := TPanel.Create(Form1); Panel.Name := 'pnlPreVideo'; Panel.P... Read More
posted @ 2015-11-14 18:44 findumars Views(729) Comments(0) Diggs(0)
判断当前进程是否以管理员权限启动的
uses shlobj; type WELL_KNOWN_SID_TYPE = ( WinNullSid, WinWorldSid, WinLocalSid, WinCreatorOwnerSid, WinCreatorGroupSid, WinCreatorOwnerServerSid, WinC... Read More
posted @ 2015-11-14 18:42 findumars Views(1287) 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(487) 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(382) 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(584) Comments(0) Diggs(0)