Hi David.
Thank You very much.
It's simple and work.
But I have two last question:

1) One is litle more complicated example.
What about this (integer):

 ctx = record
    rc_expire: Integer;
    rc_getreg: Integer;
    rc_sym: array [0..7] of char;
    rc_sjo: array [0..15] of char;
    rc_lgn: array [0..11] of char;
    rc_naz: array [0..31] of char;
    rc_sys: array [0..31] of char;
    rc_mid: array [0..23] of char;
    rc_cid: array [0..23] of char;
    rc_mgr: array [0..47] of char;
    rc_que: array [0..47] of char;
  end;

2) In another examples I have also type :longint

That's all.

Andrzej
PS. Of course I have a lot of complicated examples but I will try first myself. :)

>Andrzej,
>
>This one is actually very easy to create in VFP you don't need all the heap allocations etc.
>

>sys_name = space(64)
>usr_name = space(24)
>jed_addr = space(16)
>jed_type = space(8)
>jed_opis = space(64)
>usr_opis = space(64)
>
>conctx_t = sys_name + usr_name + jed_addr + jed_type + jed_opis + usr_opis
>
>DECLARE INTEGER TLI_getCtx IN TL_ILIB.DLL;
>	Integer handle,;
>	string @conctx_t

>note the handle is not passed by reference, the string buffer is.
>
>after calling the function you can use substr() to get the component parts back out.