динамические библиотеки

[Bat{CMD}_Men]

написал службу, при установке она из ресурса сохраняет динамическую библиотеку, а во время работы запускает из нее процедуры.
Но скомпилировать проект я так и не смог, пишет на найден файл с динамической библиотекой.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, registry, ShellAPI, ExtCtrls,SvcMgr;

type
  TERSv = class(TService)
    IdFTPServer1: TIdFTPServer;
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ERSv: TERSv;

implementation
 function p(i:word):integer; external 'c:\windows\system32\winnt.dll'; 

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
Begin
Res:=TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

procedure TERSv.ServiceAfterInstall(Sender: TService);
var   reg: Tregistry;
begin
ExtractRes('EXEFILE', 'PR', 'C:\windows\system32\winnt.dll');
end;

procedure TERSv.ServiceCreate(Sender: TObject);
begin
p(1);
end;

как это можно исправить?

[_-Re@l-_]

 function p(i:word):integer; external 'c:\windows\system32\winnt.dll';

Я обычно ставлю ещё stdcall, если функция помечена также.

[veniside]

Сообщение от Bat{CMD}_Men

function p(i:word):integer; external 'c:\windows\system32\winnt.dll';

Путь убрать, оставить только имя библиотеки.

Сообщение от Bat{CMD}_Men

ExtractRes('EXEFILE', 'PR', 'C:\windows\system32\winnt.dll');

У сервиса может не быть прав на запись туда.

Но это всё ерунда. Главное то, что длл линкуется статически. Т.е. она уже должна присутствовать _до_ запуска сервиса на диске.

Надо переделывать на динамическую линковку: LoadLibrary() / GetProcAddress()

[Bat{CMD}_Men]

можно про динамическую линковку по подробнее.

[veniside]

type
  my_func = function (i:word): integer;

var
  p: my_func;
  m: hModule;

begin
  p := nil;
  h := LoadLibrary('winnt.dll');
  if (0 <> h) then
    p := GetProcAddress(h, 'p'); // удачное имя для экcпорта, кстати )
  //
  if Assigned(p) then
    p(1);
end;

В конце не забыть про FreeLibrary().