Delphi控件源码

开发平台：

Delphi

loadpics.pas：源码内容

							unit loadpics;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatEditUnit, ExtCtrls, TFlatPanelUnit, jpeg;
type
  Tloadpic = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  loadpic: Tloadpic;
implementation
{$R *.dfm}
function DynamicResolution(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;
//此函数是动态调用api函数，更改显示器分辩率
procedure Tloadpic.Timer1Timer(Sender: TObject);
begin
 showmessage('注意：连接超时，请重新连接！');
end;
procedure Tloadpic.FormShow(Sender: TObject);
begin
//  DynamicResolution(800, 600);
  //调用上面定义函数，将分辩率改为800*600
  
end;
end.

						