Mega Code Archive
Sistemin destekledigi tüm ekran modlarinin alinmasi
<![CDATA[
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to
procedure GetVideoModes(ModeList: TStringList);
var
i, j: integer;
MoreModes,
AddMode: boolean;
dm: TDeviceMode;
Mode: string;
begin
ModeList.Clear;
MoreModes := True;
Mode := '';
i := 0;
while MoreModes do
begin
MoreModes := EnumDisplaySettings(nil, i, dm);
Mode := IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' +
IntToStr(dm.dmPelsWidth) + ' x ' +
IntToStr(dm.dmPelsHeight);
AddMode := True;
for j := 0 to ModeList.Count-1 do
if Mode = ModeList[j] then
AddMode := False;
if AddMode then
ModeList.Add(Mode);
Inc(i);
end;
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
GetVideoModes(TStringList(memo1.lines));
end;
//ozgurfidan@email.com tüm sorunlarınız için e mail atabilirsiniz
//www.sevgi.get.to
]]>