Changeset 19738 for lang/vb2008

Show
Ignore:
Timestamp:
09/22/08 23:28:01 (6 years ago)
Author:
syo68k
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/vb2008/TweenUp/TweenUp/Form1.vb

    r17494 r19738  
    1 Public Class Form1 
     1Imports System.Diagnostics 
     2 
     3Public Class Form1 
    24 
    35    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     
    9092        System.IO.File.Delete(System.IO.Path.Combine(Application.StartupPath, My.Resources.FilenameNew)) 
    9193 
     94        ' ネイティブイメージにコンパイル 
     95        Call GenerateNativeImage() 
     96 
    9297        ' 「新しいTweenを起動しています」 
    9398        BackgroundWorker1.ReportProgress(0, userState:=My.Resources.ProgressExecuteTween) 
     
    118123    End Sub 
    119124 
     125    Private Sub GenerateNativeImage() 
     126        ' Tween.exeをプリコンパイル 
     127        Try 
     128            Dim psi = New ProcessStartInfo() 
     129 
     130            psi.Arguments = "/nologo /silent " + Chr(34) + System.IO.Path.Combine(Application.StartupPath, My.Resources.FilenameTweenExe) + Chr(34) 
     131            psi.FileName = System.IO.Path.Combine(System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory(), "ngen.exe") 
     132            psi.WindowStyle = ProcessWindowStyle.Hidden 
     133            Process.Start(psi).WaitForExit() 
     134        Catch 
     135 
     136        End Try 
     137 
     138    End Sub 
     139 
    120140End Class