~~~~~~~~~~~~~~~~~~~~~~~~~
function WB_DocumentOnLocalDrive(wb: TWebBrowser): boolean;
const
fileProtocol = 'file:';
var
protocol : string;
begin
if Assigned(wb.Document) then
protocol := wb.Oleobject.Document.Location.Protocol;
result := protocol = fileProtocol;
end;
Usage:
if WB_DocumentOnLocalDrive(WebBrowser1) then ShowMessage('Document on a local or network drive') ;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to allow column resize but disable movement (in TDBGrid)
« Adding About Delphi Programming site (link and the blog RSS feed) to the Delphi 2005 Welcome page

