ユニット Forms は異なるバージョン Messages.WM_THEMECHANGED によりコンパイルされています

解決

薫 2006-06-16 20:44:43 No: 22206

Ｄｅｌｐｈｉ6のプロジェクトをＤｅｌｐｈｉ7でコンパイルすると致命的エラー
「ユニット Forms は異なるバージョン Messages.WM_THEMECHANGED によりコンパイルされています」
出ます。
解決方法をご教示ください。
エラーの場所は →です。

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {OKBottomDlg},
→ About in 'About.pas' {AboutBox};

薫 2006-06-16 21:07:30 No: 22207

書き忘れましたがＤｅｌｐｈｉのバージョンはいずれもＰｅｒｓｏｎａｌです。

風来坊 2006-06-17 02:31:11 No: 22208

DCUファイルを削除してみるとか。

薫 2006-06-17 04:42:45 No: 22209

すみません特に変化はありません。

風来坊 2006-06-17 06:52:23 No: 22210

私も経験があるのですが、D6 か D7 で、
$(Delphi)\Source\Vcl や $(Delphi)\Lib\Source\Rtl\Win
にライブラリパスを通していませんか？
私はこれが原因で、同様のエラーに出会ったことがあります。
あくまで私の経験談ですが...

風来坊 2006-06-17 06:53:45 No: 22211

ゴメン。
Personal って、ソース付いていないんだっけ？

igy 2006-06-17 07:07:37 No: 22212

あと、
・General Update 7.1 (Japanese)をあてる
・プロジェクトを再構築
・*.dot, *.dsk（一応バックアップをとっておいて）削除
とか、どうでしょう？

igy 2006-06-17 07:16:55 No: 22213

訂正です。
×・*.dot, *.dsk（一応バックアップをとっておいて）削除
○・*.dof, *.dsk, *.cfg（一応バックアップをとっておいて）削除

薫 2006-06-17 09:40:58 No: 22214

皆さん色々有難う御座います。解決できないので別のProject(内容的にはほとんど変りません。)で試したところこれまでのエラーは出なくなりましたが以下のエラーが出ます。

「プロジェクトproject1.exeがEInOutErrorクラスの例外を発生しました。
'ファイルが見つかりません'・・・・」

procedure TForm1.DriveComboBox1Change(Sender: TObject);

begin

        DirectoryListBox1.Drive := DriveComboBox1.Drive;
        FileListBox1.Drive:= DriveComboBox1.Drive;
       // DirectoryListBox1.Directory:=DirectoryListBox1.Drive;
       // FileListBox1.Directory := DirectoryListBox1.Directory;
       // Edit1.Text :=''; //エディットボックス初期化
       // ColorDialog1.Color:=clBlack;
       // Edit1.Font.Color:=clBlack;
       // LPFontColor:=0;  // カラーダイヤログ初期化
  end;

このプロシージャで//の行を一行でも生かすと「」のエーが出ます。ファイルは有る筈なんですがすみません！宜しく

igy 2006-06-17 14:39:14 No: 22215

>       DirectoryListBox1.Drive := DriveComboBox1.Drive;
>        FileListBox1.Drive:= DriveComboBox1.Drive;
>       // DirectoryListBox1.Directory:=DirectoryListBox1.Drive;
>       // FileListBox1.Directory := DirectoryListBox1.Directory;

DriveComboBox1の DirListプロパティに DirectoryListBox1を、
DirectoryListBox1の FileList プロパティに FileListBox1 を割り当てれば
この４行は不要では？

薫 2006-06-17 18:18:25 No: 22216

igy さんのご指摘で

「プロジェクトproject1.exeがEInOutErrorクラスの例外を発生しました。
'ファイルが見つかりません'・・・・」

のエラーは出なくなり一応働くようになりました。

皆さん色々有難う御座いました。