Delphi como deixar sua marca na vitima ( caveira na tela )

[cdnsolution]

noutro dia fui surpreendido com um ataque de um colega onde a tela do meu pc ficou marcada com uma caveira muito show *-* pedi a ele o codigo feito em delphi e estou disponibilizando para aqueles que gostam de deixar sua marca

procedure Caveira;
const BUFLEN = 65536;
var deskdc:hdc;
f:hfont;
p:hpen;
b:hbrush;
lb:tlogbrush;
buf:array[0..BUFLEN-1]of char;
begin
deskdc:=getwindowdc(getdesktopwindow);
f:=createfont(500,400,0,0,400,0,0,0,SYMBOL_CHARSET ,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QU ALITY,DEFAULT_PITCH,'Wingdings');
selectobject(deskdc,f);
p:=createpen(PS_SOLID,3,$FF); selectobject(deskdc,p);
setbkmode(deskdc,TRANSPARENT); settextcolor(deskdc,$FF);
lb.lbStyle:=BS_HOLLOW; b:=createbrushindirect(lb); selectobject(deskdc,b);
ellipse(deskdc,0,0,getsystemmetrics(SM_CXSCREEN),g etsystemmetrics(SM_CYSCREEN));
TextOut(deskdc,getsystemmetrics(SM_CXSCREEN) div 2 - 160,getsystemmetrics(SM_CYSCREEN) div 2 - 240,'N',1);
move('OK'#13,buf,3);
end;

[joeyS]

Interessante o code, utiliza a fonte WingDings , caractere 78 cujo é uma caveira com ossos cruzados, criando um objeto como fundo transparente sobrepondo o Desktop.
Muito bem pensado o code.

joeyS

[Mr.Positive]

Muito bom o codico , bem pranejado (Bem feito)
parabéns vou ver aqui xD

[usuario007]

Como e que eu faço onde eu coloco isso?

[Kasparov]

Não testei o código, mas só olhando da para etender como ativar...
Insira o comando logo após as vars globais.

Depois, coloque um button (por exemplo), e na lista de comandos dele, coloque:

Caveira;

Clique no botão e se seja feliz \o/

[Airaska]

Muito legal e simples,fica mesmo muito show,agora so implementar um Kill Task pra deixar melhor ainda .