VFP 愛用者社區

老人 · 註冊時間: 2007-11-11 文章: 14 第 1 樓

請教各位先進:
如何啟動小畫家,並且指定路徑和檔名,存檔時也可指定路徑和檔名
感恩!!

tigerlee39y · 發表於: 星期二十一月 03, 2009 4:40 am 文章主題:

啟動小畫家
Run G:\WINNT\System32\mspaint.exe

老人 · 註冊時間: 2007-11-11 文章: 14 第 3 樓

謝謝tigerlee39y快速回答
能否在開啟時就載入指定路徑中的檔案?
感恩!!

syntech · 發表於: 星期二十一月 03, 2009 11:45 am 文章主題:

Run G:\WINNT\System32\mspaint.exe C:\A.JPG

或
RUN ("G:\WINNT\System32\mspaint.exe"+space(1) + Var_A)

有沒陷阱,自己抓. ^_^

印象中,用RUN有問題,
無法由程式控制,也就是無法指定後來存檔的檔名,
因為控制權已在小畫家上頭,

也許你可用 CREATEOBJECT + IEXPLORE 的方式控制

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 5 樓

『VFP 愛用者社區』是山野田林嗎?
怎麼到處叫人提防陷阱?

syntech · 發表於: 星期二十一月 03, 2009 4:55 pm 文章主題:

咬我呀~~~~ ^_^

LiuRambo · 註冊時間: 2007-11-27 文章: 481 第 7 樓

踩下去了會痛才會記得下次別再踩到

老人 · 註冊時間: 2007-11-11 文章: 14 第 8 樓

謝謝各位先進回答!!
自己找到到一個語法測試無誤其中有些參數不很了解希望能補充和詳加解釋
感恩!!
*** 開啟小畫家 ***
declare integer ShellExecute in shell32.dll ;
integer hwnd,;
string lpOperation,;
string lpFile,;
string lpParameters,;
string lpDirectory,;
integer nShowCmd
ShellExecute(0, 'open', 'mspaint.exe', 檔名,路徑,1)
存檔案時=>小畫家工具列-檔案-另存新檔(就可指定路徑;檔名;類型)

syntech · 發表於: 星期三十一月 04, 2009 3:39 pm 文章主題:

你打算告訴大家,你連搜尋打 "ShellExecute" 都不會?

老人 · 註冊時間: 2007-11-11 文章: 14 第 10 樓

謝謝syntech指教!!
真的不懂到底有多少函數和用法,先進既然回文那就順便請教另一個問題
啟動小畫家後能否指定它的位置及關閉form時也關閉小畫家或是有其他的
語法可達成上述動作.望能賜教!!
一個只玩過dbase的人給你感恩.........

syntech · 發表於: 星期四十一月 05, 2009 8:29 am 文章主題:

請參閱第3樓.

用RUN,SHELLEXECUTE ,
結果都是純叫起,無法做額外控制

215001 · 註冊時間: 2003-06-11 文章: 393 第 12 樓

以前收錄下的範例 , 沒試過

oWS = CreateObject( "WScript.Shell" )
oPaint = oWS.Exec( "C:\windows\system32\MSPAINT.EXE" )
inkey(0.5)

oWS.AppActivate( "未命名 - 小畫家" )
oWS.SendKeys( "%f" ) && 按Alt-F 檔案
oWS.SendKeys( "A" ) && 按A另存新檔
inkey(0.2) && 停頓, 避免可能執行太快,後面會失敗
oWS.SendKeys( "{TAB}" ) && 按Tab 跳到存檔類型
oWS.SendKeys( "{DOWN}" ) && 按↓展開存檔類型
oWS.SendKeys( "{HOME}" ) && 按Home跳至第1項類型
oWS.SendKeys( "{DOWN}") && 按↓往下一列
oWS.SendKeys( "{DOWN}") && 再按↓往下一列
RELEASE oWS