Передача параметров в DLL

[-Flasher-]

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

Программа

procedure SetHook(sFileName:PChar);stdcall; external 'hook_dll.dll';
procedure UnHook;stdcall; external 'hook_dll.dll';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetHook(PChar('C:\WINDOWS\system32\notepad.exe'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 UnHook;
end;

hook_dll.dll

var
 HookHandle:hHook;
 ProgName:String;

function HookProc(nCode:Integer; wParam:Word; lParam:Longint):Longint;stdcall;
var
 ModuleFileName:array[0..255] of Char;
begin
 GetModuleFileName(0,ModuleFileName,SizeOf(ModuleFileName));
 MessageBox(0,ModuleFileName,PChar(ProgName),MB_OK);

 Result:=CallNextHookEx(HookHandle,nCode,wParam,lParam);
end;

procedure SetHook(sFileName:String);stdcall;
begin
 if HookHandle=0 then
  begin
   ProgName:=sFileName;
   HookHandle:=SetWindowsHookEx(WH_KEYBOARD,@HookProc,HInstance,0);
  end;
end;

procedure UnHook;stdcall;
begin
 if HookHandle<>0 then
  begin
   UnhookWindowsHookEx(HookHandle);
   HookHandle:=0;
  end;
end;

exports SetHook, UnHook;

begin
 HookHandle:=0;
end.

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

вы про ProgName?
это нормально.

вот случай, ну прям один в один
http://programmersforum.ru/showthread.php?t=99495

и кстати, насчет строк string говорят же, не стоит использовать их для ДЛЛ.
юзайте PChar

[-Flasher-]

Да, про ProgName.
Спасибо, ошибку понял. Про указатели учту.
Не подскажете хорошую книгу или статью про работу с памятью в Delphi?