library Code;

uses
  Windows,kol,
  CGTShare in '..\CGTShare.pas';

function CreateCode(SDK:cardinal; _cgt:PCodeGenTools):pointer; cdecl;
var x,y:integer; e:cardinal;
begin
  e := _cgt.sdkGetElementName(SDK, PChar('MainForm'));
  _cgt.elGetPos(e, X, Y);
end;

procedure ConfToCode(const Pack,UName:string);
var
   State:integer;
   List,Pas,Body:PStrList;
   i,ind:word;
   s,MName:string;
begin
end;

exports
  CreateCode,
  ConfToCode;

end.

CODE:00403D68 ; Exported entry   2. CreateCode
CODE:00403D68
CODE:00403D68 ; --------------- S U B R O U T I N E ---------------------------------------
CODE:00403D68
CODE:00403D68 ; Attributes: bp-based frame
CODE:00403D68
CODE:00403D68                 public CreateCode
CODE:00403D68 CreateCode      proc near
CODE:00403D68
CODE:00403D68 var_C           = dword ptr -0Ch
CODE:00403D68 var_8           = dword ptr -8
CODE:00403D68 var_4           = dword ptr -4
CODE:00403D68 arg_0           = dword ptr  8
CODE:00403D68 arg_4           = dword ptr  0Ch
CODE:00403D68
CODE:00403D68                 push    ebp
CODE:00403D69                 mov     ebp, esp
CODE:00403D6B                 add     esp, 0FFFFFFF4h
CODE:00403D6E                 push    ebx
CODE:00403D6F                 mov     ebx, [ebp+arg_4]
CODE:00403D72                 mov     edx, offset aMainform ; "MainForm"
CODE:00403D77                 mov     eax, [ebp+arg_0]
CODE:00403D7A                 call    dword ptr [ebx+8]
CODE:00403D7D                 lea     ecx, [ebp+var_C]
CODE:00403D80                 lea     edx, [ebp+var_8]
CODE:00403D83                 call    dword ptr [ebx+48h]
CODE:00403D86                 mov     eax, [ebp+var_4]
CODE:00403D89                 pop     ebx
CODE:00403D8A                 mov     esp, ebp
CODE:00403D8C                 pop     ebp
CODE:00403D8D                 retn
CODE:00403D8D CreateCode      endp
CODE:00403D8D