the longer you searrch the better the results get :lol:
http://dn.codegear.com/ru/article/10156#H11
[pascal]
unit DAPPMAIN;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TMain = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
implementation
{$R *.DFM}
{Specify the name of the OBJ containing the function.}
{$L cobj.obj}
procedure COBJ_Function; StdCall; far; external;
procedure TMain.Button1Click(Sender: TObject);
begin
COBJ_Function;
end;
end.
[/pascal]
Bookmarks