Форум: "WinAPI";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Как скрыть програму от Ctrl+Alt+Del в WinNT/Win2k?   Найти похожие ветки 

← →
Amit   (2002-02-04 21:15) [10]

Скрыть Таскбар:
Скрывает:
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;
И делает видимой Таскбар
procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;
отрубить показ файла в Ctrl-Alt-Del:
пишеш это до implementation
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external "KERNEL32.DLL";
а это в самом процедуре:
отрубить Ctrl-Alt-Del:
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
вернуть Ctrl-Alt-Del:
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);

---

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

Форум: "WinAPI";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c