인터넷 익스프로러에 사이트 링크 하는데
ShellExecute(fmMain.Handle, 'open', 'iexplore.exe',
'http://www.delphi.co.kr/', '', SW_SHOWNORMAL);
이렇게 하면 새창이 뜨면서 해당 사이트로 이동 합니다.
새창을 안뛰우고 원래 있던 사이트 화면이 바뀌게
하려면 어떻게 해야 되는지 모르 겠습니다.
if DDE.SetLink('iexplore', 'WWW_OpenURL') then
if DDE.RequestData(URL + ',,1') <> nil then
if DDE.SetLink('iexplore', 'WWW_Activate') then
URLFired := DDE.RequestData('0,0') <> nil;
finally
DDE.Free;
end;
end;
인터넷 익스프로러에 사이트 링크 하는데 ShellExecute(fmMain.Handle, 'open', 'iexplore.exe', 'http://www.delphi.co.kr/', '', SW_SHOWNORMAL); 이렇게 하면 새창이 뜨면서 해당 사이트로 이동 합니다. 새창을 안뛰우고 원래 있던 사...
최석기
•
2002.03.15 22:14
DDE를 이용한 방법
procedure GotoWebPage;
var
DDE  ...
이광균
•
2002.03.15 23:26
답변 감사드립니다.
그렇게 하니까되는 군요..
모르는거 하나 알았다.. ㅋㅋ
복 많이 받으세요.....
procedure GotoWebPage;
var
DDE : TDDECLientConv;
URL : String;
URLFired : Boolean;
begin
URL := 'http://www.delphi.co.kr';
DDE := TDDEClientConv.Create(nil);
try
DDE.ServiceApplication := 'iexplore';
if DDE.SetLink('iexplore', 'WWW_OpenURL') then
if DDE.RequestData(URL + ',,1') <> nil then
if DDE.SetLink('iexplore', 'WWW_Activate') then
URLFired := DDE.RequestData('0,0') <> nil;
finally
DDE.Free;
end;
end;