unti shellobj und WM_ message

[Rociel]

stimmt, die heißt ShlObj wird benötigt von:

Delphi-Quellcode:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  // get IMalloc interface pointer
  if (SHGetMalloc(pMalloc) <> S_OK) then 
  begin 
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.', 
               'SHGetMalloc(pMalloc)', 16); 
    Exit; 
  end; 

  // retrieve path 
  SHGetSpecialFolderLocation(hWindow, Folder, pidl); 
  GetMem(Path, MAX_PATH); 
  SHGetPathFromIDList(pidl, Path); 
  Result := Path; 
  FreeMem(Path); 

  // free memory allocated by SHGetSpecialFolderLocation 
  pMalloc.Free(pidl); 
end;

so, wenn ich die nicht einbinde, dann läuft alle ok, wenn se aber eingebunden ist, dann bringt er bei

procedure WMclose(var Msg:TMessage);message WM_CLOSE; die meldung: [Fehler] main.pas(70): E2065 Ungenügende Forward- oder External-Deklaration: 'Tshutdown_061025.WMclose'