Hallo allemaal,
Ik heb een applicatie, waarin de standaard webbrowser wordt geopend, en dit werkt op zich goed.
Omdat er ook een verwijzing naar een chatbox, wordt er bij het openen de chatbox afgesloten, en de nieuwe pagina geopend.
Op zich goed natuurlijk, want dat klikt men ook aan, maar men wil de nieuwe pagina het liefst in een nieuw tabblad openen.
Is dit vanuit Delphi mogelijk, en zo ja, hoe?
Op dit moment heb ik het volgende al verwerkt in mijn code.
Code:
procedure TMainplayer.ChattenClick(Sender: TObject);
begin
ShellExecute(self.WindowHandle,'open','http://nldelphi.com/zomaariets.php',nil,nil, SW_SHOWNORMAL);
end;
Code:
function TMainplayer.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) ;
ShellExec
Alvast bedankt, Anton
Bookmarks