|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 2:32 am ¤å³¹¥DÃD: ShellExecute() ¨ç¼Æ»¡©ú¤å¥ó 2 (API) |
|
|
¥[±j¤Î¸É¥R«e¦¸µoªíªº¤å¥ó
ShellExecute() ¨ç¼Æ»¡©ú¤å¥ó(API)
FoxPro «Å§i¤è¦¡¡G(¬°¤F±Æª©¬üÆ[¡AªÅ®æ¬°¥þ§ÎªÅ¥Õ¡An½Æ»sµ{¦¡½X´ú¸Õ®É¡A½Ð´«¬°¥b§ÎªÅ¥Õ 2006/11/02 ¸É)
DECLARE INTEGER ShellExecute IN shell32;
¡@¡@INTEGER hwnd,;
¡@¡@STRING¡@lpOperation,;
¡@¡@STRING¡@lpFile,;
¡@¡@STRING¡@lpParameters,;
¡@¡@STRING¡@lpDirectory,;
¡@¡@INTEGER nShowCmd
°Ñ¼Æ¡G
hwnd
¡@1.«ü©w¤@Ó¤÷µøµ¡ªº¥N½X(Handle)È¡C
¡@¡@(¤@Ó«ü¬£µ¹µøµ¡ªº¼ÆÈ¡A¨Ñ§@·~¨t²Î°lÂܵøµ¡ÄÝ©Ê)
¡@2.¸ÓÀ³¥Îµ{¦¡©Ò²£¥Íªºµøµ¡Y¦³¿ù»~µo¥Í®É·|¦¬¨ì¤@ÓÃþ¦ü¿ù»~³ø§iªº°T®§¤è¶ô¡C
¡@3.¤@¯ë³£³]¬° 0¡C
lpOperation
¡@¹ï«ü©wÀÉ®×°õ¦æ®É©Ò°µªº°Ê§@¡A¦³¤U¦C´XºØ¿ï¾Ü¡G(¨Ì¸ÓÀɮשүണ¨Ñªº°Ê§@¦Ó©w)
¡@edit¡@¡@½s¿è
¡@explore ÂsÄý
¡@find¡@¡@·j´M
¡@open¡@¡@¶}±Ò
¡@print¡@ ¦C¦L
¡@³Æµù¡G
¡@¡@¸ÓÀɮשүണ¨Ñªº°Ê§@¥i¥Ñ ÀÉ®×Á`ºÞ --> ¤u¨ã --> ¸ê®Æ§¨¿ï¶µ --> ÀÉ®×Ãþ«¬
¡@¡@--> ¶i¶¥ --> °õ¦æ°Ê§@ ¥i¥H¬dª¾¡C
lpFile
¡@«ü©w°õ¦æ©Ò«ü¬£°Ê§@ªºÀÉ®×(¥i§t§¹¾ã¸ô®|¦WºÙ)©Îª«¥ó¦WºÙ¡C
lpParameters
¡@Y«ü©wÀɮ׬O¤@Ó¥i°õ¦æÀÉ®×(executable file)¡A¥B¨ä«á¥i¤U°Ñ¼Æ®É¡AlpParameters
¡@´N¬O¦s©ñ¸Ó°õ¦æÀɪº°Ñ¼Æ¤º®e¡CYµL°Ñ¼Æ¡A¸É¤W "" §Y¥i¡C
lpDirectory
¡@µ{¦¡°õ¦æªº¤u§@¥Ø¿ý¡CY¬° ""¡Aªí¥Ü±Ä¥Î¹w³]ªº¥Ø¿ý¡C
nShowCmd
¡@«ü©w°õ¦æ¸ÓÀɮ׮ɡA¨äÀ³¥Îµ{¦¡¥H¦óºØ¤è¦¡Åã¥Üµøµ¡¡G
¡@0¡@¤£Åã¥Ü
¡@1¡@³Ì¤j¤Æ
¡@2¡@³Ì¤p¤Æ
¶Ç¦^È¡G
¡@1.Y°õ¦æ¦¨¥\¡A¶Ç¦^¤j©ó 32 ªº¼ÆÈ¡C
¡@2.Y¥¢±Ñ¡A¦³¤U¦C´XºØ¦^À³È¡G
¡@¡@ 2 ¿ù»~ªºÃöÁp (¨Ò¦p¡G¤£¦Xªkªº URL)
¡@¡@29 ÃöÁp¥¢±Ñ
¡@¡@30 ÃöÁpÀ³¥Îµ{¦¡¦£¸L¤¤...
¡@¡@31 ¨S¦³ÃöÁp¥ô¦óÀ³¥Îµ{¦¡
½d¨Ò¡G(¥ý«Å§i¦¹ API)
* ---------------------------------------------------------------------------- *
¡@1.»P«ü©wªº¹q¸£¤§®É¶¡¦P¨B
¡@¡@M_cComputerName --> «ü©wªº¹q¸£¦WºÙ
¡@¡@=ShellExecute(0,"Open","NET.EXE","time \\"+M_cComputerName+" /set /yes","",0)
* ---------------------------------------------------------------------------- *
¡@2.Àɮ׽ƻs
¡@¡@VFP ¥»¨´N¦³ COPY FILE ... ©R¥O¡A¦ý¨Ó·½ÀÉ®×¥²¶·¬O¥¼³Q¨Ï¥Î¤¤¤~¦æ¡A
¡@¡@§_«h VFP ·|¥X²{¿ù»~°T®§¡A¦ý§ï¥Î¤U¦C¤è¦¡´N¤£·|¤F¡C
¡@¡@M_cSourceFile --> ¨Ó·½ÀɮצWºÙ
¡@¡@M_cTargFile¡@ --> ¥ØªºÀɮצWºÙ
¡@¡@=ShellExecute(0,"Open","CMD.EXE","/c COPY "+M_cSourceFile+" "+M_cTargFile,"",0)
¡@¡@=ShellExecute(0,"Open",GETENV("COMSPEC"),"/c COPY "+M_cSourceFile+" "+M_cTargFile,"",0)
¡@¡@³Æµù¡G
¡@¡@¡@1.Y¬O Win2000 ¥H¤Uªº OS¡A½Ð±N CMD.EXE ´«¦¨ COMMAND.COM¡C
¡@¡@¡@¡@¤£¹L¦b VFP ¤¤ª½±µ¥Î GETENV("COMSPEC") ´N¥i¥H¤F¡AVFP ·|¦Û¦æ§PÂ_¡C
¡@¡@¡@2.¨Æ¹ê¤W¥¦´N¬O¦b DOS ¼Ò¦¡¤U°õ¦æ DOS ¤º³¡«ü¥O COPY ªº°Ê§@¡A¥H VFP ªº°µªk¦p¤U
¡@¡@¡@¡@! COPY &M_cSourceFile. &M_cTargFile.
¡@¡@¡@3.±N nShowCmd ³]¬° 0 ´N¥i¥O¨º°Q¹½ªº DOS µøµ¡§¹¥þ¤£·|¥X²{¡F
¡@¡@¡@¡@¨ä¥Lªº DOS «ü¥O¤]¥i¨Ì¦¹¼Ò¦¡¥h°µ¡C
* ---------------------------------------------------------------------------- *
¡@3.µo°e¤@Óµ¹«ü©w¹q¸£ªº¡u«H®tªA°È¡v°T®§¤è¶ô
¡@¡@·|´£¨Ñ³oӮרҡA¬O¤½¥q¦³¤º³¡±±ºÞªº»Ý¨D¡CVFP À³¥Îµ{¦¡©ñ¦b¤½¥q¦øªA¾¹©Ò¦bªº¹q¸£
¡@¡@M_cSeverComputerName --> ¤½¥q¦øªA¾¹©Ò¦bªº¹q¸£¦WºÙ
¡@¡@M_cUserIdR¡@¡@¡@¡@¡@ --> ±µ¦¬°T®§ªº¨Ï¥ÎªÌ¦WºÙ
¡@¡@* ¦b¨º¤@»O¹q¸£°õ¦æ¥»µ{¦¡
¡@¡@M_cCurComputerName = ALLTRIM(LEFT(SYS(0),AT("#",SYS(0))-1))
¡@¡@* µo°e°T®§ªº¨Ï¥ÎªÌ¦WºÙ
¡@¡@M_cUserIdS¡@¡@¡@¡@ = ALLTRIM(SUBSTR(SYS(0),AT("#",SYS(0))+1))
¡@¡@* ¦b¦øªA¾¹¹q¸£¤W¤u§@¶¥¬q³s½uªº¹q¸£¤Î¨ä¨Ï¥ÎªÌ
¡@¡@* ---------------------------------- *
¡@¡@* M_aSessionInfo(*,1) = C ¨Ï¥ÎªÌ¦WºÙ
¡@¡@* M_aSessionInfo(*,2) = C ¹q¸£¦WºÙ
¡@¡@* ---------------------------------- *
¡@¡@DIMENSION M_aSessionInfo(1,2)
¡@¡@STORE "" TO M_aSessionInfo
¡@¡@* ¥u¦³¦øªA¾¹ªº¹q¸£¤~¯à²£¥Í NetSession.TXT
¡@¡@IF M_cCurComputerName == M_cSeverComputerName
¡@¡@¡@=STRTOFILE("NET.EXE SESSION > NetSession.TXT","Net.Bat")
¡@¡@¡@=ShellExecute(0,"Open","Net.Bat","","",0)
¡@¡@ENDIF
¡@¡@* ¨ú±o¦øªA¾¹¹q¸£¤W¤u§@¶¥¬q³s½uªº¹q¸£¤Î¨ä¨Ï¥ÎªÌ
¡@¡@IF ADIR(W1_aAdir,"NetSession.TXT") > 0
¡@¡@¡@W1_mComment = FILETOSTR("NetSession.TXT")
¡@¡@¡@STORE "" TO M_aSessionInfo
¡@¡@¡@W1_nRowOfSessionInfo = 0
¡@¡@¡@FOR W1_SUB_A = 1 TO MEMLINES(W1_mComment)
¡@¡@¡@¡@W1_cLINE¡@¡@¡@¡@ = MLINE(W1_mComment,W1_SUB_A,0)
¡@¡@¡@¡@W1_cHandle¡@¡@¡@ = SUBSTR(W1_cLINE,1,2)¡@¡@¡@¡@¡@¡@&& ¨C¦CªºªíÀY
¡@¡@¡@¡@W1_cUserName¡@¡@ = ALLTRIM(SUBSTR(W1_cLINE,24,20)) && ¨Ï¥ÎªÌ¦WºÙ
¡@¡@¡@¡@W1_cComputerName = ALLTRIM(SUBSTR(W1_cLINE,3,20))¡@&& ¹q¸£¦WºÙ
¡@¡@¡@¡@IF !W1_cHandle = "\\"
¡@¡@¡@¡@¡@LOOP
¡@¡@¡@¡@ENDIF
¡@¡@¡@¡@W1_nRowOfSessionInfo = W1_nRowOfSessionInfo + 1
¡@¡@¡@¡@DIMENSION M_aSessionInfo(W1_nRowOfSessionInfo,2)
¡@¡@¡@¡@M_aSessionInfo(W1_nRowOfSessionInfo,1) = W1_cUserName
¡@¡@¡@¡@M_aSessionInfo(W1_nRowOfSessionInfo,2) = W1_cComputerName
¡@¡@¡@ENDFOR
¡@¡@ENDIF
¡@¡@* ¶Ç°e¡u«H®tªA°È¡v
¡@¡@M_nCurRowOfSessionInfo = ASCAN(M_aSessionInfo,UPPER(ALLTRIM(M_cUserIdR)),1,-1,1,14)
¡@¡@IF M_nCurRowOfSessionInfo > 0
¡@¡@¡@M_mMessage = "send " + M_aSessionInfo(M_nCurRowOfSessionInfo,2) + ;
¡@¡@¡@¡@¡@¡@¡@¡@¡@ " " + M_cUserIdS + "µo°T®§µ¹ " + ALLTRIM(M_cUserIdR) + ;
¡@¡@¡@¡@¡@¡@¡@¡@¡@ "¡G" + CHR(13) + CHR(10) + CHR(13) + CHR(10) + ;
¡@¡@¡@¡@¡@¡@¡@¡@¡@ "¦³¤@«Ê«H¥ó¨ìºÞ²z«Ç»â¨ú"
¡@¡@¡@=ShellExecute(0,"Open","net.exe",M_mMessage,"",0)
¡@¡@ENDIF
¡@¡@³Æµù¡G
¡@¡@¡@1.¥» ASCAN() ¨ç¼Æªº°Ñ¼Æ¨Ï¥Î¬O 7.0 ª©ªºÀô¹Ò¡A6.0 ª©©Î¥H¤Uª©¥»¡A½Ð¦Û¦æ§ï¼g¡C
¡@¡@¡@2.¹ê»Ú¤W NetSession.TXT ªº²£¥Í¬O¤½¥q¦øªA¾¹±Nµ{¦¡©ñ¦b¤u§@±Æµ{¤¤°õ¦æ¡A
¡@¡@¡@¡@¥B¨C 5 ¤ÀÄÁ§ó·s¤@¦¸(³o²Ó¸`¤£«K»¡©ú)¡C
¡@¡@¡@3.¶Ç°e«á¡A±µ¦¬°T®§ªº¨Ï¥ÎªÌ´N·|¦b¨ä®à±¥X²{¡u«H®tªA°È¡v°T®§¤è¶ô¡C
¡@¡@¡@4.¶Ç°e¡u«H®tªA°È¡v³o¤@¬q¹ê»Ú¤W¬O¦b¤@Ó SCAN ... ENDSCAN ¤¤¡A
¡@¡@¡@¡@¦b³oùز¤Æ¤º®e¡CYn°µÓ²³æ´ú¸Õ¡A±N¹q¸£¦WºÙ³£«ü©w¦Û¤vªº¹q¸£¡A
¡@¡@¡@¡@µo°e¤Î±µ¦¬ªº¨Ï¥ÎªÌ¦WºÙ¤]«ü©w¦Û¤v(´N¬O¤@¶}©l¶i¤J Windows µn¿ýªº¦WºÙ)¡A
¡@¡@¡@¡@§Ú·Q³o¼Ë¦b¦Û¤vªº³æ¾÷¤W´ú¸Õ´N¥i¹F¨ì®ÄªG¡C
* ---------------------------------------------------------------------------- *
«á°O¡G
¡@1.³o¬O§Ú¨Ï¥Î¦¹ API ªº¤ß±o¡A·í¤¤Y¦³¤£¥¿½T©Î¶·¸É¥Rªº¦a¤è¡A·Ð½Ð¦U¦ì¯à§iª¾§Ú¡A
¡@¡@¥H«K±N¦¹ API ªº»¡©ú§ó¥[§¹³Æ¡C
¡@2.¥H«áY¦³¹ê»Ú¤WÀ³¥Îªº½d¨Ò·|Ä~Äò´£¨Ñ¡A¤]§Æ±æ¦U¦ìY¦³¹ê»ÚÀ³¥Îªº¨Ò¤l¡A
¡@¡@¤]¬è¬ß¤À¨É¥X¨Ó¡C
¦¶¨|¿³ ¦b ¬P´Á¥| ¤Q¤@¤ë 02, 2006 1:15 pm §@¤F²Ä 1 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
©b¶]ªº·R±¡
µù¥U®É¶¡: 2003-08-28 ¤å³¹: 27
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 15, 2003 1:46 pm ¤å³¹¥DÃD: |
|
|
¦n¤å¡A¤£¹L²Ä¤@¦b¤°»ò¦a¤è©O¡H _________________ delphi vf sql |
|
¦^³»ºÝ |
|
|
goto-dream
µù¥U®É¶¡: 2004-05-11 ¤å³¹: 909
²Ä 3 ¼Ó
|
|
¦^³»ºÝ |
|
|
lcm
µù¥U®É¶¡: 2004-12-27 ¤å³¹: 45
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤@¤ë 01, 2005 10:12 pm ¤å³¹¥DÃD: |
|
|
½Ð°Ý°õ¦æShellExecute()¬O§_nµ¥©Ò°õ¦æªºµ{¦¡µ²§ô«á¡A¤~·|Ä~Äò¨ä«áªºµ{¦¡½X¡HÁÂÁ |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤@¤ë 02, 2005 12:39 am ¤å³¹¥DÃD: |
|
|
°O±o¬O¤£·|¡AY»Ýn©Ò°õ¦æªºµ{¦¡ªºµ²ªG¡A´Nn§Q¥Î©µ¿ðªº®ÄªGÅý¸Óµ{¦¡µ²§ô«á¤~Ä~Äò¨ä«áªºµ{¦¡½X
³oÃþ½d¨ÒÀ³¸Ó¤£¤Ö¡A¥u¬O§Ñ°O¥Î¤°»òÃöÁäµü¥h·j¯Á¤F _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤Q¤@¤ë 02, 2006 11:48 am ¤å³¹¥DÃD: |
|
|
´ú¸Õ¥Î DECLARE INTEGER ShellExecute IN shell32;
¡@¡@INTEGER mhwnd,;
¡@¡@STRING¡@lpOperation,;
¡@¡@STRING¡@lpFile,;
¡@¡@STRING¡@lpParameters,;
¡@¡@STRING¡@lpDirectory,;
¡@¡@INTEGER nShowCmd
°õ¦æ? ShellExecute(0,"Open","CMD.EXE","/c COPY c:\temp\temp.dbf c:\temp\temp.txt","",0)
·|¥X²{¿ù»~.
¦ý¥Î
Declare Integer ShellExecute In shell32.Dll Integer, String, String, String, String, Integer
°õ¦æ? ShellExecute(0,"Open","CMD.EXE","/c COPY c:\temp\temp.dbf c:\temp\temp.txt","",0)
½T«Ü¥¿±` ???
¤£ª¾¿ù¦b¨º¸Ì? _________________ §Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙn§Ö±o¨ìµª®×. |
|
¦^³»ºÝ |
|
|
¦¶¨|¿³
µù¥U®É¶¡: 2003-08-25 ¤å³¹: 661 ¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤Q¤@¤ë 02, 2006 1:10 pm ¤å³¹¥DÃD: |
|
|
¨º¬O¦]¬°ª½±µ½Æ»s§Úªº½d¨Ò®É¡AªÅ®æ¬O¥þ§ÎªÅ¥Õ¡A©Ò¥H«Å§i®É´N¤£·|¥¿½T¡A§â¥þ§ÎªÅ¥Õ´«¬°¥b§Î¦A°õ¦æ´N¥i¥H¤F _________________ §Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ýn¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ |
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤Q¤@¤ë 03, 2006 2:57 am ¤å³¹¥DÃD: |
|
|
ì¨Ó¦p¦¹, §Ú¤~ı±o¬Ý°_¨Ó¨S°ÝÃD, «ç»ò°õ¦æ°_¨Ó´N¬O¦³°ÝÃD,
²´·ú¬O·|ÄF¤Hªº. _________________ §Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙn§Ö±o¨ìµª®×. |
|
¦^³»ºÝ |
|
|
syntech
µù¥U®É¶¡: 2003-05-16 ¤å³¹: 4225 ¨Ó¦Û: Taipei,Taiwan
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤Q¤@¤ë 03, 2006 1:45 pm ¤å³¹¥DÃD: |
|
|
¤@»yÅå¿ô¹Ú¤¤¤H.À~±o§Ú§¾ºu§¿¬y¥¢¤F»î~~~~~ «Ø¹ç¤½¥D. ^_^
§Ú¤]±`±`³o¼Ë°µ,ÅýPOST¥X¨Óªºª©±¦n¬Ý¤@ÂI.
©Î¬O¤@¨Ç«O¯d¦r§ï¥Î¥þ§Îµ¥µ¥.
¥H«án°O±o´£¿ô§O¤H. _________________ ¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊp¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý
½ÐÁpµ¸§ÚÌ,¤]³\§ÚÌÀ°±o¤W¦£ |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|