Código Delphi [-] function Resolucion: string; var x, y: integer; begin x:=screen.Width; y:=screen.Height; result:=inttostr(x)+' x '+inttostr(y); end;
function Resolucion: string; var x, y: integer; begin x:=screen.Width; y:=screen.Height; result:=inttostr(x)+' x '+inttostr(y); end;