如:当参数是1时,dll所显示的窗口的Caption是一
当参数是2时,dll所显示的窗口的Caption是二
当参数是2时,dll所显示的窗口的Caption是二
解决方案 »
- EXCEL问题 高手快来
- 如何关闭一个进程?
- 怎么往注册表中写Dword类型的数据
- 如何用程序判断是否已连上internet?
- #####紧急问题请问各位高手哪里有下载APRO传真控件谢谢了#######
- 能否在宏中判断一台电脑上是否安装了摄像头?
- 导入excel文件
- 救急呀!!!在98下怎么和局域网外的sqlserver建立连接?为什么会出错???
- 在edit1的exit事件里如何判断,我是用回车键离开还是用其他方法离开的???
- xpmenu属性drawmenubar!!!
- 改变ComboBox的值时如何改变其他的Edit的值?
- 小女子急需解决"如何得到某些特殊文件夹路径",还请各位高手帮忙!
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;