Changeset 19738 for lang/vb2008

Timestamp:

09/22/08 23:28:01 (5 years ago)

Author:

syo68k

Message:

・アップデート時に管理者権限のあるユーザーで起動している場合は、ネイティブイメージキャッシュを作成するようにした。

Files:

• lang/vb2008/TweenUp/TweenUp/Form1.vb (modified) (3 diffs)

lang/vb2008/TweenUp/TweenUp/Form1.vb

@@ -1 @@
-Public Class Form1
+Imports System.Diagnostics
+
+Public Class Form1
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -90 +92 @@
         System.IO.File.Delete(System.IO.Path.Combine(Application.StartupPath, My.Resources.FilenameNew))
 
+        ' ネイティブイメージにコンパイル
+        Call GenerateNativeImage()
+
         ' 「新しいTweenを起動しています」
         BackgroundWorker1.ReportProgress(0, userState:=My.Resources.ProgressExecuteTween)
@@ -118 +123 @@
     End Sub
 
+    Private Sub GenerateNativeImage()
+        ' Tween.exeをプリコンパイル
+        Try
+            Dim psi = New ProcessStartInfo()
+
+            psi.Arguments = "/nologo /silent " + Chr(34) + System.IO.Path.Combine(Application.StartupPath, My.Resources.FilenameTweenExe) + Chr(34)
+            psi.FileName = System.IO.Path.Combine(System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory(), "ngen.exe")
+            psi.WindowStyle = ProcessWindowStyle.Hidden
+            Process.Start(psi).WaitForExit()
+        Catch
+
+        End Try
+
+    End Sub
+
 End Class