функция из библиотеки не работает!!!

[VintProg]

сама библиотека написан на delphi

вот ее код

library scr;



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

{$R *.res}

procedure ScreenShotJPEG(const FileName : pchar); cdecl;
var
bmp : TBitmap;
DC: HDC;
Jpg: TJpegImage;

Begin

Try
bmp:= TBitmap.Create;
Jpg:= TJpegImage.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
Jpg.Assign(Bmp);
Jpg.SaveToFile(FileName);
ReleaseDC(0, DC);
finally
Bmp.Free;
jpg.Free;
End;
End;


exports
ScreenShotJPEG name 'ScreenShotJPEG';

begin

end.

и я пытаюсь вызвать ее их MSVC 2010

HMODULE hLib; //DLL
typedef void (__cdecl *TScreenShotJPEG) (const char*);
TScreenShotJPEG ScreenShotJPEG = NULL;

и вот

hLib = LoadLibrary(L"scr.dll");
ScreenShotJPEG = (TScreenShotJPEG)GetProcAddress(hLib, "ScreenShotJPEG");

и фик, проект от студии виснит, капетально!!!

[Пепел Феникса]

прям на GetProcAddress?