Форум: "Система";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизRecord в DLL Найти похожие ветки
← →
Dimka Maslov (2001-09-27 13:43) [1]lybrary MyDll;
type
PSomeRecord = ^TSomeRecord;
TSomeRecord = record
E, K, L, M, N: Integer;
end;
const
R: TRecord = (E:1; K:2; L:3; M:4; N:5);
procedure GetRecord(Record: PRecord); stdcall;
begin
Move(R, Record^, SizeOf(Record));
end;
exports
GetRecord;
end.
******************
unit Unit2;
interface
type
PSomeRecord = ^TSomeRecord;
TSomeRecord = record
E, K, L, M, N: Integer;
end;
procedure GetRecord(var R: TRecord); stdcall;
implementation
procedure GetRecord(var R: TRecord); stdcall; external "MyDll.dll" name "GetRecord";
end.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c