이상환 wrote:

> 현재 pc에서 기본 웹브라우저(netscape 또는 explorer)가 무엇인지 알고자 할때?

> 델파이 프로그램을 어떻게 해야 합니까?







임펠리테리입니다.



아래 분도 방법을 알려주셨지만.. 훨씬 간단한 방법이 있습니다.

api를 제대로 쓰면... ^^

FindExcutable() api 함수를 쓰면 됩니다. 첫 인자로 존재하는 html 파일의

패스를, 두번째 인자는 디렉토리인데 여기서는 중요하지 않으므로 대충

'c:' 나 '.' 을 넣어주면 마지막 인자로 연결된 프로그램의 패스가 넘어옵니다.

참, 인자는 당연히 모두 PChar 형입니다.

그럼 이만...







임펠리테리 박지훈이었습니다.



(http://myhome.thrunet.com/~cbuilder)

이상환 wrote:

> 현재 pc에서 기본 웹브라우저(netscape 또는 explorer)가 무엇인지 알고자 할때?

> 델파이 프로그램을 어떻게 해야 합니까?





이상환님 안녕하세요?

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

그럼 즐거운 프로그래밍~~





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;