1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

[Delphi] SendMessage

Тема в разделе 'Delphi', создана пользователем WestSide072, 23 июл 2010.

  1. TopicStarter Overlay

    WestSide072 Наш человек Пользователи

    Сообщения:
    10
    Лайки:
    6
    Репутация:
    0
     Здрасте, нужно сделать чтобы программа тыкала 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
  2. TheMazzahaka Пользователи

    Сообщения:
    223
    Лайки:
    76
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    J-Games Dev
    FindWindow(nil,'Bot');-помоему 1 параметр имя окна 2 параметр обычно nil
  3. Fedcomp Пользователи

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

    Сообщения:
    223
    Лайки:
    76
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    J-Games Dev
    Ты типа гулять любишь или тя девушка выгнала ?

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

    Сообщения:
    49
    Лайки:
    4
    Репутация:
    0
    Типо это было предложение тебе. Так стоп, у кого что болит тот о том и говорит? соболезную тебе тогда! :lol:
    http://msdn.microsoft.com/en-us/library/ms644950(VS.85).aspx
    Достаточно авторитетный источник?
  6. TheMazzahaka Пользователи

    Сообщения:
    223
    Лайки:
    76
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    J-Games Dev
    Недостаточно...буржуйские ресурсы не есть тру а тут самого билли...ЗЫ вест непрально тип ищешь...
Черновик сохранён Черновик удалён

Поделиться этой страницей