FAQ DelphiConsultez toutes les FAQ

1
2
3
MessageDlg('Largeur de l''écran = ' + IntToStr( Screen.Width ) + 
  ' pixels, Hauteur de l''écran = ' + IntToStr( Screen.Height )+' pixels', 
  mtInformation, [mbOk], 0 );

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);

SystemParametersInfo (uiAction : Cardinal; uiParam : Cardinal; pvParam : Pointer; fWinIni : Cardinal)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses 
  ShellApi; 
  
const 
  WinIni = SPIF_UPDATEINIFILE; 
  
var 
Param: DWord; 
  
{Au lancement de l'application on modifie les valeurs d'attente } 
procedure TMyForm.FormCreate(Sender: TObject); 
begin 
  {Ecran de veille : } 
  {Si l'écran de veille est actif } 
  if not SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, nil, WinIni) then 
  {Alors on le désactive } 
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, WinIni); 
  
  {Mise en veille moniteur : } 
  {On récupère le temps d'attente avant la mise en veille } 
  SystemParametersInfo(SPI_GETPOWEROFFTIMEOUT, 0, @Param, WinIni); 
  {Si cette valeur est supérieur à zéro } 
  if Param > 0 then 
    {Alors on désactive la mise en veille } 
    SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, 0, nil, WinIni); 
end; 
  
{A la fermeture de l'application on rétablit les valeurs } 
procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  {Ecran de veille : } 
  if not SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 1, nil, WinIni) then 
    SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, WinIni); 
  
  {Mise en veille moniteur : } 
  if Param > 0 then 
    SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, Param, nil, WinIni); 
end;

1
2
3
4
5
6
7
8
Function ChangeResolution(Width,Height:Integer):Boolean; 
Var Dev:TDeviceMode; 
begin 
  Dev.dmPelsWidth := Width; 
  Dev.dmPelsHeight:= Height; 
  Dev.dmFields     := DM_PELSWIDTH Or DM_PELSHEIGHT; 
  Result:=ChangeDisplaySettings(Dev,0)=DISP_CHANGE_SUCCESSFUL; 
end;

1
2
3
4
5
6
7
8
9
{ Déclaration de la fonction API } 
function _DefaultDisplaySettings(Zero:Integer; dwFlags: DWORD): Longint; 
    stdcall;external user32 name 'ChangeDisplaySettingsA'; 
  
{ Procédure de retour à la résolution par défaut. } 
Procedure ResolutionParDefaut; 
Begin 
  _DefaultDisplaySettings(0,0); 
End;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure ScreenShot(const Filename: string); 
var 
  bitmap: TBitmap; 
  desktopHandle: THandle; 
  deviceContext: HDC; 
begin 
  desktopHandle:= GetDesktopWindow; // Récupération du handle du bureau 
  deviceContext:= GetDC(desktopHandle); // Récupération du contexte de périphérique du bureau 
  
  bitmap:= TBitmap.Create; // Création d'une image bitmap 
  try 
    bitmap.Width:= Screen.Width; // Ajustement de la taille de l'image 
    bitmap.Height:= Screen.Height; // pour qu'elle corresponde à celle du bureau 
  
    BitBlt(bitmap.Canvas.Handle, 0, 0, bitmap.Width, bitmap.Height, 
      deviceContext, 0, 0, SRCCOPY); // Copie du bureau dans l'image bitmap 
  
    bitmap.SaveToFile(Filename); // Sauvegarde de l'image dans un fichier bmp 
  finally 
    bitmap.Free; // Libération de l'image 
    ReleaseDC(desktopHandle, deviceContext); // Libération du contexte de périphérique 
  end; 
end;

1
2
3
4
5
6
7
8
9
10
function GetTitleBarFontName: string; 
var 
  metrics: NONCLIENTMETRICS; 
begin 
  metrics.cbSize:= SizeOf(metrics); 
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(metrics), @metrics, 0) then 
    result:= metrics.lfCaptionFont.lfFaceName 
  else 
    result:= ''; 
end;

1
2
3
4
5
6
7
8
function GetSystemFontSize: Integer; 
var 
  dc: HDC; 
begin 
  dc:= GetDC(0); 
  result:= GetDeviceCaps(dc, LOGPIXELSX); 
  ReleaseDC(0, dc); 
end;

{$R NomDeMaRessource.res}

1
2
3
4
5
6
7
8
9
10
11
const 
     crMoncurseur = 3; //Par exemple 
  
....//instructions diverses 
  
procedure TMainForm.FormCreate(Sender: TObject); 
begin 
     Screen.Cursors[crMonCurseur] := LoadCursor(hInstance,'MonCurseur'); 
//     Screen.Cursor := crMonCurseur;//Affecte le curseur crée à la fiche entière 
    btnTest.Cursor := crMonCurseur; //Affecte le curseur crée à un boutton 
end;

ShowWindow(FindWindow('Progman',nil),SW_HIDE);

ShowWindow(FindWindow('Progman',nil),SW_RESTORE);