Erstes Ergebniss bei Youtube Suche automatisch auswählen

[Micha88]

Ich würds ungefähr so machen: (UNgetestet, nur so aufgeschrieben)

Delphi-Quellcode:

uses 
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
 pPos1, pPos1Ex, pPos2Ex: Integer;
 sMyHTML, videoCode: String;
begin
 // sMyHTML zuvor den HTML-Source von URL zuweisen
 // mit idHTTP glaube ich so:
 sMyHTML := idHTTP1.Get('http://www.youtube.com/results?search_query=' + Trim(findEdit.Text) + '&search_type=&aq=f');
 pPos1 := Pos('<div class="video-short-title">', sMyHTML {subStr: 31 Zeichen}

 pPos1Ex := PosEx('href="', sMyHTML, pPos1+1)+6;
 pPos2Ex := PosEx('"', sMyHTML, pPos1Ex+1);
 
 videoCode := Trim(Copy(sMyHTML, pPos1+31, (pPos2Ex-pPos1Ex)));

 // Browser mit URL öffnen
 ShellExecute(Handle,'open','http://www.youtube.com/watch?v=' + videoCode, 0,0,SW_SHOWNORMAL) 
end;