ShellTreeviewのインストール (ID：148297)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphi10.3に、Delphi6のShellTreeViewをコンポネントのインストールを、したいのですが、下記エラーがでます。
宜しくご指導願います。
[使用ソフト]
　OS:Window10　
　Delphi：旧   delphi6.0　professinal　Build:6.163　
　　　　　新  delphi10.3　update2:Delphi　Community　Edition
　Component：Demos￥shellcontrols￥dclshlctrl.dpk
[エラーメッセージ]
(Debug, Win32)
brcc32 の "dclshlctrls.vrc" コマンド ライン
  c:\program files (x86)\embarcadero\studio\20.0\bin\cgrc.exe -c65001 dclshlctrls.vrc -fodclshlctrls.res 
dcc32 の "dclshlctrls.dpk" コマンド ライン
  c:\program files (x86)\embarcadero\studio\20.0\bin\dcc32.exe -$O- -$W+ -$D1 --no-config -M -Q -Z -TX.bpl 
  -AGenerics.Collections=System.Generics.Collections;Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;
  DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG -I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\JA";
  D:\Component\ShellControlsOnDemos\ShellControls;"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
  C:\Users\hirata\Documents\Embarcadero\Studio\20.0\Imports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp -NSSystem.Win;Data.Win;Datasnap.Win;
  Web.Win;Soap.Win;Xml.Win;Bde;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;DUnitX.Loggers.GUI;Winapi; 
  -OD:\Component\ShellControlsOnDemos\ShellControls;"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";
  C:\Users\hirata\Documents\Embarcadero\Studio\20.0\Imports;"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" -R"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win32\release\JA";D:\Component\ShellControlsOnDemos\ShellControls;"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win32\release";C:\Users\hirata\Documents\Embarcadero\Studio\20.0\Imports;"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -U"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\JA";D:\Component\ShellControlsOnDemos\ShellControls;"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win32\release";C:\Users\hirata\Documents\Embarcadero\Studio\20.0\Imports;"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -K00400000 --description:"Shell Control Property and Component Editors" -NBC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp 
--------------<Result>------------------------------
  -NHC:\Users\Public\Documents\Embarcadero\Studio\20.0\hpp\Win32  dclshlctrls.dpk   
[dcc32 エラー] ShellCtrls.pas(840): E2010 'PWideChar' と 'array[0..259] of AnsiChar' には互換性がありません
　　　SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
[dcc32 警告] ShellCtrls.pas(854): W1050 set 式で WideChar がバイト char に縮小されました。
　　'SysUtils' ユニットの 'CharInSet' 関数で使用することを検討してください。
　if (Length(Result) > 1) and (Result[1] = '?') and (Result[2] in ['0'..'9']) then
 　　 Result := StringReplace(Result,'?','',[rfReplaceAll]);
[dcc32 警告] ShellCtrls.pas(924): W1000 シンボル 'StrPas' を使用することは推奨されていません : 'Moved to the AnsiStrings unit'
　　　Verb := StrPas(ZVerb);
[dcc32 エラー] ShellCtrls.pas(939): E2010 'PAnsiChar' と 'PWideChar' には互換性がありません
　　lpVerb := MakeIntResource(ICmd);
[dcc32 警告] ShellCtrls.pas(1489): W1000 シンボル 'Resume' を使用することは推奨されていません 
　　FThread.Resume;
[dcc32 致命的エラー] RootEdit.pas(14): F2063 'ShellCtrls.pas' ユニットはコンパイルできませんでした
失敗

←解決時は質問者本人がここをチェックしてください。

戻る