Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#2
  Alt 16. Jan 2003, 00:01
Hi,

Code:
procedure TForm1.DBEdit14DblClick(Sender: TObject);
begin
  WaveAbspielen ('\WINNT\Media\Utopia Windows starten.WAV');
  ShellExecute(0, 'open',PChar('http://'+DBEdit14.Text) , nil, nil, SW_SHOW);
end;

Beispiel!
  Mit Zitat antworten Zitat