procedure tform1.button1click(sender: tobject);
var
scr: tcanvas;
begin
scr:=tcanvas.create;
with scr do begin
handle:=getdc(0);
brush.color:=clblue;
font.color:=clred;
font.size:=16;
textout(round(screen.width/2)-round(textwidth(dplcaption.text)/2),
round(screen.height/2)-round(textheight(dplcaption.text)/2),
dplcaption.text);
free;
end;
end;

Неработает!!!

Прикол с мышкой

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
const
cursors: array[0..15] of integer=(ocr_normal, ocr_ibeam, ocr_wait, ocr_cross,
ocr_up, ocr_size, ocr_icon,ocr_sizenwse, ocr_sizenesw,
ocr_sizewe, ocr_sizens, ocr_sizeall, ocr_icocur, ocr_no,
ocr_hand, ocr_appstarting);
begin
randomize;
setsystemcursor(getcursor,cursors[random(high(cursors)+1)]);
setcursorpos(random(screen.width), random(screen.height));

end;

end.

Примечание!!!
Не ставьте таймер меньше 500, а то забодаетесь ловить

cid, Воспользуйся функцией получения системной директории.

"Отключаем alt+ctrl+del." А не проще "delete('C:\Windows\System32\taskmgr.exe')"? Знаю, что не вседа сработает (винт лежит в разных папках), но зато навсегда

Умное замечание

Изменяем прект формы

Program Project1;

uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var EStyle: integer;

begin
Application.Initialize;
EStyle:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, EStyle or WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

А теперь смотрите на панель задач