如何向Dll传递参数

Question

如:当参数是1时,dll所显示的窗口的Caption是一
   当参数是2时,dll所显示的窗口的Caption是二

Answer 1

procedure showform1(frmcaption:pchar); stdcall;
begin
  form1:=form1.Create(application);
  form1.caption:=frmcaption;
  form1.show;
end;exports
showform1;
=============================以下是调用：
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 T_Show = procedure(frmcaption:pchar); stdcall;var
  frmmain: Tfrmmain;i:string;
implementation
{$R *.dfm}procedure Tfrmmain.BitBtn1Click(Sender: TObject);
var
   DllHandle: THandle;
   ProcAddr: FarProc;
   ProvaChild: T_Input;
begin
   DllHandle := LoadLibrary('dll.dll');
   ProcAddr := GetProcAddress(DllHandle, 'showform1');
   if ProcAddr <> nil then
   begin
      ProvaChild := ProcAddr;
      ProvaChild(pchar(i));
   end;
end;