| <DIV id=37><PRE>procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
DevMode : TDevMode;
begin
i:=0;
while EnumDisplaySettings(nil,i,DevMode) do begin
with Devmode do
ListBox1.Items.Add
(Format(`%dx%d %d Colors`,
[dmPelsW
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
