delphi 显示窗体系统目录 源码

procedure TForm1.ShowSystemMenu(const LPt: TPoint);
var
  LMenu: HMENU;
  LFlags: Cardinal;
  LCommand: LongWord;
begin
  LMenu := GetSystemMenu(FParentForm.Handle, False);
  LFlags := TPM_RETURNCMD or GetSystemMetrics(SM_MENUDROPALIGNMENT);
  LCommand := LongWord(TrackPopupMenu(LMenu, LFlags, LPt.X, LPt.Y, 0, FParentForm.Handle, nil));
  PostMessage(FParentForm.Handle, WM_SYSCOMMAND, LCommand, 0);
end;