djha wrote:

>

> 자신이 만든 프로그램에서 버튼을 누르면

> 자신의 홈페이지로 바로 연결해주는 것을

> 많이 보았는데 어떻게 하는지 궁금합니다.

>

> 아시는분의 도움을 부탁드립니다.



ShellExecute(handle, 'open', 'http://www.delphi.co.kr', nil, nil, SW_SHOWNORMAL);

이렇게 해도 되는데...

.html 에 연결된 프로그램이 웹 브라우저일테니 레지스트리에서

.html에 연결된 프로그램을 찾아 파라메터로 웹 주소를 넘겨서 실행해주면 되겠죠

제 프로그램에서는 다음과 같이 했습니다. 참고하시길



function ExecProgram(ExecFile, CmdLine: string; ShowWindow: integer): boolean;

var

SUInfo: TStartUpInfo;

ProcInfo: TProcessInformation;

begin

ZeroMemory(@SUInfo, sizeof(TStartUpInfo));

SUInfo.cb := sizeof(TStartupInfo);

SUInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_FORCEONFEEDBACK;

SUInfo.wShowWindow := ShowWindow;

ZeroMemory(@ProcInfo, sizeof(TProcessInformation));

Result := CreateProcess(PChar(ExecFile), PChar(ExecFile + ' ' + CmdLine), nil, nil, false, CREATE_NEW_PROCESS_GROUP, nil, nil, SUInfo, ProcInfo);

end;



procedure About; cdecl;

var

Reg: TRegistry;

s, buf: string;

r: integer;

begin

CheckForInstance;

SetLength(buf, 64);

r := GetLocaleInfo(LOCALE_USER_DEFAULT, 7, @buf[1], 64);

SetLength(buf, r); // If there is any error to get locale info, r becomes 0 and buf will be ''

if buf = 'KOR'#0 then

s := AboutMessage_Korean + #13#10#13#10 + '프로그램 버전:' + Version + #13#10#13#10 + '리얼 플레이어 버전:' + RealAudio.GetVersionInfo

else s := AboutMessage + #13#10#13#10 + 'Program Version:' + Version + #13#10#13#10 + 'Real Player Version:' + RealAudio.GetVersionInfo;

if MessageBox(module.hMainWindow, PChar(s), 'About..!', MB_OKCANCEL) = ID_OK then begin



//----- 여기서부터가 웹브라우저로 하여금 http://hello.to/innoreal로 방문하게

// 하는 부분입니다.



Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_CLASSES_ROOT;

Reg.OpenKey('.html', false);

s := Reg.ReadString('');

Reg.OpenKey('' + s + 'shellopencommand', false);

s := Reg.ReadString('');

s := copy(s, 1, Pos(' ', s) - 1);

if s[1] = '"' then

s := copy(s, 2, length(s) - 2);

ExecProgram(s, 'http://hello.to/innoreal', SW_SHOWDEFAULT);

except

MessageBox(module.hMainWindow, 'Could not find web browser', 'Error', MB_ICONERROR or MB_OK)

end;

Reg.Free;

end;

end;







djha wrote:

>

> 자신이 만든 프로그램에서 버튼을 누르면

> 자신의 홈페이지로 바로 연결해주는 것을

> 많이 보았는데 어떻게 하는지 궁금합니다.

>

> 아시는분의 도움을 부탁드립니다.