Почему окно не прячется???

← →
ЮРИЙ_К (2003-01-28 15:10) [0]

Народ, все вроде правильно вставляю, а окно не прячется 8-( В чем дело. Пример вытянул из Кулибы, да и так много где видал. Однаксть не работает 8-( Вот кусок кода
procedure TForm1.FormCreate(Sender: TObject);
var
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;
begin
if GetVersion >= $80000000 then
begin
hDllKernel := LoadLibrary("kernel32.dll");
RegProcess := GetProcAddress(hDllKernel, "RegisterServiceProcess");
RegProcess(0, 1);
end;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;

← →
=SOFT= (2003-01-28 15:20) [1]

Попробуй убрать:

SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

говорят помогает ;)

← →
ЮРИЙ_К (2003-01-28 16:11) [2]

>> =SOFT=
Тогда в трэе появляется. А вооще уже нашел ответ. ТЕму можно закрыть 8-)

Почему окно не прячется??? Найти похожие ветки