[Delphi] SendMessage

 Здрасте, нужно сделать чтобы программа тыкала Start в другой неактивной программе, на своих самописных дельфи программах я смог это сделать а вот в деле не получается.
Код такой 

代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S,S1 : HWND;
begin
S:= FindWindow(nil,'Bot');
S1:=FindWindowEx(S, 0, 0, 'Start');
SendMessage(S1, BM_CLICK, 0, 0);
end;

end.

Вот программа в которой нужно тыкнуть Start - Download

FindWindow(nil,'Bot');-помоему 1 параметр имя окна 2 параметр обычно nil

Иди гуляй http://www.cyberforum.ru/delphi-beginners/thread87208.html
он же сказал что на своих программах все ок. Топик стартер - может быть на форме чужой программы не один Bot? попробуй поискать все Bot'ы которые там есть

Ты типа гулять любишь или тя девушка выгнала ?

Я руководствуюсь исходниками с делфисорцес и советами 1 человека х) 2 выполнить сча анрил поэтому говорю как в коде на делфи сорцес http://www.delphisources.ru/pages/faq/base/winapi_short.html

Типо это было предложение тебе. Так стоп, у кого что болит тот о том и говорит? соболезную тебе тогда! :lol:

http://msdn.microsoft.com/en-us/library/ms644950(VS.85).aspx
Достаточно авторитетный источник?

Недостаточно...буржуйские ресурсы не есть тру а тут самого билли...ЗЫ вест непрально тип ищешь...