Советы по 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]



Содержание раздела