Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

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

← →
ЮРИЙ_К ©   (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-)

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c