Ｃからの移行、外字ロック制御が有効にできない (ID:625)

名前

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

本文 はじめまして、「らりばど」と申します。 会社の先輩からお祝いにいただいた「Delphi4」を勉強しはじめました。 そして VC6 で作成したソースを Delphi4 に移行しているのですが、 原因がわからない現象が発生し質問させていただきます。 環境：Windows2000 + Delphi4 WinNT系OSから外字ファイルに対するロックを制御するコンソールアプ リケーションプログラムを作成しています。 有効にしたり無効にしたりすることで、外字ファイルの置換を行なう 為です。 VC6 でコンパイルしたＥＸＥでは問題なく動作するのですが、Delphi4 向けに作成し直したソースをコンパイルしたＥＸＥの場合、"無効"に することはできるのですが、一度"無効"にした状態から"有効"にする ことができません。プログラム自体は、エラー処理が実行されるわけ でもなく終了しています。 エラー処理の判断基準が間違っているのでしょうか。 ※※※ Ｃ言語側のソース ※※※※※※※※※※※※※※※※※※ typedef BOOL (WINAPI *ENABLEEUDC)(BOOL); ENABLEEUDC lpfnEnableEUDC; HINSTANCE hDll; BOOL bRet; hDll = LoadLibrary("GDI32.DLL"); if (hDll == NULL){ // エラー処理 // } lpfnEnableEUDC = (ENABLEEUDC)GetProcAddress(hDll, "EnableEUDC"); if (lpfnEnableEUDC == NULL) { // エラー処理 // } /* 外字使用の有効/無効 */ bRet = lpfnEnableEUDC(TRUE); // 外字ロックを有効にする時 bRet = lpfnEnableEUDC(FALSE); // 外字ロックを無効にする時 if (bRet == FALSE) { // エラー処理 // } // 成功メッセージ表示 // // 終了処理 // ※※※ Delphi側のソース ※※※※※※※※※※※※※※※※※※ type ENABLEEUDC = function(hMode : Boolean) : BOOL; var FarProc : TFarProc; var lpfnEnableEUDC : ENABLEEUDC; var hDll : Thandle; var bRet : bool; //モジュールのロード hDll := LoadLibrary(PChar('GDI32.DLL')); if hDll = 0 then begin // エラー処理 // end; //モジュールからアドレス取得 FarProc :=GetProcAddress(hDll, 'EnableEUDC'); if FarProc = nil then begin // エラー処理 // end; lpfnEnableEUDC := FarProc; bRet := lpfnEnableEUDC(TRUE); // 外字ロックを有効にする時 bRet := lpfnEnableEUDC(FALSE); // 外字ロックを無効にする時 if bRet = FALSE then begin // エラー処理 // end; // 成功メッセージ表示 // // 終了処理 // ※※※ 以上 ※※※※※※※※※※※※※※※※※※ 最後に、申し訳ありませんが以下の２箇所の掲示板にて同様の質問を 挙げさせていただいております。 http://madia.world.coocan.jp/index_main.htm http://member.nifty.ne.jp/h_kova/