pOsOl,
Вот текст dpr-ки, которая компилируется в dll.
| Код |
library OnExit1;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, IniFiles;
var
Ini: TIniFile;
MasI: Array [0..99] of Integer;
MasS: Array [0..99] of String;
procedure CodeExecute;
begin
Ini:= TIniFile.Create ('C:\Program Files\Borland\Delphi7\Projects\Simulation\params.ini');
MasI[0]:= Ini.ReadInteger ('Integer', 'Var1', 0);
MasI[1]:= Ini.ReadInteger ('Integer', 'Var2', 0);
MasI[2]:= Ini.ReadInteger ('Integer', 'Var3', 0);
MasI[3]:= Ini.ReadInteger ('Integer', 'Const1', 0);
MasS[0]:= Ini.ReadString('String', 'In1.DestPort', '');
MasI[1]:= 34;
MasI[0]:= MasI[1] div 2;
MasI[2]:= 1;
Ini.WriteInteger ('Integer', 'Var1', MasI[0]);
Ini.WriteInteger ('Integer', 'Var2', MasI[1]);
Ini.WriteInteger ('Integer', 'Var3', MasI[2]);
Ini.WriteInteger ('Integer', 'Const1', MasI[3]);
Ini.WriteString ('String', 'In1.DestPort', MasS[0]);
Ini.Free;
end;
exports
CodeExecute index 1;
begin
end.
[b]
Вот загрузка
[/b]
FExitHandle:= LoadLibrary (PChar (Dir + 'OnExit' + IntToStr (FID) + '.dll'));
if (FExitHandle >= 32)
then begin
FLoadedExit:= True;
FExitProc:= GetProcAddress (FExitHandle, 'CodeExecute');
end
else begin
if (MessageDlg ('Error', mtError, [mbOk], 0) = mrOK)
then FLoadedExit:= False;
end;
|
вызов такой:
if FLoadedExit
then FExitProc;
Я заказал fastScript кстати, так и не разобравшись с dll-ками  . Если увидишь, где косяки, пиши, буду очень рад.
p0s0l |
