Este código es completamente útil para cuando me pica la espalda o cuando tengo una fuerte comezón sentado en la computadora
Código Delphi
[-]
procedure rascame(ParteDelCuerpo:TBody,Intensidad:integer,Tiempo:TTime);
var QueMano:TBody;
MePica:boolean;
begin
MePica:=True;
QueMano:=Tbody.Create;
QueMano.Assign(ParteDelCuerpo);
While MePica=True
then begin
With ParteDelCuerpo do
Lapsus:=Tiempo;
Fuerza:=Intensidad;
end;
Try
QueMano.Rascame;
except
QueMano.Message(10,10,'Eres manco!!! no puedo rascarte');
finally
QueMano.YaPaso;
MePica.Status:=False;
end;
QueMano:= nil;
ParteDelCuerpo.Free;
end;
Juaz
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;