Mega Code Archive
Internet browser calistirma
<![CDATA[
//bu kodla sadece internet explorer degil default browser
//olarak ne ayarliysa o browser' i calistirabilirsiniz...
uses Registry,ShellAPI;
function BrowseURL(const URL:string):boolean;
var Browser:string;
begin
Result:=True;
Browser:='';
with TRegistry.Create do
try
RootKey:=HKEY_CLASSES_ROOT;
Access:=KEY_QUERY_VALUE;
if OpenKey('\htmlfile\shell\open\command',False)then
Browser:=ReadString('');
CloseKey;
finally
Free;
end;
if Browser=''then begin Result:=False;Exit;end;
Browser:=Copy(Browser,Pos('"', Browser)+1,Length(Browser));
Browser:=Copy(Browser,1,Pos('"', Browser)-1) ;
ShellExecute(0,'open',PChar(Browser),PChar(URL),nil,SW_SHOW);
end;
//kullanimi:
BrowseURL('www.delphiturk.com');
]]>