delphi - 如何为控制台窗口创建表单模式

Question

在控制台应用程序内部-带有GetOpenFileName()的Handle := FindWindow(Nil, Pchar(ConsoleTitle))显示对控制台窗口模态的OpenFile对话框。是否可以创建并显示我自己的表单模式到控制台窗口？

Answer 1

将控制台窗口设置为窗体的窗口所有者，并在显示窗体时将其禁用。类似于以下内容：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows,
  forms,
  Unit1 in 'Unit1.pas' {Form1};

const
  ConsoleClass = 'ConsoleWindowClass';

var
  console: HWND;
  len: DWORD;
  title: array [0 .. MAX_PATH] of Char;

begin
  try
    len := GetConsoleTitle(title, SizeOf(title));
    Win32Check(Bool(len));
    console := FindWindow(ConsoleClass, title);
    Win32Check(Bool(console));
    Form1 := TForm1.Create(nil);
    try
      EnableWindow(console, False);
      try
        Form1.HandleNeeded;
        SetWindowLongPtr(Form1.Handle, GWLP_HWNDPARENT, console);
        Form1.ShowModal;
      finally
        EnableWindow(console, True);
      end;
    finally
      Form1.Free;
    end;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.