uses IniFiles;

// Опишем функцию RegisterServiceProcess из Kernel32.dll
function RegisterServiceProcess( dwProcessID, dwType: Integer ): Integer; stdcall;
   external 'KERNEL32.DLL';

// Необходимые переменные
var
  Form1: TForm1;
  Int: longint;
  TaskBar: HWND;
  WinDir: array[0..255] of Char;

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
  Wallpaper: string;
  bm: TBitmap;
begin
   // Получаем путь к Windows
   GetWindowsDirectory( WinDir, SizeOf( WinDir ) );

   // Отключаем Alt+Tab и Ctrl+Alt+Del
   SystemParametersInfo( 97, word( true ), @Int, 0 );
   // Находим TaskBar...
   TaskBar := FindWindow( 'Shell_TrayWnd', nil );
   // ...и убираем его
   ShowWindow( TaskBar, SW_HIDE );
   // Убираем программу из списка
   // "Завершение работы программы"
   RegisterServiceProcess( GetCurrentProcessID, 1 );

   // Меняем стиль формы
   BorderStyle := bsNone;
   // Растягиваем форму на весь экран
   Left := 0;
   Top := 0;
   Width := Screen.Width;
   Height := Screen.Height;
   // Выравниваем панель
   Panel1.Left := Width div 2 - Panel1.Width div 2;
   Panel1.Top := Height div 4;

   // Смотрим, что творится о обоями на рабочем столе
   Ini := TIniFile.Create( WinDir + '\win.ini' );
   Wallpaper := Ini.ReadString( 'Desktop', 'Wallpaper', text );
   if Wallpaper = '(None)' then
      Self.Color := clBackground
   else
   begin
      bm := TBitmap.Create;
      bm.LoadFromFile( Wallpaper );
      if ( bm.Width < Image1.Width ) or ( bm.Height < Image1.Height ) then
         Self.Color := clBackground
      else
         Self.Image1.Picture.LoadFromFile( Wallpaper );
   end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   // Вертаем все на место
   SystemParametersInfo( 97, word( false ), @Int, 0 );
   ShowWindow( TaskBar, SW_SHOW );
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   // Отключаем Alt+F4
   if ssAlt in Shift then
      if Key = VK_F4 then
         Key := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   // Вырубаем винды к черту
   ExitWindowsEx( EWX_Force or EWX_PowerOff or EWX_ShutDown, 0 );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Edit1.Text = 'test' then
      Close
   else
   begin
      Edit1.Clear;
      Edit1.SetFocus;
   end;
end;