IWebBrowser2인터페이스 얻으셔서 URL구해가지고 비교해서 특정 사이트가 아니면 동작안하도록 하시면 될거 같네요...
uses
......, shdocvw;
var
ClientSite: IOleClientSite;
WebBrowserApp: iwebbrowserApp;
ServiceProvider: IServiceProvider;
WebBrowser2: iwebbrowser2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService( IWebBrowserApp, iwebbrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
WebBrowser2 := iwebbrowser2(WebBrowserApp);
ShowMessage(WebBrowser2.Get_LocationURL);
// URL비교해서 특정사이트 아니면 작동안하게...
end;
end;
end;
end;
end;
IWebBrowser2인터페이스 얻으셔서 URL구해가지고 비교해서 특정 사이트가 아니면 동작안하도록 하시면 될거 같네요...
uses
......, shdocvw;
var
ClientSite: IOleClientSite;
WebBrowserApp: iwebbrowserApp;
ServiceProvider: IServiceProvider;
WebBrowser2: iwebbrowser2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService( IWebBrowserApp, iwebbrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
WebBrowser2 := iwebbrowser2(WebBrowserApp);
ShowMessage(WebBrowser2.Get_LocationURL);
// URL비교해서 특정사이트 아니면 작동안하게...
end;
end;
end;
end;
end;
^^ 항상 즐코하세요...