有关dll调显示窗口的问题(高分等待)

Question

我想写了一个dll ,其中dll包括一个form,form上有二个按钮exit,ok,当单击ok 是调用返回的是1,当单击exit时，返回的是0,无论单击哪一个按钮，form都要关闭.

Answer 1

library Project1;uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}exports
  GetResult;begin
end.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  function GetResult: integer;stdcall;export;var
  Form1: TForm1;
  ret: integer;implementation{$R *.dfm}function GetResult: integer;
begin
  Form1 := TForm1.Create(nil);
  Form1.ShowModal;
  result := ret;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ret := 0;
  Close;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ret := 1;
  Close;
end;end.然后在主程序直接调用GetResult就行了