t_id
851
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$mode objfpc} uses Sysutils; procedure store (Handle: Pointer; const FileName: PChar; ErrorStruct: Pointer); cdecl; alias:'store'; procedure yes (const aa: AnsiString); begin writeln(aa); end; begin try yes (FileName); except on e: Exception do begin end; end; end; procedure extstore(h:pointer;filename:pchar;errorstr:pointer);external name 'store'; begin extstore(nil,'test',nil); end.