logic 1 msn alabilir miyim senin?

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class ListBox1: TListBox; procedure FormCreate ; procedure FormClose ; private public end; var Form1: TForm1; OldWidth, OldHeight: integer; implementation function SetScreenResolution : Longint; var DeviceMode: TDeviceMode; begin with DeviceMode do begin // dmDeviceName:='\\.\Display2'; dmSize := SizeOf ; dmPelsWidth := Width; dmPelsHeight := Height; dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; end; Result := ChangeDisplaySettings ; end; procedure TForm1. FormCreate ; var i : Integer; DevMode : TDevMode; begin OldWidth := GetSystemMetrics ; OldHeight := GetSystemMetrics ; form1. Width:=1024; form1. Height:=768; form1. Top :=0; //1025=screen resolution + 1 form1. Left :=OldWidth+1; SetScreenResolution(800,600); end; procedure TForm1. FormClose ; begin SetScreenResolution(1024,768); end; end. bu komut sistemdeki çözünürlüğü değiştirmemizi sağlar. şuan 800 e 600 e çeviriyor.