Discussion :

[gilles641]

Bonjour,
Je voudrai effectuer des modifs sur mon bureau, du genre le reduire de 50 pixels en hauteur.
Apparemment, screen.desktopHeight semble etre une variable non modifiable.
Il dois bien y avoir moyen de faire quelque chose non ?
merci pr vos reponses

[gilles641]

En fait g trouve comment faire si ca interesse quelqu un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm5.GetBureauLV;
begin
  BureauLV := FindWindow('ProgMan', nil);
  BureauLV := FindWindowEx(BureauLV, 0, 'ShellDLL_DefView', nil);
  BureauLV := FindWindowEx(BureauLV, 0, 'SysListView32', nil);
  if BureauLV = 0 then // Si BureauLV est égal 0, le handle n'a pas pu être récupéré
    Application.MessageBox('Erreur', 'Erreur', 16);
end;

puis dans une procedure on appelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   form5.GetBureauLV;
   movewindow(bureauLV,0,35,screen.width,screen.height,true);

Voila..