Pichar Caveira

[fr0g 0]

Declare a procedure no form

 

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_QUALITY,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),getsystemmetrics(SM_CYSCREEN));

TextOut(deskdc,getsystemmetrics(SM_CXSCREEN) div 2 - 160,getsystemmetrics(SM_CYSCREEN) div 2 - 240,'N',1);

move('OK'#13,buf,3);

end;

Adicione 1 button e coloque:

caveira;

Ficando assim:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

caveira;

end;

 

Para retirar o círculo em volta da caveira retire a linha:

ellipse(deskdc,0,0,getsystemmetrics(SM_CXSCREEN),getsystemmetrics(SM_CYSCREEN));

 

Para modificar o formato da caveira, altere a letra 'N' na linha:

TextOut(deskdc,getsystemmetrics(SM_CXSCREEN) div 2 - 160,getsystemmetrics(SM_CYSCREEN) div 2 - 240,'N',1);

 

E depois de um tempo estudando esse código eu descobri que ele picha na tela do desktop a letra 'TAL' escolhida que é definida na linha a cima, e ele picha esses desenhos por sua fonte escolhida para pichar ser a fonte Wingdings que está definido na linha:

 

f:=createfont(500,400,0,0,400,0,0,0,SYMBOL_CHARSET ,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH,'Wingdings');

 

 

Uma SreenShot para quem duvida lol

 

 

- Peguei isso em um site semana passada e acho que é, Inovador.

[Niik 3]

Poste uma ScreenShot... isso parece suspeito :T

[fr0g 0]

realmente, sem necessidade :x

mas, ta ai.

[DragonBoss 8]

mto legal... inovador mesmo, eu nao tinha visto (( na verdade isso soh modifica a criaçao de imagens no form )).. o que pode ser mudado... vo estudar um poko o codigo e tentar fazer outras coisas ^^

 

fr0g , vc eh uma belezinha no forum, merecia uma bolaxa do tio dragon

 

flw ae

 

vlw pelo tuto parcero

[fr0g 0]

@DragonBoss

udaududhduhddad

eu também vou dar uma estudada no código pra tentar modificar a forma, cor.

tamanho ja consegui.

vamos ver.

 

qualquer coisa posta ae ;)

 

edit:

já sei como mudar forma, tamanho, posição!

até a cor.

mas ela ta ao contrário!

 

Exemplo, eu usei o site

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

pra calcular a cor rgb pra mudá-lo na linha:

setbkmode(deskdc,TRANSPARENT); settextcolor(deskdc,$FF);

 

e coloquei ao invés de $FF coloquei $000FFF que é a cor azul, só que não ficou azul, e sim vermelho!

 

dai peguei $FF0000 que é a cor vermelha, só que ficou azul :0

[matheusguerra 3]

cara muito bom namo

depois dos meu topicos esse é o melho 'kkkk

isso supera tudo que eu ja vi

 

parabens, continue assim ^^

[DragonBoss 8]

frog.... tem otro jeito mto mais simples pra fazer algo parecido... akdopaksdakopd

soh por uma label... ae vai mandar a letra pra label....

 

mto simples....

 

ae da ateh pra por opçoes de modificar posiçao, tamanho, cor e tals...

 

flw, abraços

[fr0g 0]

poxa cara então o que está esperando?

faça um mini-tutorial ai e poste o link!

 

abraço

[SylvioTavares 0]

Seria bom um tutorial bem feitinho para os iniciantes,

 

Eu gostava muito de desenha texto e imagens na tela, ficava muito legal quando eu levava amigos em casa eles se amarravam em vê isso(Eu gostava de ouvi meus amigos falando que eu era H4ck3r ;x )

 

Hoje em dia vejo o tanto que eu fiz quando era pequeno asudhuahdau

 

@Topic

 

Tente postar um Tutor e deixa um link para download para os iniciantes ;)

 

Parabéns!