nonVCL: Handle des MainForm

[Garfield]

Ich portiere gerade den OpenDirDialog nach nonVCL. Die Demo ist soweit fertig. Dabei hat mir das Win32API Tutorial von Luckie und Co., insbesondere das TreeView-Sample von Matthias geholfen. Nur beim Tuning habe ich ein paar Probleme.

Delphi-Quellcode:

{ Mittig über dem Hauptformular der Anwendung. }
poMainFormCenter:
begin
  GetWindowRect(HInstance, ParentRect);
  nLeft := ParentRect.Left + ((ParentRect.Right - ParentRect.Left) - fWidth) div 2;
  nTop  := ParentRect.Top + ((ParentRect.Bottom - ParentRect.Top) - fHeight) div 2;
  MoveWindow(aWnd, nLeft, nTop, fWidth, fHeight, true);
end;

HInstance scheint nicht das richtige zu sein. Kann man an das Handle kommen oder muss man das per Parameter mitgeben?

Delphi-Quellcode:

{ Mittig über dem als Owner angegebenen Formular. }
poOwnerFormCenter:
if ods.Owner <> 0
then begin
  GetWindowRect(ods.Owner, ParentRect);
  nLeft := ParentRect.Left + ((ParentRect.Right - ParentRect.Left) - fWidth) div 2;
  nTop  := ParentRect.Top + ((ParentRect.Bottom - ParentRect.Top) - fHeight) div 2;
  MoveWindow(aWnd, nLeft, nTop, fWidth, fHeight, true);
end;