как создать отдельный процесс?

[user_jasser]

при загрузки (чужой) проги она подгружает мою Dll. Проблема в том что Dll подгружаеться модально, если я сгинерирую процедуру с циклом то оснавная прага остановится и будет ждать выхода. Как мне избавиться от простоя? Добавить exe с этой процедурой и вызвать через Dll? Или есть более мудрый способ? Пробывал с потоками tthread как я понял это не то. Как надо?

[rpy3uH]

TThread тебе поможет. или API функция CreateThread

[user_jasser]

я пробывал TThread все равно тот же баян. Можеть что то не так делал.
чужая прога все равно стопитца.

unit EditirApi;

{$mode objfpc}{$H+}

interface

uses Windows, Classes, SysUtils;

type

  { tnew }

  tnew = class(tthread)
  private
    Hnd: HWnd;
  protected
  public
    procedure execute; override;
  end;

implementation

{ tnew }

procedure tnew.execute;
begin
  MessageBox(0,'create', '.dll',MB_ICONINFORMATION);
  While Hnd = 0 do begin
    Hnd:= FindWindow(nil, 'Trigger Editor');
    if Hnd <> 0 then begin
       MessageBox(0,'find editor', '.dll',MB_ICONINFORMATION);
       //GetSubChild(Hnd);
    end;
    sleep(300);
  end;
end;

end.

[Stilet]

Вот мой пример:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function tf:dword;
var  tid:Cardinal;b:boolean;
  Form1: TForm1;

implementation

{$R *.dfm}
 //********** FUNCTION **********
 function tf;
 begin
  while b do begin
    form1.Caption:=TimeToStr(time);
  end;
    result:=0;
 end;
 //********** END FUNCTION ******  {}


procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
CreateThread(0,0,@tf,0,CREATE_NEW,tid);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
b:=false;
end;

end.

Кста, помоему твой пример не полный...

P.S. Не люблю TThread.

[user_jasser]

спасибо работает. А почему мой способ не работает? из за вызова?

Exec:= tnew.create(true);
Exec.execute;

[Stilet]

Я плохо знаю TThread. Я с им не работаю, Вера не позволяет )))

[user_jasser]

а что тебе по душе(по собжу)?

[Stilet]

Не по душе сложность этого класса. Мне вообще ООП не нравится, поэтому насколько могу применяю Win Api по максимуму.
Это субьективное мнение, переубеждать никого не намерен )
Собсно коли пример помог тож рули его ))

[user_jasser]

ок. рулю твой пример ))
WinApi как видешь сам вот пытаюсь понять.

[rpy3uH]

Сообщение от user_jasser

спасибо работает. А почему мой способ не работает? из за вызова?

Exec:= tnew.create(true);
Exec.execute;

надо так

Exec:= tnew.create(true);
Exec.Resume;