gdyby ktoś chciał ulepszyć - tutaj daję kod
(deklaracja uses zawiera chyba kilka zbędnych wyrażeń, ale nie chciało mi się sprawdzać które są zbędne).
library Project1;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls;
{$R *.res}
var hwnd_winamp : THandle;
function SzukajWinampa : boolean;
begin
hwnd_winamp := FindWindow('Winamp v1.x',nil);
if hwnd_winamp = 0 then begin
result := false;
end else
result := true;
end;
function Pauza : integer;
begin
Result := SendMessage(hwnd_winamp, WM_COMMAND,40046,0);
end;
exports SzukajWinampa, Pauza;
begin
end.