| 投稿日 | ： 2003/07/05(Sat) 13:27 |
| 投稿者 | ： こまった |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: VBから読込み専用でImaging起動 |
> だったら表示した後すぐに元に戻せばいいのでは。
> Private Sub Command1_Click()
> Call sOpenImaging("C:\Temp\aaa.bmp")
> End Sub
> Private Sub sOpenImaging(ByVal ImgFile As String)
> Dim Ret As Long
> Dim MyAttr As Integer
> MyAttr = GetAttr(ImgFile)
> If MyAttr <> vbReadOnly Then
> SetAttr ImgFile, vbReadOnly
> End If
> Ret = ShellExecute(Me.hwnd, "Open", "wangimg.exe", _
> ImgFile, vbNullString, 1&)
> Sleep 1000
> SetAttr ImgFile, MyAttr
> End Sub
>
解答有難うございます。
ShellExecute関数実行後、一定時間のSleepで元に戻す事を
実施しました。
しかし、Sleep値にもよりますがImagingがSleep値以内に立ち
上がらない場合(CPU・ネットワーク負荷？)、元に戻したファイル
を読込んでしまい、読込専用にはなりませんでした。
従って、現在はSleep値を３秒で実施していますが、他に良い方法が
あればと考え投稿した次第です。(説明不足で申し訳有りません)
OSにつきましては、WinNT4.0・Win2000を対象にしており、
WinNT4.0の Imagingは "wangimg.exe"
Win2000 の Imagingは "kodakimg.exe"
となります。