신상철 께서 말씀하시기를...

> win95에서 Internet Explorer4이상이 설치되었는지를 판단하려고 합니다.

> 레지스트리를 사용하는 것은 정보가 정확하지 않은 것 같아서 이 방법말고

> 없을까요?



신상철님 안녕하세요?

아래 함수를 사용해보세요.

간단한 사용예는



ShowMessage(FindBrowser);



이렇게 하시면 됩니다.



그럼.. 즐거운 프로그래밍 되시구요~



const nbr_extension=4;

extension:array[0..nbr_extension-1] of string=('.HTM','.HTML','.SHTML','.SHTM');



function FindBrowser:string;

var c:byte;

hkey1,hkey2:hkey;

typ,taille:integer;

tmp:array[0..1024] of char;

begin

c:=0;

repeat

if regopenkeyex(hkey_classes_root,pchar(extension[c]),0,key_all_access,hkey1)=0 then

begin

if regqueryvalueex(hkey1,nil,nil,@typ,nil,@taille)=error_success then

begin

regqueryvalueex(hkey1,nil,nil,nil,@tmp,@taille);

if tmp<>'' then

if regopenkeyex(hkey_classes_root,pchar(tmp+'shellopencommand'),0,key_all_access,hkey2)=error_success then

begin

if regqueryvalueex(hkey2,nil,nil,@typ,nil,@taille)=error_success then

begin

regqueryvalueex(hkey2,nil,nil,nil,@tmp,@taille);

if tmp<>'' then

begin

RegCloseKey(hkey2);

FindBrowser:=strpas(tmp){tmpstr};

Exit;

end;

end;

regclosekey(hkey2);

end;

if regopenkeyex(hkey1,'shellopencommand',0,key_all_access,hkey2)=error_success then

begin

if regqueryvalueex(hkey2,nil,nil,@typ,nil,@taille)=error_success then

begin

regqueryvalueex(hkey2,nil,nil,nil,@tmp,@taille);

if tmp<>'' then

begin

RegCloseKey(hkey2);

FindBrowser:=strpas(tmp);

Exit;

end;

end;

end;

end;

regclosekey(hkey1);

end;

inc(c);

until c=nbr_extension;

FindBrowser:='';

end;