TWebBrowser

0

Czy jeżeli na komputerze na którym uruchamiam program, nie ma IE to program korzystający z TWebBrowser wygeneruje jakiś wyjątek?

0

function IE_installed(var Version: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Internet Explorer', False);
if ValueExists('Version') then
Version := ReadString('Version')
else
Version := '';
CloseKey;
Free;
end;
Result := Version <> '';
end;

var
IE_Version: string;
begin
if IE_Installed(IE_Version) then
Caption:=Format('Internet Explorer w wersji %s.', [IE_Version]) else ShowMessage('Brak IE');

1 użytkowników online, w tym zalogowanych: 0, gości: 1