Misschien kan iemand mijn fout ontdekken?
Ik probeer vanuit mijn programma winamp3 aan te sturen (voorlopig alleen play)
Door middel van API vanuit delphi 7.
Deze informatie haalde ik van: http://www.winamp.com/nsdn/winamp2x/dev/sdk/api.jhtml
dit is mijn code: (heb handle natuurlijk wel gedeclareert)
Winamp wordt wel gestart als hij nog niet draait, maar ontvangt of reageert niet op de sendmessage PLAY.
Help me alsjeblieft
Ik probeer vanuit mijn programma winamp3 aan te sturen (voorlopig alleen play)
Door middel van API vanuit delphi 7.
Deze informatie haalde ik van: http://www.winamp.com/nsdn/winamp2x/dev/sdk/api.jhtml
dit is mijn code: (heb handle natuurlijk wel gedeclareert)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure TForm1.Button6Click(Sender: TObject);
begin
hwndWinamp := FindWindow('Studio', nil);
// Controleer of venster er is en wachten
while (GetWindowLong(hwndWinamp, GWL_STYLE) AND WS_VISIBLE)=0 do begin
if hwndWinamp = 0 Then ShowMessage ('Starting Winamp...');
ShellExecute(0,nil,'C:\Program Files\Winamp3\Studio.exe',nil,nil,1);
hwndWinamp := FindWindow('Studio', nil);
sleep(1000);
GetWindowLong(handle, GWL_STYLE);
hwndWinamp := FindWindow('Studio', nil);
end;
//
Showmessage(inttostr(hwndWinamp)); // laat mij even zien of hij de handle heeft
SendMessage(hwndWinamp,WM_COMMAND, 0, 40045); //play
end; |
Winamp wordt wel gestart als hij nog niet draait, maar ontvangt of reageert niet op de sendmessage PLAY.
Help me alsjeblieft
[ Voor 6% gewijzigd door Verwijderd op 11-03-2003 13:10 ]