掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポインタについて (ID：27680)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
type TAList = array[0..2] of array[0..255] of PAnsiChar; TAbc = function (var FList: TAList): integer; stdcall; ボタンクリックしたときのイベントとして procedure TForm1mButton1Click(Sender: TObject); var DllHandle: THandle; Abc: TAbc; APos: integer; FList: TAList; begin DllHandle := LoadLibrary('ABC.DLL'); //DLL呼び出し if DllHandle < 32 then //エラーコードはWin32Apiを参照してネ raise DllError.Create('ABC.DLLが見つかりません'); @Abc := GetProcAddeess(DllHandle, 'GetAddress'); //関数セット if @Abc = nil then raise DllError.Create('GetAddressが見つかりません'); APos := Abc(FList); //DLLのGetAddressを実行 FreeLibrary(DllHandle); end; かな？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.