| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему окно не прячется??? [D6, Win95/98, WinXP]

ЮРИЙ_К ©   (2003-01-28 15:10:00) 

Народ, все вроде правильно вставляю, а окно не прячется 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;

---

ЮРИЙ_К   (2003-01-28 16:11:00) [1]

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

---

=SOFT=   (2003-01-28 15:20:00) [2]

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

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

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

---

Наверх