ShellExecute(Handle, 'OPEN', 'で起動したアプリを閉じるには。 (ID:32344)

名前

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

本文

以前「Windows画像とＦＡＸビューアーを使えませんか」で質問させて頂いた新米です。
やっとＦＡＸビューアーを使ったスライドショーのひな形を
「美味しい草なら 」さんのサンプルを元に、元来同一フォルダ内の再生用を
任意のフォルダのファイルを集めて
ファイルをListboxに取得してスライドショーをするように作りました。
質問は
（１）このアプリがＦＡＸビューアーに隠れた状態で動くのが運命なので
キーアクションを取得するのにいろいろやってタイマーを付けておけばキーアクションを
取得してショーができましたが、タイマーのアクションに頼るのでレスポンスが悪い。
何かいい方法はないでしょうか。
（２）ShellExecute(Handle, 'OPEN', 'Rundll32.exe',PChar(・・で起動したＦＡＸビューアーを
キーアクション（この例ではＱ）で閉じることができないでしょうか。
参考サイトを見てやりましたが閉じてくれません。
以上２点ですっきりしません。よりよい方法をお願いします。

見苦しいコードですが最低動く要点を書いてみます。
var  ListNo:integer;
//画像ファイルパスをListboxに登録する
procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    Application.OnMessage := MsgHandler;  //スライドショーのキーアクションキャッチ
    ListBox1.Sorted:=true;
    OpenDialog1.Options:=[ofAllowMultiSelect]; //複数のファイルを選択する
    if OpenDialog1.Execute then
        for i := 0 to OpenDialog1.Files.Count - 1 do
            Listbox1.Items.Add(OpenDialog1.Files[i]);

ListNo:=0;
end;
//キーアクションの取得
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var KeyNo:integer;
begin   //次へＺ
        if (GetAsyncKeyState(90) <> 0) then begin Sleep(250);SlideShowDisp(1);exit;end
        else  //前へ A
        if  (GetAsyncKeyState(65) <> 0) then begin Sleep(250);SlideShowDisp(2);exit;end
        else  //Qは終了
        if  GetAsyncKeyState(81)<>0   then begin Sleep(250);SlideShowDisp(8);exit;end;
end;
//画像の表示
procedure TForm1.SlideShowDisp(const c:integer);
var
    hd:HWND;
    Path:string;
begin
    if ListBox1.Items.Count=0 then exit;
    case  c of
        1:  begin ListNo:=ListNo+1;end;  //------次へ  Z
        2:  begin ListNo:=ListNo-1;end;  //------前へ  A
        8:  begin
              hd := FindWindow('Rundll32.exe',nil);
              SendMessage(hd, WM_CLOSE, 0, 0);
              exit;
            end;
        else exit;
    end;
    if ListNo<0 then ListNo:=0;
    if ListNo>ListBox1.Items.Count-1 then ListNo:=ListBox1.Items.Count-1;
    Path:= 'shimgvw.dll,ImageView_Fullscreen '+ListBox1.Items.Strings[ListNo];
    ShellExecute(Handle, 'OPEN', 'Rundll32.exe',PChar(Path), nil, SW_SHOW);
end;
//画面が隠れてもキーアクションをキャッチできるように
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    {nathing}
end;

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

戻る