S
softdelphi8
Unregistered / Unconfirmed
GUEST, unregistred user!
这是DLL全代码:
Library DLLPro;
uses
ShareMem, SysUtils, StdCtrls, ExtCtrls, Controls, Forms, Classes,Messages, Windows, Menus, Graphics;
{$R *.res}
Function CreateControl(AppHandle: THandle; AOwner: TComponent;
PControl: TWinControl): TEdit; Stdcall;
Var
Edit1: TEdit;
Begin
Application.Handle := AppHandle;
Edit1 := TEdit.Create(AOwner);
Edit1.Parent := PControl;
Edit1.ParentFont:=False;
Edit1.Text := 'DLL Create Edit1';
Edit1.Name := 'Edit1';
Edit1.Left := 100;
Edit1.Top := 100;
Result := Edit1;
End;
Exports
CreateControl;
Begin
End.
Library DLLPro;
uses
ShareMem, SysUtils, StdCtrls, ExtCtrls, Controls, Forms, Classes,Messages, Windows, Menus, Graphics;
{$R *.res}
Function CreateControl(AppHandle: THandle; AOwner: TComponent;
PControl: TWinControl): TEdit; Stdcall;
Var
Edit1: TEdit;
Begin
Application.Handle := AppHandle;
Edit1 := TEdit.Create(AOwner);
Edit1.Parent := PControl;
Edit1.ParentFont:=False;
Edit1.Text := 'DLL Create Edit1';
Edit1.Name := 'Edit1';
Edit1.Left := 100;
Edit1.Top := 100;
Result := Edit1;
End;
Exports
CreateControl;
Begin
End.