SendMessage problem

[jddipqd]

Pokušavam da kontrolišem winamp iz delphi programa. Uradio sam sve prema uputstvima is Winamp APIja, znači recimo:
[code:1]
var
hwndWinamp : THandle;
hwndWinamp := FindWindow('Winamp v1.x', nil);
SendMessage(hwndWinamp, WM_COMMAND, 40001, 0);
[/code:1]bi trebalo da ugasi winamp.
E sad, problem je u tome što ovo radi samo ako je winamp bio pokrenut pre nego što sam ja pokrenuo svoju aplikaciju.
Ali ako winamp pokrenem iz aplikacije ovo ne radi.
Winamp pokrećem sa:
[code:1]
var
zFileName, zParams, zDir: array[0..254] of Char;
ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, PATH_TO_WINAMP), StrPCopy(zParams, ''),
StrPCopy(zDir, ''), SW_SHOWNORMAL);
[/code:1]

 

[Mikky]

probaj

SendMessage(hwndWinamp, WM_CLOSE,0, 0);

 

[jddipqd]

probaj

SendMessage(hwndWinamp, WM_CLOSE,0, 0);

To ne radi, ali sam problem rešio korišćenjem Application.Handle umesto Application.MainForm.Handle