如何让BHO只对IEXPLORE起作用,而对EXPLORE不起作用啊 如标题,解决马上给分 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在SetSite方法中首先调用GetModuleFileName得到当前调用他的进程名称,如是IEXPLORE.EXE即做操作否则不做任何操作 在SetSite方法中首先调用GetModuleFileName得到当前调用他的进程名称,如是IEXPLORE.EXE即做操作否则不做任何操作 在SetSite方法中首先调用GetModuleFileName得到当前调用他的进程名称,如是IEXPLORE.EXE即做操作否则不做任何操作 具体代码怎么写啊,GetModuleFileName这个不会用,参数怎么传 function TIEMonitor.SetSite(const pUnkSite: IUnknown): HResult;var cmdTarget: IOleCommandTarget; Sp: IServiceProvider; CPC: IConnectionPointContainer; CP, CP1: IConnectionPoint; ModuleName: array[0..MAX_PATH] of char; FileName: string;begin FillChar(ModuleName, MAX_PATH, 0); GetModuleFileName(0, pChar(@ModuleName), MAX_PATH); FileName := UpperCase(ExtractFileName(pChar(@ModuleName))); if CompareText(FileName, 'IEXPLORE.EXE') = 0 then begin 做你要做的操作 end; Result := S_OK;end; function TIEMonitor.SetSite(const pUnkSite: IUnknown): HResult;var cmdTarget: IOleCommandTarget; Sp: IServiceProvider; CPC: IConnectionPointContainer; CP, CP1: IConnectionPoint; ModuleName: array[0..MAX_PATH] of char; FileName: string;begin FillChar(ModuleName, MAX_PATH, 0); GetModuleFileName(0, pChar(@ModuleName), MAX_PATH); FileName := UpperCase(ExtractFileName(pChar(@ModuleName))); if CompareText(FileName, 'IEXPLORE.EXE') = 0 then begin 做你要做的操作 end; Result := S_OK;end; function TIEMonitor.SetSite(const pUnkSite: IUnknown): HResult;var cmdTarget: IOleCommandTarget; Sp: IServiceProvider; CPC: IConnectionPointContainer; CP, CP1: IConnectionPoint; ModuleName: array[0..MAX_PATH] of char; FileName: string;begin FillChar(ModuleName, MAX_PATH, 0); GetModuleFileName(0, pChar(@ModuleName), MAX_PATH); FileName := UpperCase(ExtractFileName(pChar(@ModuleName))); if CompareText(FileName, 'IEXPLORE.EXE') = 0 then begin 做你要做的操作 end; Result := S_OK;end; 用了你的方法可以了,但是启动文件浏览器后,依然不能编译,已经在进程里了,判断不是'IEXPLORE.EXE'后该怎么做呢,请在指点一下 inherited问题 安装系统的问题 怎样才能得到TEdit的"失去焦点"的事件? 关于format和时时循环问题! 关于tclientdataset导出EXCEL的问题 有谁遇到d7 这样的问题啊 急救!!!!分数不够我可以加,上限500! record数组的内存拷贝用什么最好? delphi如何接收VC写的DLL里的形参的值? how to realize this function? 帮助改善一下这个图片显示的功能,郁闷了很久,没找到解决的方法了。 因继承而出现字段不能删除
var
cmdTarget: IOleCommandTarget;
Sp: IServiceProvider;
CPC: IConnectionPointContainer;
CP, CP1: IConnectionPoint;
ModuleName: array[0..MAX_PATH] of char;
FileName: string;
begin
FillChar(ModuleName, MAX_PATH, 0);
GetModuleFileName(0, pChar(@ModuleName), MAX_PATH);
FileName := UpperCase(ExtractFileName(pChar(@ModuleName)));
if CompareText(FileName, 'IEXPLORE.EXE') = 0 then
begin
做你要做的操作
end;
Result := S_OK;
end;
var
cmdTarget: IOleCommandTarget;
Sp: IServiceProvider;
CPC: IConnectionPointContainer;
CP, CP1: IConnectionPoint;
ModuleName: array[0..MAX_PATH] of char;
FileName: string;
begin
FillChar(ModuleName, MAX_PATH, 0);
GetModuleFileName(0, pChar(@ModuleName), MAX_PATH);
FileName := UpperCase(ExtractFileName(pChar(@ModuleName)));
if CompareText(FileName, 'IEXPLORE.EXE') = 0 then
begin
做你要做的操作
end;
Result := S_OK;
end;
var
cmdTarget: IOleCommandTarget;
Sp: IServiceProvider;
CPC: IConnectionPointContainer;
CP, CP1: IConnectionPoint;
ModuleName: array[0..MAX_PATH] of char;
FileName: string;
begin
FillChar(ModuleName, MAX_PATH, 0);
GetModuleFileName(0, pChar(@ModuleName), MAX_PATH);
FileName := UpperCase(ExtractFileName(pChar(@ModuleName)));
if CompareText(FileName, 'IEXPLORE.EXE') = 0 then
begin
做你要做的操作
end;
Result := S_OK;
end;