掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
exeが異なるPGM間での値の受け渡し (ID:33534)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
訂正。 function FindReceiver(hWindow: HWND; hHandle: LPARAM): BOOL; stdcall; begin Result := True; if (hWindow <> HWND(hHandle)) then begin if (ClassNameGet(hWindow) = 'TForm1') then begin { 送信処理を書く } Result := False; //複数に送信するならコメントアウト end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin EnumWindows(@FindReceiver, LPARAM(Handle)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.