Советы по Delphi
Недоступность Ctrl-Alt-Del I
Вопрос:
Программа должна быть классной и небольшой, к тому же она должна загружаться прежде, чем пользователь сможет нажать CTRL-ALT-DEL.
Мое решение:
С помощью Delphi скомпилируйте единственный вызов WIN32API в небольшой .exe файле.
Программа:
| program small; {автор Richard Leigh, Deakin Univesity 1997} uses WinProcs; {$R *.RES} var Dummy : integer; begin Dummy := 0;{Отключаем ALT-TAB}SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);{Отключаем CTRL-ALT-DEL}SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);end. |
Это главный модуль - без форм и после компиляции ма-а-а-а-ленький такой... [000146]
Пришло от читателя письмо:
Решил тут вам послать кое какое решение проблемки ctr+alt+del
| Function RegisterServiceProcess(dwProcessID, dwType : DWord): DWord; stdcall external 'Kernel32.dll' name 'RegisterServiceProcess'; // вызываю kernel32, кричу ей RegisterServiceProcess с каким то параметрам 1- скрыть , 0 - показать procedure TForm1.FormCreate(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessId(), 1);end; end. |
таки образом пользователь нажав ctr+alt+del не видет прогу в списке.
From DHPon [000774]
