function SetSize(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if SetSize(1024, 768) then
showMessage('我的程序要在800*600下执行，按确定后变成800*600');
//设置为800*600
SetSize(800, 600);
end;
//这是我以前写的。就是改变PC的分辨率还满足软件的要求。
//formclose之后再改回原来的。（你自已试着写一下,凡事还是要自已多动手。反正简单）
//我现在最讨厌全屏的软件。一个是写的时候累，还有一个就是霸道
//设成800*600，居中，在一般1024*768的情况下即美观又实用。800*600的话全屏正好。就是要太弃640*480。hoho
