из С++ в Delphi

[Excellion]

помогите народ вот этот код в делфи...

void __fastcall TForm1::Button2Click(TObject *Sender)
{
HWND a = FindWindow("CalcFrame",NULL);
if(IsWindow(a))
{
ShowMessage("Запущен");
}
}

[SNUPY]

Не уверен, но вроде похоже =)

procedure TForm1.Button2Click(Sender: TObject);
var
  a: HWND;
begin
  a := FindWindow(pAnsiChar('CalcFrame'),Nil);
  If IsWindow(a) then ShowMessage('Запущен');
end;

[Excellion]

да все так
Большое спасибо

[Excellion]

аэтот код можно как то на DLL WIZARD сделать, чтобы допустим кадые 60 сек проверял нет ли запущенного класса CalcFrame

[Пепел Феникса]

аэтот код можно как то на DLL WIZARD сделать, чтобы допустим кадые 60 сек проверял нет ли запущенного класса CalcFrame

это вопрос?

ДЛЛ сама по себе работать не будет.

вам что надо, чтоб окна не было? так скройте его.

[Excellion]

проблема в том, что я создаю ДЛЛ к ДЛЛ цепляю форму:

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
Form1:= TForm1.Create(nil);
Form1.ShowModal;

end.


Прицепил я dll к exe' шнику программы (c помощью CFF Explorer) запускаю прогу:


Код Формы прицепленной к Dll:


unit shizaGuardsearcher;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a: HWND;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
a := FindWindow(pAnsiChar('Opera Main Window'),Nil);

If IsWindow(a) then
ShowMessage('Çàïóùåí');

end;

end.

и пока я не закрою окно Формы, сама прога не запуститься...
Мне надо чтобы этот код (проверка Запущена ли такаято прога проверялся с интервалом 60 сек ) как это сделать если Форму приходиться закрывать, чтобы дальше пошла загрузка программы, я не могу понять (вот это собственно мне и надо)