I have this question:

begin if OpenDialog1.Execute then ShellExecute(Handle, nil, PChar (OpenDialog1.FileName), nil, nil, SW_SHOW); end;

Please tell me how to make OpenDialog1 open to full screen (Delphi XE2 Win 7) ...

  • Are there really no options other than to edit Dialogs.pas myself (I have Delphi XE2) - mbx
  • What prevents you from manually sending a message to the resize dialog? Only the handle you need to know about the idea ... - gecube

4 answers 4

If you do not want to edit something yourself, you can use a ready-made solution. Install JEDI VCL for Delphi . The component that will interest us is called TJvOpenDialog. We install in it UseUserSize sv-in True. Next, before calling the dialog, expand it to full screen.

 ... JvOpenDialog1.Height:=Screen.Height; JvOpenDialog1.Width:=Screen.Width; JvOpenDialog1.Execute; ...

    ALL Thank you, the question is removed. Tracked the registry changes and found where the information about the state of the OpenDialog window is stored.

     HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\CIDSizeMRU

    Maybe someone will come in handy ...

      Only edit Dialogs.pas yourself

      • Well, try to find alternative components. Although fix Dialogs.pas easier. - SoftR September

      There is also a system-wide FileBox eXtender - but it was abandoned and on a 64-bit Windows it behaves badly :-(