Search results for 'TDeviceMode'. 1 post(s) found.
- 2007/08/25 How To Change Screen Resolution
Change the resolution of your screen.
Actually I've ever used this function for TV-based software development, because of TV-resolution.
{
The function NewRes can have the following result:
DISP_CHANGE_SUCCESSFUL The settings change was successful.
DISP_CHANGE_RESTART The computer must be restarted in order for the graphics mode to work.
DISP_CHANGE_BADFLAGS An invalid set of flags was passed in.
DISP_CHANGE_FAILED The display driver failed the specified graphics mode.
DISP_CHANGE_BADMODE The graphics mode is not supported.
DISP_CHANGE_NOTUPDATED Windows NT only: Unable to write settings to the registry.
}
function NewRes(XRes,YRes:DWord):integer;
var
DevMode:TDeviceMode;
begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=XRes;
DevMode.dmPelsHeight:=YRes;
Result:=ChangeDisplaySettings(DevMode, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if NewRes(1024,768)=DISP_CHANGE_SUCCESSFUL then
begin
ShowMessage('Resolution changed.');
end;
end;
The function NewRes can have the following result:
DISP_CHANGE_SUCCESSFUL The settings change was successful.
DISP_CHANGE_RESTART The computer must be restarted in order for the graphics mode to work.
DISP_CHANGE_BADFLAGS An invalid set of flags was passed in.
DISP_CHANGE_FAILED The display driver failed the specified graphics mode.
DISP_CHANGE_BADMODE The graphics mode is not supported.
DISP_CHANGE_NOTUPDATED Windows NT only: Unable to write settings to the registry.
}
function NewRes(XRes,YRes:DWord):integer;
var
DevMode:TDeviceMode;
begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=XRes;
DevMode.dmPelsHeight:=YRes;
Result:=ChangeDisplaySettings(DevMode, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if NewRes(1024,768)=DISP_CHANGE_SUCCESSFUL then
begin
ShowMessage('Resolution changed.');
end;
end;
Another posts included in "Delphi"
| How To Check If A Soundcard Is Installed (0) | 2007/08/25 |
| How To Open Url In Default Webbrowser (0) | 2007/08/25 |
| How To Send An E-mail By Code (0) | 2007/08/25 |
| How To Force The Correct Decimal Separator (0) | 2007/08/25 |
| How To Register Own File Types (0) | 2007/08/25 |
| How To Get Volume Name (0) | 2007/08/25 |
| How To Get Windows And System Directory (0) | 2007/08/25 |
| Get The Drive Type (0) | 2007/08/25 |
ChangeDisplaySettings,
DISP_CHANGE_FAILED,
DISP_CHANGE_NOTUPDATED,
DISP_CHANGE_SUCCESSFUL,
EnumDisplaySettings,
Screen Mode Change,
Screen Resolution,
TDeviceMode
Trackback : Cannot send a trackbact to this post.
-
Subject Buy ultram.
2008/12/29 23:50
Ultram. Ultram er. Ultram home gym phentermine online. Ultram addiction.
-
Subject Snorting tramadol.
2009/03/04 12:57
Cheap tramadol. Tramadol. What is tramadol. Tramadol c.o.d delivery.
-
Subject Buy ambien without prescription.
2009/06/15 18:56
Where can i buy ambien for next day delivery. Buy ambien without prescription. Buy ambien.
-
Subject Buy ambien.
2009/06/16 12:05
Ambien buy. Buy ambien cr overnight mail md consultation. Buy ambien online cod. Buy ambien drug online. Buy ambien. Buy ambien without prescription.
-
Subject Buy ambien online cod.
2009/06/18 07:33
Buy ambien online. Buy ambien drug online. Ambien cr buy online no rx.
-
Subject Animal sex clips.
2009/07/07 15:05
Farm animal and girl sex. Free animal sex. Animal sex dvds. Animal sex clips.
-
Subject different money making ideas
2010/01/25 08:19
moneyideas
-
Subject different money making ideas
2010/01/28 21:38
moneyideas
-
Subject different money making ideas
2010/01/29 06:01
moneyideas
-
Subject different money making ideas
2010/01/31 16:45
moneyideas
Prev
Rss Feed