J'ai essayé ça :
procedure TForm1.Button1Click(Sender: TObject);
var
Test : Hwnd;
begin
Test := ShellExecute(GetDesktopWindow, 'open', PChar('explorer.exe', nil, nil, SW_SHOWNORMAL);
SetWindowPos(Test, 0, 0, 0, 150, 150, SWP_NOZORDER);
end;
Ca marche pas. Il m'ouvre bien explorer, mais il applique pas les redimensionnement. Quelqu'un sait pourquoi ?