выполнение процедур одновременно

[JUDAS]

Господа это теория, было бы неплохо посмотреть на код. Он интересует не только хозяина темы, а и меня, для общего развития. Буду благодарен.

[Pamparam]

почему я тогда могу выполнять в это же время другие процедуры в которых нет задержки (delay) и рекурсии?

[Stilet]

Почему выполнение первой останавливается, пока не выполнится вторая?

Хороший вопрос учитывая что

The PostMessage function places (posts) a message in the message queue associated with the thread that created the specified window and then returns without waiting for the thread to process the message.

А еще у меня вопрос - как ты умудрился замерить задержку? Неужели код внутри представленной процедуры так долго выполняется?

P.S. Хотя думаю ответ на этот вопрос заключается в твоей procedure Delay(dwMilliseconds: Longint);

[Silver_S]

выполнение первой останавливается, пока не выполнится вторая

У вас рекурсия, вторая никогда не закончит выполнение.

почему я тогда могу выполнять в это же время другие процедуры

Как бы по-проще выразиться... Вызов Application.ProcessMessages в процедуре Delay заставляет программу проверить наличие других комманд от пользователя и выполнить их, и только тогда продолжить дальнейшее выполнение процедуры. Т. е. вы жмете кнопку 1, запускается код, который никогда не завершится, но периодически проверяет команды от пользователя. Тут приходит команда - жать кнопку 2. Код кнопки 1 останавливается, чтоб выполнить код 2. Но код 2 также уходит в рекурсию и не возвращает управление коду 1...

[fate]

поскольку пообещал код вот смотрите

unit Unit1;

interface

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

type
TNewThread = class(TThread)
  private
    name:string;
    id:byte;
    go:boolean;
  protected
    procedure Execute; override;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure WndProc(var Msg: TMessage); override;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Thread:array[0..1]of TNewThread;
implementation

{$R *.dfm}


procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
if Msg.Msg=wm_user+2 then
form1.Label1.Caption:=inttostr(strtoint(form1.Label1.Caption)+1);
if Msg.Msg=wm_user+3 then
form1.Label1.Caption:=inttostr(strtoint(form1.Label1.Caption)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Thread[0]:=TNewThread.Create(true);
Thread[0].name:='------000-------';
Thread[0].id:=0;
Thread[0].go:=true;
Thread[0].FreeOnTerminate:=true;
Thread[0].Priority:=tpLower;
Thread[1]:=TNewThread.Create(true);
Thread[1].name:='------111-------';
Thread[1].id:=1;
Thread[1].go:=true;
Thread[1].FreeOnTerminate:=true;
Thread[1].Priority:=tpLower;

Thread[0].Resume;
Thread[1].Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Thread[0].go:=false;
Thread[1].go:=false;
Thread[0].Terminate;
Thread[1].Terminate;
end;

{ TNewThread }

procedure TNewThread.Execute;
var Handle:HWND;
begin
  inherited;
Handle:=FindWindow(nil, PChar(name));
if Handle<>0 then
while go do begin
if id=0 then
PostMessage(Handle,WM_USER+2,ord('A'),0);
if id=1 then
PostMessage(Handle,WM_USER+3,ord('A'),0);
sleep(100);
end;
end;

end.

сначала форме дал caption ------000------- откомпилировал переименовал exe и изменил caption на ------111-------, запустил нажал кнопку и на обеих формах начало увеличиваться значение в Label одинаково. ТС возми код за основу и радуйся

[Stilet]

У вас рекурсия, вторая никогда не закончит выполнение.

Не пойму... Де вы там рекурсю надыбали?... В топе то...

[fate]

процедура ahaha вызывает сама себя, кстати она там лишняя если нужно бесконечно слать сообщение проще циклом воспользоваться

[Silver_S]

procedure ahaha(handl:string);
var handle:thandle;
begin
   
   Handle:=FindWindow(nil, PChar(handl));
PostMessage(Handle,WM_CHAR,ord('A'),0);
    delay(100);
  ahaha(handl); //рекурсия
end;

[Stilet]

Ага-ага... Теперь увидел. Ну да, тогда понятно что тут в потоки нужно пихать. Но лучше стратегию другую выбрать...

[JUDAS]

fate, идею понял, спасибо за пример кода !