<程序想再ie运行时运行 >的详细描述是怎样的?讲明白有助于讨论!
解决方案 »
- 为什么会出现这个错误Operator not applicable to this operand type?
- ★送分帖,请 dabaicai、xianggang101、xiaokexinger三位朋友进入★
- 关于dll封装mdi子窗体 第二帖!!!
- 问题请教
- 要把dbgrid中点击过的记录都变成高亮显示,需要通过修改哪个属性?如何做??
- 狂郁闷,怎么回事,分不够还是没人会,还是我的问题太简单了,
- 大家帮我看看这个dll吧 -_-! (关于dll初始化和释放)
- 讨论一下非典运动带来的正面效应!
- 第三方控件???
- 问题??急!急!文件保护的问题,如何保护一个文件不让别人Copy和Delete?
- VB下开发的控件在Delphi的的调用问题?新!
- 100分问一个巨简单的问题。进来看看。
procedure TForm1.SearchPross;
var
pe:PROCESSENTRY32;
me:MODULEENTRY32;
hp,hm:Thandle;
b,b1:boolean;
Str: String;
begin
hp:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=SizeOf(pe);
b:=Process32First(hp,pe);
while b do
begin
hm:=CreateToolHelp32SnapShot(TH32CS_SNAPModule,pe.th32ProcessID);
me.dwSize:=sizeof(ModuleEntry32);
if Module32First(hm,me) then
begin
b1:=Module32First(hm,me);
while b1 do
begin
Str:=me.szModule;
if Str='IEXPLORE.EXE' then
ShowMessage('你启动了IE');
b1:=Module32Next(hm,me);
end;
end;
b:=Process32Next(hp,pe);
end;
end;