Попытался включить в проект функцию AdvBrowseDirectory
и получил:
[Error] Unit1.pas(39): Undeclared identifier: 'BFFM_INITIALIZED'
[Error] Unit1.pas(39): Undeclared identifier: 'BFFM_SETSELECTION'
[Error] Unit1.pas(51): Undeclared identifier: 'TBrowseInfo'
[Error] Unit1.pas(53): Undeclared identifier: 'PItemIDList'
[Error] Unit1.pas(54): Undeclared identifier: 'IMalloc'
[Error] Unit1.pas(55): Undeclared identifier: 'IShellFolder'
[Error] Unit1.pas(66): Undeclared identifier: 'ShGetMalloc'
[Warning] Unit1.pas(66): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(66): Operator not applicable to this operand type
[Error] Unit1.pas(68): Missing operator or semicolon
[Error] Unit1.pas(73): Undeclared identifier: 'SHGetDesktopFolder'
[Error] Unit1.pas(74): Missing operator or semicolon
[Error] Unit1.pas(75): Undeclared identifier: 'POleStr'
[Error] Unit1.pas(81): Undeclared identifier: 'SHGetSpecialFolderLocation'
[Error] Unit1.pas(81): Undeclared identifier: 'CSIDL_DRIVES'
[Error] Unit1.pas(84): Undeclared identifier: 'OleInitialize'
[Error] Unit1.pas(87): Undeclared identifier: 'hwndOwner'
[Error] Unit1.pas(88): Undeclared identifier: 'pidlRoot'
[Error] Unit1.pas(89): Undeclared identifier: 'pszDisplayName'
[Error] Unit1.pas(90): Undeclared identifier: 'lpszTitle'
[Error] Unit1.pas(92): Undeclared identifier: 'ulFlags'
[Error] Unit1.pas(93): Undeclared identifier: 'BIF_RETURNONLYFSDIRS'
[Warning] Unit1.pas(94): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(95): Undeclared identifier: 'BIF_EDITBOX'
[Error] Unit1.pas(96): Undeclared identifier: 'BIF_BROWSEINCLUDEFILES'
[Error] Unit1.pas(98): Undeclared identifier: 'lpfn'
[Error] Unit1.pas(99): '(' expected but ':=' found
[Error] Unit1.pas(99): Statement expected, but expression of type 'Integer' found
[Error] Unit1.pas(103): Undeclared identifier: 'ShBrowseForFolder'
[Error] Unit1.pas(107): Operator not applicable to this operand type
[Error] Unit1.pas(110): Undeclared identifier: 'ShGetPathFromIDList'
[Error] Unit1.pas(111): Missing operator or semicolon
[Error] Unit1.pas(115): Missing operator or semicolon
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.AdvBrowseDirectory'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
|