Не фурычит!

← →
cok11 (2002-02-27 13:28) [0]

У меня не работает прога. Выводит ошибку
EOutOfMemory. Доки скудные и нифига там нет. Help плз...
Код этой шняги:
program Tr;

uses
Forms,Windows,
Utr in "Utr.pas" {Form1};

{$R *.RES}
var
ExtendedStyle : integer;

begin
Application.Initialize;
ExtendedStyle:=GetWindowLong
(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

← →
Digitman © (2002-02-27 13:44) [1]

1. главное окно приложения - невизуальное !
2. "шнягу" ищи в коде класса TForm1

← →
Adder © (2002-02-27 16:16) [2]

>cok11 (27.02.02 13:28) А что такое "шняга" ?

← →
Suntechnic © (2002-02-27 17:30) [3]

>Adder © (27.02.02 16:16)
Я так думаю, что до тех пор, пока он будет называть её "шнягой" она и не заработает :)

← →
Polevi © (2002-02-27 18:06) [4]

шняга это программа, функциональность которой заключается в выдаче ошибки EOutOfMemory
:-)

← →
[NIKEL] © (2002-02-27 18:53) [5]

попробуй всё это сделать после Application.Run

2[NIKEL]
в Application.Run содержится цикл обработки сообщений, так что всё это будет работать, скорее всего после закрытия всех форм (если конечно вообще сработает)

2 cok11
У тебя просто память наверное закончилась. ;-))
Я только что проверил, никаких ошибок у меня нет.
Только вот я никак не пойму зачем окну, которое никогда не будет видно, назаначать какой-то стиль. :-))

Не фурычит! Найти похожие ветки