Fazendo um Programa que tira ScreenShot

[™♥♦§Renan1609§♣♠™ 0]

Oque Iremos Presicisar :

 

1Buttom

 

1Edit

 

Adicione nas uses

 

Jpeg;

 

 

Adicione as Functions

 

procedure ScreenShot (Arquivo:string);

var

Bitmap : TBitmap;

DC : hDc;

DesktopRect : TRect;

DesktopCanvas : TCanvas;

HoraAtu : DWord;

begin

Application.MainForm.Hide;

HoraAtu := GetTickCount;

while GetTickCount-HoraAtu < 500 do

Application.ProcessMessages;

try

DC := GetDC(GetDesktopWindow);

try

DesktopCanvas := TCanvas.Create;

Bitmap := TBitmap.Create;

try

Bitmap.Width := Screen.Width;

Bitmap.Height := Screen.Height;

DesktopCanvas.Handle := DC;

DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);

Bitmap.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);

Bitmap.SaveToFile(Arquivo);

finally

Bitmap.Free;

DesktopCanvas.Free;

end;

finally

ReleaseDC(GetDesktopWindow,DC);

end;

finally

Application.MainForm.Show;

end;

end;

 

No Evento onclick do Buttom1 Adicione

 

Screenshot(Edit1.Text + '.jpeg');

 

Pronto o SS Ira Aparecer na Pasta do Seu programa

 

E No Edit Coloque o Nome Que Voce Quer que Salve

[Dorgas™ 0]

D:, eh +- que dificuldade? pq se nao vo baixa o delphi '-', minha tecla Print Screen ta quebrada e nao axei um programa de tira print no baixaki (impressionamente+naoaxei D:)

 

Thx.

[™♥♦§Renan1609§♣♠™ 0]

é bem iniciante so pra demonstra ta aqui o meu feito em menos de 5 min

 

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

• Entre
• ou
• Cadastre-se

[SaYaDiN² 0]

D:, eh +- que dificuldade? pq se nao vo baixa o delphi '-', minha tecla Print Screen ta quebrada e nao axei um programa de tira print no baixaki (impressionamente+naoaxei D:)

 

Thx.

 

lol

 

Ele deu o código pronto... ¬¬'

 

Não tem dificuldade nisso

[AndreiMiudinho 0]

Cara te dou uma dica.

Coloca a opção de uma tecla de atalho.

Por exemplo jogos quem quiser é soh ficar usando o atalho em vez de ter que clicar.

Ou usar a tecla Print.

 

Iria facilitar e seria bem util o teu programa.

 

=]

[קђ๏єภเא 11]

Demais cara eu já tinha visto isso dai ante mais eu so mais o velho Print Scrn, mais valeu mesmo cara poirque e pra ficar mais legal assim e deu certim mesmo em!

 

Enjoy xd!

[~skoll~ 0]

boa ganho meu thanks

[Kitow 0]

Vou fazer tbm lol sou um membro Velho para caraleo ;^^

[qwe789zxc 0]

tipo como eu add jpge nas uses?

[Surfistinha£ 14]

tipo como eu add jpge nas uses?

 

Simples olhe a imagem

 

[Quickboom 0]

Como faço pra tirar print quando fizer unbelieveble no combat arms ? ><

[friza12345 0]

e como eu addiciono as fuctions??

[[F]غrnandido™~ 0]

num intendi o "adicione as Functions" onde fica isso?

comecei hj

[~NaRuToOGaMe~ 0]

estamos horas tentando aguarda essa resposta e vc n responde ?

vou te mandar pro horus se n ta respondendo nossa pergunta

e vc vai ser banido:o

[tekitos123 1]

pra declara é logo após

 

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

• Entre
• ou
• Cadastre-se

 

vc copia el cola a procedure

[™♥♦§Renan1609§♣♠™ 0]

غrnandido™~;1368344']num intendi o "adicione as Functions" onde fica isso?

comecei hj

declare as functions embaixo disso ↓

 

implementation

 

{$R *.dfm}

 

 

 

estamos horas tentando aguarda essa resposta e vc n responde ?

vou te mandar pro horus se n ta respondendo nossa pergunta

e vc vai ser banido

euri,vai la prozão reclama la com o horus!

[ricardolg36 0]

Amigos , em baixo de

 

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

• Entre
• ou
• Cadastre-se

 

....Abaixo disso digite a Fuction (função) que ele manda fazer no keyloager !!!:D

[~NaRuToOGaMe~ 0]

Bom, aki pegou só

 

que quando vai executar ele apareçe outra imagen

 

e não a imagen que eu botei no programa !

[PletsMan 0]

Put's tutoriais d hoje em dia n tem mais imagens:p

Poow eu comecei oont o Delphi e nun sei faze isso nao

hushua' Pod por umas IMG?

Flow~

['MarcoReis 0]

Put's tutoriais d hoje em dia n tem mais imagens:p

Poow eu comecei oont o Delphi e nun sei faze isso nao

hushua' Pod por umas IMG?

Flow~[/color][/b]

 

Se tiver uma dúvida informe esse é super simples me diz qual dúvida você tem ?

[' Sky 3]

manolo aki ta dando erro na Jpeg

nas user's

fik vermelho .

pode me ajudar ?

 

@Edit

 

conseguir fazer

pq se a pessoa n for inteligente n consegue

pq tem um codigo D esktop

q esta com espaço .

é so tirar os espaço

ja nas users

vc click com o direito e alguma user e NEW e bota Jpeg

[rychardsson 0]

Bom mas

pra quem e novato

igual a mim

sem imagem fica complicado

:confused:

[Adeuk 0]

@Rych

 

Precisa de suporte?

 

Poste alguma dúvida...

 

Para que imagem? .-.

[DarkSj 0]

manolo aki ta dando erro na Jpeg

nas user's

fik vermelho .

pode me ajudar ?

 

@Edit

 

conseguir fazer

pq se a pessoa n for inteligente n consegue

pq tem um codigo D esktop

q esta com espaço .

é so tirar os espaço

ja nas users

vc click com o direito e alguma user e NEW e bota Jpeg

 

eu tb n tava conseguindo compila daee me toqei

qe tinha um E spaço

:D

[Niik 2]

Thankyou!

 

Tava procurando esse tuto xD