| [10930] Re4:Visual Studio 2017リリース | 返信 削除 |
| 2017/3/16 (木) 13:01:17 Mr.XRAY |
|
▼ takaさん >ストアアプリで課金方式や広告表示で入金してもらう際の注意 >・登録する銀行は、海外からの「被仕向送金手数料 無料」 を必ず探すこと > なにも考えずに登録すると 数千円の手数料を取られて 悲惨な入金額になります なるほど． > 説明 > > > 動作環境 64bit 早く 64 ビットに移行しろ !! ということなのでしょうか． UWP なんですが，Windows 10 の Microsoft Edge には EXE ファイルがありません． UWP の登録名 (表示名ではない) か Shell コマンドでないと起動できません． [ファイル名を指定して実行] の記事を書いている時に，ネット上で質問をみかけました． 「Edge の実行ファイルはどこにあるのでしょうか」 という内容でした． Windows 10 の IE 11 は，UWP と EXE の両方あります． uses ShellAPI; {$R *.dfm} //============================================================================= // UWPアプリの起動 // UWPの登録名で起動 //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LCmd : string; LPara : string; begin LCmd := 'microsoft-edge:'; LPara := ' ShellExecute(Handle, '', PChar(LCmd + LPara), nil, nil, SW_SHOW); end; //============================================================================= // UWPアプリの起動 // shellコマンドで起動 //============================================================================= procedure TForm1.Button2Click(Sender: TObject); var LCmd : string; LPara : string; begin LCmd := 'shell:AppsFolder\Microsoft.MicrosoftEdge_8wekyb3d8bbwe!MicrosoftEdge'; LPara := ' ShellExecute(Handle, '', PChar(LCmd), PChar(LPara), nil, SW_SHOW); end;  |
