Привет!
фаер 2.1
делфи 7.0
На делфи написал udf выводящую сообщение пользователю
| Код |
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
App: TApplication;
begin
App:=TApplication.Create(nil);
Windows.MessageBox(App.Handle, 'fdfdfdf','Ошибка', MB_TASKMODAL or MB_TOPMOST);
end;
end.
|
Скомпилировано из под Windows xp, из фаера все вызывается и работает
Регистрирую dll на Windows server 2003 (х32) - при вызове dll фаер намертво повисает. В чем может быть причина??
Создал просто приложение вызывающее эту функцию - компилирую на ХР, из под сервера также без проблем работает.
 |
