![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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().