Tirar foto assim que upar

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;

0 comentários | COMENTE AQUI!!! :

Postar um comentário

Digite aqui seu comentário...

© Copyright 2009-2013 - Tibia Dash - Direitos Reservados.
Proibida a cópia total ou parcial deste site.
Tibia é propriedade da CipSoft GmbH . Mais em Termos e Condições .