DeviceMode.dmSize = SizeOf(TDeviceMode);
DeviceMode.dmPelsWidth = Width;
DeviceMode.dmPelsHeight = Height;
DeviceMode.dmFields = DM_PELSWIDTH || DM_PELSHEIGHT;
Result = ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY);

LONG ChangeDisplaySettings(
  LPDEVMODE lpDevMode,  // graphics mode
  DWORD dwflags         // graphics mode options
);

lpDevMode 
[in] Pointer to a DEVMODE structure that describes the new graphics mode. If lpDevMode is NULL, all the values currently in the registry will be used for the display setting. Passing NULL for the lpDevMode parameter and 0 for the dwFlags parameter is the easiest way to return to the default mode after a dynamic mode change. 
The dmSize member of DEVMODE must be initialized to the size, in bytes, of the DEVMODE structure. The dmDriverExtra member of DEVMODE must be initialized to indicate the number of bytes of private driver data following the DEVMODE structure. In addition, you can use any or all of the following members of the DEVMODE structure. 

DEVMODE DeviceMode;

lpDevMode[in] Pointer to a DEVMODE structure that describes
the new graphics mode. If lpDevMode is NULL, all the values
currently in the registry will be used for the display setting.
 Passing NULL for the lpDevMode parameter and 0 for the dwFlags
 parameter is the easiest way to return to the default mode after a
 dynamic mode change. 
The dmSize member of DEVMODE must be initialized to the size, in \bytes, of the DEVMODE structure. The dmDriverExtra member of
 DEVMODE must be initialized to indicate the number of bytes of 
private driver data following the DEVMODE structure. In addition,
 you can use any or all of the following members of the DEVMODE 
structure.  

 
kraen4468 您好:
您要的是這個嗎?
   
  HDC hDCScreen = GetDC(NULL);
  int horres=GetDeviceCaps(hDCScreen,HORZRES);
  int vertres=GetDeviceCaps(hDCScreen,VERTRES);
  int freq=GetDeviceCaps(hDCScreen,VREFRESH);
  ReleaseDC(NULL, hDCScreen);
  horres=1024;
  vertres=768;
  DEVMODE dm;
  ZeroMemory(&dm, sizeof(DEVMODE));
  dm.dmSize = sizeof(DEVMODE);
  dm.dmPelsWidth = horres;
  dm.dmPelsHeight = vertres;
  dm.dmDisplayFrequency = freq;
  dm.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT | DM_DISPLAYFREQUENCY;
  ChangeDisplaySettings(&dm, 0);

/*生活是一種藝術,用心生活才能享受生活*/

引言: 可以Component可是沒有動作也 我把horres=800;vertres=600;也沒有變化 ~我還在學習狀態希望多多向您學習~

/*生活是一種藝術,用心生活才能享受生活*/

引言: 可以在問你一個問題嗎? 我看了一回而結果裡面講的跟我一開始寫的都沒辨法搭上 可以幫我找我寫的這一段好嗎 還是初學者請多多指教 ~我還在學習狀態希望多多向您學習~

老實說...您的發問...我到現在好還沒搞清楚您的需求...我只看到ChangeDisplaySettings() API其他真的不知你想問甚麼?< > 建議您發問時寫清楚需求....不然看的人真的在瞎子摸象....跌跌撞撞...< > 標題叫旋轉的問題?...是螢幕旋轉還是地球旋轉呀....搞不懂....] [>生活是一種藝術,用心生活才能享受生活*/[/

unit sw_resolution;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    function SetScreenResolution(Width, Height: integer): Longint;      implementation    {$R *.dfm}    function SetScreenResolution(Width, Height: integer): Longint;
var
  DeviceMode: TDeviceMode;
begin
  with DeviceMode do
  begin
    dmSize := SizeOf(TDeviceMode);
    dmPelsWidth := Width;
    dmPelsHeight := Height;
    dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  end;
  Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  SetScreenResolution(800, 600);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  SetScreenResolution(1024, 768);
end;    end.
這是我轉成c  的程式
[code]
//---------------------------------------------------------------------------
#include 
#pragma hdrstop
#include "winuser.h"
#include "wingdi.h"
#include "rotation1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
DEVMODE DeviceMode1;
int Result;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
long int __fastcall TForm1::SetScreenResolution(int Height,int Width)
{
DeviceMode1.dmSize = sizeof(TDeviceMode);
DeviceMode1.dmPelsWidth = Width;
DeviceMode1.dmPelsHeight = Height;
DeviceMode1.dmFields = DM_PELSWIDTH || DM_PELSHEIGHT;
Result = ChangeDisplaySettings(DeviceMode1 ,CDS_UPDATEREGISTRY);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
SetScreenResolution(800,600);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
SetScreenResolution(1024,768);
}
//---------------------------------------------------------------------------

以下程式碼在Windows XP Professionl   C   Builder 6 Sp4 編譯測試OK        //---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
DEVMODE DeviceMode1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 void __fastcall SetScreenResolution(int Width,int Height,int Frequency)
{
     int Result;
     
     DeviceMode1.dmSize = sizeof(TDeviceMode);
     DeviceMode1.dmPelsWidth = Width;                
     DeviceMode1.dmPelsHeight = Height;
     DeviceMode1.dmDisplayFrequency=Frequency;
     DeviceMode1.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT | DM_DISPLAYFREQUENCY;
     Result = ChangeDisplaySettings(&DeviceMode1,CDS_UPDATEREGISTRY);         if(Result==0)
               ShowMessage(" 螢幕解析度變更成功");
     else
               ShowMessage(" 螢幕解析度變更失敗");    }
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{     SetScreenResolution(1024,768,60);    }
//---------------------------------------------------------------------------

/*生活是一種藝術,用心生活才能享受生活*/

引言: 對不起板主不是故意找查 我試了好多變還是不形 有什麼地方要特別注意的嗎 ~我還在學習狀態希望多多向您學習~

/*生活是一種藝術,用心生活才能享受生活*/