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

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

KOL+отключить показ программы в CTRL+ALT+DEL


avakss ©   (2003-07-29 15:17:00) 

Как отключить показ KOL-программы в CTRL+ALT+DEL в WINDOWS98?
Обычная дельфи-программа отключается с помощью:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
 external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin //Hide
if not (csDesigning in ComponentState) then
 RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //Show
if not (csDesigning in ComponentState) then
 RegisterServiceProcess(GetCurrentProcessID, 0);
end;

Но для KOL-программы это не проходит--не находит "csDesigning in ComponentState", а если писать только RegisterServiceProcess(GetCurrentProcessID, 1), то программа не прячется в процессах.


SPeller   (2003-07-30 09:14:00) [1]


> то программа не прячется в процессах.

А должна прятаться и быть не видна в списке процессов? Э-э батенька загнули. Пишите драйвер на С++ если вам такое нужно. А хоть KOL, хоть VCL, хоть чистый Си плюс плюс - после строчки
RegisterServiceProcess(1);
Прога исчезает из списка задач, но никак не процессов. Чтобы небыло ещё и в списке процессов - Halt().


Наверх

Титульная страница Поиск, карта сайта Написать письмо