GetWindowModuleFileName gibt nichts zurück

[Dax]

So msollte es gehen:

Delphi-Quellcode:

var
  hWnd_ : HWND;
  fname : PAnsiChar;
begin
  GetMem(fname, MAX_PATH);
  hWnd_ := FindWindow('Notepad', nil);
  if(hWnd_ = 0)then
  begin
    Application.MessageBox('FindWindow failed!', '', 0);
    exit;
  end;

  GetWindowModuleFileNameA(hWnd_, fname, MAX_PATH);

  Application.MessageBox(fname, 'fname', 0);
end;