起動時の画像ファイルの読み込み処理 (ID:3856)

名前

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

本文

Halbow です。

まだよく分かりませんが、以下のようにしたらどうでしょうか。

implementation

{$R *.DFM}

type
TKeyData = record
  fCTRL :Boolean;
  fSHIFT:Boolean;
  fALT  :Boolean;
  dKey  :Byte;
end;

var
  MahoKeydata:array[1..48] of TKeyData;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  //初期化
  for i := 1 to 48 do
    with MahoKeydata[i] do begin
      fCTRL := false;
      fSHIFT:= false;
      fALT  := false;
      dKey  := 0;
    end;

// ここで ini ファイルから読みとってセットする

end;

のようにレコード型を新たに定義し、その配列を作ります。
クリックされたら

procedure TForm1.btnU001Click(Sender: TObject);
var
  MahoNo:integer;
begin
  hUltima   := FindWindow('Ultima Online', nil); //UOのハンドルを取得
  hUltima3D := FindWindow('Ultima Online Third Dawn', nil); //UO3Dのハンドルを取得
  if hUltima or hUltima3D <> 0 then
  begin
    if hUltima   <> 0 then SetForeGroundWindow(hUltima);
    if hUltima3D <> 0 then SetForeGroundWindow(hUltima3D);

MahoNo := TImage(Sender).Tag;

with MahoKeydata[MahoNo] do begin
      if fCTRL  then keybd_event(VK_CONTROL, 0, 0, 0);
      if fSHIFT then keybd_event(VK_SHIFT, 0, 0, 0);
      if fALT   then keybd_event(VK_MENU, 0, 0, 0);
      keybd_event(dkey, 0, 0, 0);
      keybd_event(dKey, 0, KEYEVENTF_KEYUP, 0);
      if fALT   then keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
      if fSHIFT then keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
      if fCTRL  then keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    end;
  end;
end;
のように、Sender の Tag がら押されたボタンの魔法の種類を読みとり、
対応する配列の要素を読みとって、キーイベントを送ります。

←解決時は質問者本人がここをチェックしてください。

戻る