unit ShowToolsUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private 宣言 }
    FCmdPath : string;
    FCmdPara : string;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  ShellAPI,
  StrUtils;

{$R *.DFM}

//=============================================================================
//  ListBox1に起動用の文字列をセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);

  //---------------------------------------------------------------------------
  //  ListBox1に文字列と実行用のパス名をセット
  //---------------------------------------------------------------------------
  procedure AddItem(ACaption, APath: String);
  var
    LpAddStr : PString;
  begin
    New(LpAddStr);
    LpAddStr^ := APath;
    ListBox1.AddItem(ACaption, TObject(LpAddStr));
  end;
//-----------------------------------------------------------------------------

var
  LStringList : TStringList;
  LPos        : Integer;
  LStrCaption : string;
  LStrPath    : string;
  i           : Integer;
begin
  //表示用の文字列とパス名を格納したファイルを読み込んで処理
  LStringList := TStringList.Create;
  try
    LStringList.LoadFromFile('ToolsPathList.txt');
    for i := 0 to LStringList.Count - 1 do begin
      LPos        := Pos(',', LStringList[i]);
      LStrCaption := Copy(LStringList[i], 1, LPos -1);
      LStrPath    := Copy(LStringList[i], LPos + 1, Length(LStringList[i]));

      //ListBox1のItemに追加
      AddItem(LStrCaption, LStrPath);
    end;
  finally
    FreeAndNil(LStringList);
  end;
  ListBox1.ItemIndex := 0;
  ListBox1Click(nil);
end;

//=============================================================================
//  ListBox1のオブジェクトを破棄
//=============================================================================
procedure TForm1.FormDestroy(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do begin
    Dispose(PString(ListBox1.Items.Objects[i]));
  end;
end;

//=============================================================================
//  ListBox1のOnDblClickイベント処理
//  ListBoxで選択しているツールを起動
//=============================================================================
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  LRetCode : Integer;
begin
  if ListBox1.ItemIndex < 0 then exit;
  if FCmdPath = '' then exit;

  LRetCode := ShellExecute(Handle, '', PChar(FCmdPath), PChar(FCmdPara), nil, SW_SHOW);

  if LRetCode <=32 then begin
    MessageBox(Handle, PChar(SysErrorMessage(LRetCode)), '情報', MB_ICONINFORMATION);
  end;
end;

//=============================================================================
//  ListBox1のOnClickイベント処理
//  選択項目のShellExecute関数に渡す引数の文字列を作成
//=============================================================================
procedure TForm1.ListBox1Click(Sender: TObject);

  //---------------------------------------------------------------------------
  //  環境変数を含む(%等の文字を含む)を実際のパス名に変換
  //---------------------------------------------------------------------------
  function ExpandEnvironmentString(S: String): String;
  var
    LDstChar : array [0..MAX_PATH - 1] of Char;
  begin
    ExpandEnvironmentStrings(PChar(S), LDstChar, MAX_PATH);
    Result := LDstChar;
  end;
  //---------------------------------------------------------------------------

var
  LStringList : TStringList;
  LOriginCmd  : string;
  LEnvPath    : string;
begin
  if ListBox1.ItemIndex < 0 then exit;

  //選択中のItems文字列を取得してコマンド文字列を作成
  LOriginCmd := Trim(PString(ListBox1.Items.Objects[ListBox1.ItemIndex])^);
  LEnvPath   := ExpandEnvironmentString(LOriginCmd);

  //実行ファイル名とパラメータに分解
  LStringList := TStringList.Create;
  try
    LStringList.Delimiter       := ' ';
    LStringList.StrictDelimiter := True;
    LStringList.DelimitedText   := LEnvPath;

    if LStringList.Count = 1 then begin
      FCmdPath := Trim(LEnvPath);
      FCmdPara := '';
    end else begin
      FCmdPath := Trim(LStringList[0]);
      FCmdPara := Trim(StringReplace(LEnvPath, FCmdPath, '', [rfIgnoreCase]));
    end;
  finally
    FreeAndNil(LStringList);
  end;

  //パス名の空白までをパスと認識してしまうのでダブルクォーテーションで囲む
  //パラメータはそのままとする
  if Pos(' ', FCmdPath) > 1 then begin
    if LeftStr(FCmdPath, 1) <> '"' then begin
      FCmdPath := AnsiQuotedStr(FCmdPath, '"');
    end;
  end;
  Edit1.Text := LOriginCmd;
end;

//=============================================================================
//  ListBox1のOnKeyDownイベント処理
//=============================================================================
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ListBox1.ItemIndex < 0 then exit;

  if Key = VK_RETURN then begin
    ListBox1DblClick(nil);
    Key := 0;
  end;
end;

end.

unit ShowPhotoViewerUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//-----------------------------------------------------------------------------
//  コマンドラインのコマンドを実行する関数
//  起動は待たない．またツール類の終了も待たない．
//-----------------------------------------------------------------------------
function RunCommmadLine(CommandLine: string): DWORD;
var
  StartupInfo : TStartupInfo;
  ProcessInfo : TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);

  StartupInfo.cb      := sizeof(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  //これがないとコマンドプロンプトのウィンドウが表示されてしまう
  //この指定を有効にするためには，dwFlagsにSTARTF_USESHOWWINDOWを指定する
  StartupInfo.wShowWindow := SW_HIDE;

  //参照カウンタ対策
  UniqueString(CommandLine);

  if not CreateProcess(nil,
                       PChar(CommandLine),
                       nil,
                       nil,
                       True,
                       CREATE_NEW_CONSOLE,
                       nil,
                       nil,
                       StartupInfo,
                       ProcessInfo) then begin
    Result := WAIT_FAILED
  end else begin
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;

//=============================================================================
//  Edit1に表示する画像ファイルのフルパスをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := ExtractFilePath(Application.ExeName) + 'RIMG0414.JPG';
end;

//=============================================================================
//  ボタンクリックしたらEdit1に入力されている画像ファイルを表示
//  CreateProcessでコマンドプロンプトの引数にフォトビューアを指定して起動
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  Rundll32ExePath : String;
  ViewerdllPath   : String;
  ImagePath       : String;
  ACmdStr         : String;
begin
  //ShellExecute,ShellExecuteExを使用すれば，Rundll32.exeのフルパス不要
  Rundll32ExePath := '"C:\Windows\system32\Rundll32.exe " ';
  ViewerdllPath   := '%SystemRoot%\system32\shimgvw.dll, ImageView_Fullscreen ';
  ImagePath       := Trim(Edit1.Text);

  Screen.Cursor := crHourGlass;
  try
    //コマンド文字列を作成
    ACmdStr := 'cmd.exe /c ' + Rundll32ExePath + ViewerdllPath + ImagePath;
    RunCommmadLine(ACmdStr);
  finally
    Screen.Cursor := crDefault;
  end;
end;

end.

unit ShowPhotoViewerUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ShellAPI, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  Edit1に表示する画像ファイルのフルパスをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := ExtractFilePath(Application.ExeName) + 'RIMG0414.JPG';
end;

//=============================================================================
//  ボタンクリックしたらEdit1に入力されている画像ファイルを表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ViewerdllPath : String;
  ImagePath     : String;
begin
  ViewerdllPath := 'C:\Windows\system32\shimgvw.dll, ImageView_Fullscreen ';
  ImagePath := Trim(Edit1.Text);

  ShellExecute(Handle,
               'OPEN',
               'Rundll32.exe',
               PChar(ViewerdllPath + ImagePath),
               nil,
               SW_SHOWNORMAL);
end;

end.

unit ShowPhotoViewerUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  Edit1に表示する画像ファイルのフルパスをセット
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := ExtractFilePath(Application.ExeName) + 'RIMG0414.JPG';
end;

//=============================================================================
//  ボタンクリックしたらEdit1に入力されている画像ファイルを表示
//  WinExecの文字列引数はAnsiStringでないと動作しない
//  Delphi 2007以前であればString型でも動作する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ViewerdllPath : AnsiString;
  ImagePath     : AnsiString;
  CmdLine       : AnsiString;
begin
  ViewerdllPath := 'C:\Windows\system32\shimgvw.dll, ImageView_Fullscreen ';
  ImagePath     := Trim(Edit1.Text);
  CmdLine       := 'Rundll32.exe ' + ViewerdllPath + ImagePath;

  WinExec(PAnsiChar(CmdLine), SW_SHOWNORMAL);
end;

end.