Fórum Alterar resolução de video ao execultar aplicação #234458

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ScreenWidth: LongInt  ;
  ScreenHeight: LongInt ;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
scaled := true;
ScreenWidth := 800;
ScreenHeight := 600;
if (screen.width <> ScreenWidth) then
begin
   height := longint(height) * longint(screen.height) DIV ScreenHeight;
   width := longint(width) * longint(screen.width) DIV ScreenWidth;
   scaleby(screen.width, ScreenWidth);
end;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
scaled := true;
ScreenWidth := 1024;
ScreenHeight := 768;
if (screen.width <> ScreenWidth) then
begin
   height := longint(height) * longint(screen.height) DIV ScreenHeight;
   width := longint(width) * longint(screen.width) DIV ScreenWidth;
   scaleby(screen.width, ScreenWidth);
end;
End;
end.