Internet/Radio-Stream wiedergeben

[Gehstock]

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
var
  ThreadId: Cardinal;
begin
  StrPCopy(proxy,ed_ProxyServer.Text);
  if (cthread <> 0) then
    MessageBeep(0)
  else
    cthread := BeginThread(nil, 0, @OpenURL, PChar(Edit1.text), 0, ThreadId);//oder sonst ein editfeld
end;