{Tirar screenshoot ao upar}

Código:

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.jpg');

end;

Sleep(1000);

end;

end; 

Ou Baixe

Ou baixe:

sshup.ng

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.png');

end;

Sleep(1000);

end;

end; 

Só mudei o formato da img, .jpg pra .png (a qualidade fica BEM MELHOR)

Png fica bem mais pesado...

Mas mesmo assim prefiro png

Não sei se será considerado flood, porém enfim, queria agradecer pelo script, pois estou usando, irá ajudar com meu lt. Obrigada. =^-^=

Editado Maio 6, 2011 14 anos por she (veja o histórico de edições)

Não seria Flood se você tivesse postado alguma duvida, isso é considerado topico revivido e flood .