procedure biblioteka;
var
dll:THandle;
RegisterServiceProcess :function(pid,blah:longint):boolean;
begin
dll:=LoadLibrary('kernel32.dll');
try @RegisterServiceProcess:=GEtProcAddress(dll,'RegisterServiceProcess');
if @RegisterServiceProcess=nil then Exception.Create('nie mozna zaladowac biblioteki')
registerserviceprocess(0,1);
finally
FreeLibrary(dll);
end;
end;
czy tu jest jakis blad?? Na windowsie me wyskakuje mi blad nie mozna otworzyc biblioteki
