интервал на выполнение

[Excellion]

Здравствуте, делаю DLL
у меня возник вопрос как сделать интервал выполнения без Элемента Timer

Код DLL:

library shizaGuard;

uses
  SysUtils,
  Classes, Windows, Messages, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,

  shizaGuardsearcher in 'shizaGuardsearcher.pas' {Form1};

{$R *.res}
procedure DllEntryPoint; stdcall;

begin


end;


exports
  DllEntryPoint;
begin
a := FindWindow(pAnsiChar('Opera Main Window'),Nil);

 If IsWindow(a) then begin
Form1:= TForm1.Create(nil);
Form1.ShowModal;
end
else
Application.Terminate;

end.

[Stilet]

Опиши свою Thread, и в ней sleep(задержка потока в миллисекундах) - будет а-ля таймер тебе.

[Excellion]

а поподробнее можно ?
как сделать это ?
что куда писать ?
помогите плиз...

[Stilet]

Вот есть у тебя проект єтой ДЛЛки. так?
Тапереча File-New-Other-Thread Object. Получаешь модуль потока. В нем есть метод Execute, где нужно написать

procedure qq.Execute;
var b:boolean;
begin   b:=true;
 while b do begin
  a := FindWindow(pAnsiChar('Opera Main Window'),Nil);
  If IsWindow(a) then begin
   Form1:= TForm1.Create(nil);
   Form1.ShowModal;
   b:=false;
  end;
  sleep(1000);
 end;
end;

Естесственно этот модуль должен видеть переменную Form1,мало ли где ты ее описываешь.

Далее в ДЛЛке

var t:qq;
begin
 t:=qq.Create;
end.

И все. Ессно в uses ДЛЛки должен быть указан модуль где описана эта Thread.
В принципе это в основном, а дальше все зависит от того что ты хочешь замутити

[Excellion]

не получается Крошит ошибки при компиляции

[Stilet]

Да что ты? Вот так все бросишь и даже крошки не засветишь? )
Тут телепатов нет.