Q&A
HOME
Tips & Tech
Q&A
Discuss
Download
자유게시판
홍보 / 광고
구인 / 구직
LOGIN
회원가입
win95에서 Internet Explorer 설치여부판단?
win95에서 Internet Explorer4이상이 설치되었는지를 판단하려고 합니다.
레지스트리를 사용하는 것은 정보가 정확하지 않은 것 같아서 이 방법말고
없을까요?
1
COMMENTS
구창민
•
1999.08.25 22:33
신상철 께서 말씀하시기를...
> 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;
0
0
삭제
수정
댓글
(NOTICE) You must be
logged in
to comment on this post.
유희정
•
1999.08.26 04:08
3
COMMENTS
/
0
LIKES
MainForm에서 Create한 Form을 함께 Resize하는 법
구창민
•
1999.08.26 05:37
유희정 께서 말씀하시기를... > 도와 주세요. > > MainForm에는 FormStyle= fsNormal이며 Create 하여 ...
유희정
•
1999.08.26 20:33
구창민 께서 말씀하시기를... > 유희정 께서 말씀하시기를... > > 도와 주세요. > > > > MainForm에는...
구창민
•
1999.08.26 21:23
유희정 께서 말씀하시기를... > 구창민 께서 말씀하시기를... > > 유희정 께서 말씀하시기를... > > > ...
김기환
1999.08.26 03:09
0
COMMENTS
/
0
LIKES
text 파일을 테이블 컴포넌트에..
최상만
•
1999.08.26 02:15
1
COMMENTS
/
0
LIKES
델파이4에서 DB(sybase 11)연결 방법??
최수영
•
1999.08.27 17:14
최상만 께서 말씀하시기를... > 안녕하세요. > 델파이4 초보 사용자입니다. > 유닉스 서브에서 DB sybas...
남윤혁
1999.08.26 01:43
0
COMMENTS
/
0
LIKES
TreeView에서 Drag & Drop으로 노드 삭제...?
이현
1999.08.26 01:43
0
COMMENTS
/
0
LIKES
RichEdit에 가로선이나 세로선을 넣으려면?
주정길
•
1999.08.26 01:19
1
COMMENTS
/
0
LIKES
델파이 설치에 관하여
이주흥
•
1999.08.26 19:54
주정길 께서 말씀하시기를... > 델파이를 처음 배우기 시작을 했습니다. > 그런데, 델파이 3.0을 설치를 ...
한 재
•
1999.08.26 00:51
2
COMMENTS
/
0
LIKES
콤보박스 값을 받아서 증가시키기
댕이
•
1999.08.26 02:34
한 재 께서 말씀하시기를... > 오랫만에 질문을 하는군요. > > 될 듯 말듯 알송달송...아직도 이...
한 재
•
1999.08.26 04:38
대단히 감사합니다. 역시 도사님들은 다르군요. 많은 도움이 될 것 같습니다. 그런데 한 수만 더 부탁...
김현구
1999.08.26 00:32
0
COMMENTS
/
0
LIKES
컴포넌트의 이미지가 깨져서 나와요..T.T
이현철
1999.08.26 00:30
0
COMMENTS
/
0
LIKES
html형식의 메일을 보낼수 있나요?
이현철
1999.08.25 23:43
0
COMMENTS
/
0
LIKES
버전을 자동으로 증가하는법
이현철
•
1999.08.25 23:18
1
COMMENTS
/
0
LIKES
DAO, DAC, ADO가 뭐죠?
김남규
•
1999.08.27 13:12
이현철 께서 말씀하시기를... > 안녕하세요. > 언제부터인가 DAO,DAC,ADO 이런 용어가 나왔는데.. > 전...
조진희
•
1999.08.25 23:00
2
COMMENTS
/
0
LIKES
[급질문]라벨출력시 우편번호를 나누어야 하는데..
김성제
•
1999.08.25 23:37
조진희 께서 말씀하시기를... > 안녕하세요... > 늘 든든한 가정교사 같은 곳입니다. > 제가 여러분 덕...
이혁
•
1999.08.26 01:25
김성제 께서 말씀하시기를... > 조진희 께서 말씀하시기를... > > 안녕하세요... > > 늘 든든한 가정교...
걸음마 초보
•
1999.08.25 22:48
1
COMMENTS
/
0
LIKES
KeyDown, KeyPress 이벤트
이주흥
•
1999.08.26 19:30
걸음마 초보 께서 말씀하시기를... > [질문] KeyDown, KeyPress 이벤트에 대해 전반적인 지식을 알고싶습...
궁금이
•
1999.08.25 22:41
1
COMMENTS
/
0
LIKES
호출한 폼을 알 수가 있을까요?
전철호
•
1999.08.26 02:57
궁금이 께서 말씀하시기를... > 안녕하십니까? > 오늘도 모두 수고가 많으십니다. > 다름이 아니라, ...
왕초
•
1999.08.25 21:58
1
COMMENTS
/
0
LIKES
퀵레포트문제입니다. 무엇이 문제인지..? 도움을 청합니다
궁금이
•
1999.08.25 22:33
왕초 께서 말씀하시기를... > 안녕하세요... ^_^ > > 어제 올렸는데 답변이 없더군요.. T_T > 그래서...
hohoant
1999.08.25 21:05
0
COMMENTS
/
0
LIKES
paradox db에서 한글입력
강현구
•
1999.08.25 20:37
1
COMMENTS
/
0
LIKES
간절한 초보의 외침 - THTML 콤포넌트
조민경
•
1999.08.26 02:26
잘 모르지만... 그런거 같습니다. THTML Component를 사용하여 프로그래밍 해서 다른 컴에 가져가서 실...
남윤혁
•
1999.08.25 20:36
2
COMMENTS
/
0
LIKES
페어런트의 클라이언트 영역에 맞게 차일드 띄우기?
이정욱
•
1999.08.26 23:19
그 4의 비밀은 윈도우 프레임의 크기 입니다. 윈도우 가장자리에 있는 프레임의 크기이죠. ^^ 남윤혁...
남윤혁
•
1999.08.26 23:30
있을까요??? 이정욱 께서 말씀하시기를... > 그 4의 비밀은 윈도우 프레임의 크기 입니다. > > 윈도...
정영진
•
1999.08.25 20:20
1
COMMENTS
/
0
LIKES
MS DHTML Component 에 대한 질문
김지혜
•
2000.01.16 12:45
정영진 wrote: > 안녕하세요. > > MS DHTMLEdit component 로 프로그램을 짜던 중 > > Error ...
황선희
1999.08.25 19:52
0
COMMENTS
/
0
LIKES
하나의 스크롤 바 컴포넌트로 두개의 디비그리드를 스크롤 할려면...
신상철
1999/08/25 19:31
Views
1637
Likes
12
Comments
1
Reports
0
Tag List
수정
삭제
목록으로
한델 로그인 하기
로그인 상태 유지
아직 회원이 아니세요? 가입하세요!
암호를 잊어버리셨나요?
> 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;