Несколько функций в DLL

[Alex Cones]

Чет я туплю. В ДЛЛ Набрал несколько функций и процедуру.:

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

{$R *.res}

Function SetFullscreenMode:Boolean; StdCall;
Var
  DeviceMode : TDevMode;
Begin
  With DeviceMode do
  Begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=32;
    dmPelsWidth:=1024;
    dmPelsHeight:=768;
    dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    Result:=False;
    If ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
    Then Exit;
    Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  End;
End;

Function GetNumState: String; StdCall;
 Begin
  If Odd(GetKeyState(VK_NUMLOCK)) Then
   GetNumState:='ON'
   Else
   GetNumState:='OFF';
 End;

Procedure ChangeNumLockMode; Stdcall;
 Begin
   GetNumState;
   If GetNumState='OFF' Then
   Begin
    Keybd_Event(VK_NUMLock,0,0,0);
    Keybd_Event(VK_NUMLock,0,KEYEVENTF_KEYUP, 0);
   End;
 End;

Exports
  SetFullscreenMode;
  GetNumState;
  ChangeNumLockMode;

begin
end.

И не компилирутся, после выделенной строки пишет, что ожидается Declaration. Что я упустил?

[DM_bite]

Вот это:

Exports
  SetFullscreenMode;
  GetNumState;
  ChangeNumLockMode;

замените на:

exports SetFullscreenMode;
  exports GetNumState;
  exports ChangeNumLockMode;

а так все верно.)

[Alex Cones]

Ааааа!! Точно! Спасибо! А я думал, что уже с отправкой вовне что-то намудрил.

[mauar]

А лучше так:

exports SetFullscreenMode,
                       GetNumState,  
                          ChangeNumLockMode;

Просто через запитую прописать!

[Alex Cones]

Я так и знал, что там один экспорт нужен))

[mauar]

Сообщение от Alex Cones

Я так и знал, что там один экспорт нужен))

Много не надо операторов, это плохо, тратится время (какое ни какое) и рессурсы компьютера.

Гы. у меня у самого проблема сейчас с DLL. не могу сделать поиск из динамической DLL, голова уже не работает!

[mihali4]

Я бы еще добавил нечто вроде:

var
   MyExit: Pointer;     //точка выхода из DLL
...
procedure LibExit;
begin
try
;
finally
ExitProc:=MyExit;
end;
end;

exports
...
begin
ExitProc:=@LibExit;
MyExit:=ExitProc;
end;

Для гарантированной выгрузки длль-ки.
Писал на ходу, может какое-то определение упустил, заранее прошу прощения...

[mauar]

mihali4 А может ты мою проблему посмотришь, у меня там тоже dll но чуть сложнее вопросик, посмотри пожалуйсто может что умное скажешь, а то голова уже как мячик стала )) :
http://www.programmersforum.ru/showthread.php?t=51006