Delphi 2010 mp4 starten

[Davee]

oh man ich bin auch ein depp

hier dei lösug

Delphi-Quellcode:

function kplay (titel: string):String;
var
  hwndWinamp : THandle;
  status :integer;
begin
 hwndWinamp:= FindWindow('Winamp v1.x',nil);
 status := SendMessage(hwndWinamp,WM_USER,WM_USER,104);
 SendMessage(hwndWinamp,WM_COMMAND, WINAMP_PAUSE, 0);
 ShellExecute(0, nil, 'C:\Program Files (x86)\VideoLAN\VLC\vlc.exe',pchar('--started-from-file --fullscreen --playlist-enqueue'+' "'+titel+'"'), nil, sw_Normal);

 end;

Danke nochmal ^^ für eure tips