| 投稿日 | ： 2003/07/05(Sat) 12:29 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 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
> 可能であれば、開く時に読込専用(Imaging起動時のコマンドラインで)にするのが一番良いと
> 考えております。
wangimg.exe の方でサポートしていれば出来るのでしょうが、サポートしていないと簡単にはできない
かと思います。（ダイアログボックスのチェックボックスの設定とは違います）
>Windows標準のImagingを
因みにOSは何ですか？
WindowsXP には添付されていませんし、Windows98 ではC:\WINDOWS\KODAKIMG.EXEのようです。