* I am using Delphi 7.
* TOpenDialog.Execute hangs the program if launched from the standalone
EXE.
* When the project is executed from Delphi 7 it does not hang.
* It does not matter what I add, even a blank project with a button
that has OpenDialog1.Execute on it will cause the hang when clicked.
* This problem is recent. **Projects compiled before a while ago do not have the hang.**
* I used the same Windows installation (Windows 7 Ultimate 64bit) and
the same Delphi 7 for years now.
* Projects compiled before a while ago do not have the hang.
* Projects from Delphi 7 that are complied in Delphi 10 will also cause the hang.
* **It does not happen in CLX applications**, whether in debug or standalone.

 Here's an example of what seems to be causing the hang:

```
procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.Execute;
end;

```

Update:
Cause might be "InitialDir" being the Desktop. If it's set to c:\ for example, it won't happen.