掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DLLを２回実行させるには？ (ID:19133)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のようなプログラムを作ったのですが、 実行すると、２回目が実行されません。 どうしてでしょうか? ≡≡ ＥＸＥ側 ≡≡ type TTestStart = function : TModalResult; stdcall; var RetCode: TModalResult; Handle: THandle; TestStart: TTestStart; begin // 起動時にファイルのバージョンアップを確認する while True do begin RetCode := mrNo; // DLLを呼び出して実行する Handle := LoadLibrary('Test.dll'); if Handle <> 0 then begin @TestStart := GetProcAddress(Handle, 'TestStart'); if @TestStart <> Nil then begin RetCode := TestStart; FreeLibrary(Handle); end; end; if RetCode = mrYes then Continue; break; end; ≡≡ ＤＬＬ側 ≡≡ function TestStart: TModalResult; stdcall; export begin Form1 := TForm1.Create(Nil); Result := Form1.ShowModal; Form1.Free; end; exports TestStart; begin end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.