blob: 61d9bb010f088dc117692711d23f614bf72ab545 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{$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.
|
