| |
|
|
- Page 1 - |
|
Peter Mallow | Hi, how can one with Profan Verify, whether a File in use becomes.
i want z.B. a File copy with the copy-commands. If but the File straight of a others Program is used or the program opened is, comes a Error Message. the would like I bypass.
Greeting Peter |
|
|
| WinXP Pro SP2, XProfan 9 + XPSE AMD Athlon 64 X2 3800 | 11/17/07 ▲ |
|
|
|
|
| |
|
- Page 1 - |
|
| whether it itself circa a Exe or otherwise a File deals game no role. an executed Exe is imho usually readable. in order to Verify whether readable read ioresult to assign and openrw from. whether a exe however grade carryed out becomes is hardly directly messbar, be because You can The executed Exe self program so these on possible inquire answer. the however is the Topic of Prozesskommunikation and not reading of opened Files or. Verify, whether file has just is used. |
|
|
| |
|
|
|
Peter Mallow | |
|
| WinXP Pro SP2, XProfan 9 + XPSE AMD Athlon 64 X2 3800 | 11/17/07 ▲ |
|
|
|
|
| |
|
| |
|
|
|
Peter Mallow | |
|
| WinXP Pro SP2, XProfan 9 + XPSE AMD Athlon 64 X2 3800 | 11/17/07 ▲ |
|
|
|
|
| Yes, XProfan10 code! You write You would have XProfan10, Why testest You it because not simply? |
|
|
| |
|
|
|
Peter Mallow | No, Have only XProfan 9. and 9 knows whom Var commands not. But in the principle the same code, or? |
|
|
| WinXP Pro SP2, XProfan 9 + XPSE AMD Athlon 64 X2 3800 | 11/17/07 ▲ |
|
|
|
|
| Nimm the var simply lane and deklariere The with var led variables by Declare, the code having yet a Error. |
|
|
| |
|
|
|
RGH | Peter Mallow
No, Have only XProfan 9. and 9 knows whom Var commands not. But in the principle the same code, or?
Hello Peter, there XProfan 9 Assign too not yet as function knows, should You with your Variante the Codes stay.
Greeting Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 11/18/07 ▲ |
|
|
|
|
| Ah! well true... |
|
|
| |
|
|
| |
|
- Page 2 - |
|
|
Michael Dell | whether a EXE carryed out becomes sees one herewith: CompileMarkSeparationSuchen und beenden von Prozessen (Programmen)
1.) Parameter = DateiName$ (ohne Pfad)
2.) Parameter = 0 - Prozess nicht beenden / 1 - Prozess beenden (falls vorhanden)
Autor: nicht bekannt!
Bearbeitet: Michael Dell
Def ProcessSnapshot(2) !KERNEL32.DLL,CreateToolhelp32Snapshot
Def ProcessFirst(2) !KERNEL32.DLL,Process32First
Def ProcessNext(2) !KERNEL32.DLL,Process32Next
Def GetLastError(0) !KERNEL32.DLL,GetLastError
Def OpenProcess(3) !KERNEL32.DLL,OpenProcess
Def TerminateProcess(2) !KERNEL32.DLL,TerminateProcess
Def CloseHandle(1) !KERNEL32.DLL,CloseHandle
Struct FOKP_PROCENTR32 = dwSize&,cntUsage&,th32ProcessID&,th32DefaultHeapID&,th32ModuleID&,cntThreads&,
th32ParentProcessID&,pcPriClassBase&,dwFlags&,szExeFile$(260)
Proc FindOrKillProcess
Parameters FOKP_Process$,FOKP_Delete&
Declare FOKP_NameLng&,FOKP_hSnapshot&,FOKP_Result&,FOKP_hProcess&,FOKP_ProcAnz&,FOKP_TermOk&,FOKP_PROCENTR#
Dim FOKP_PROCENTR#,FOKP_PROCENTR32
Clear FOKP_NameLng&,FOKP_hSnapshot&,FOKP_Result&,FOKP_hProcess&,FOKP_ProcAnz&,FOKP_TermOk&,FOKP_PROCENTR#
Long FOKP_PROCENTR#,0 = SizeOf(FOKP_PROCENTR#)
FOKP_NameLng& = Len(FOKP_Process$)
FOKP_Process$ = Lower$(FOKP_Process$)
FOKP_hSnapshot& = ProcessSnapshot(2, 0)
IfNot FOKP_hSnapshot& = -1
FOKP_Result& = ProcessFirst(FOKP_hSnapshot&, FOKP_PROCENTR#)
While FOKP_Result&
If Lower$(Right$(FOKP_PROCENTR#.szExeFile$,FOKP_NameLng&)) = FOKP_Process$
If FOKP_Delete& = 1
FOKP_hProcess& = OpenProcess(1, 0, FOKP_PROCENTR#.th32ProcessID&)
FOKP_TermOk& = TerminateProcess(FOKP_hProcess&, 0)
CloseHandle(FOKP_hProcess&)
sleep 100
EndIf
FOKP_ProcAnz& = FOKP_ProcAnz& + (FOKP_Delete&<>1) + FOKP_TermOk&
EndIf
FOKP_Result& = ProcessNext(FOKP_hSnapshot&, FOKP_PROCENTR#)
EndWhile
EndIf
CloseHandle(FOKP_hSnapshot&)
Dispose FOKP_PROCENTR#
Return Int(FOKP_ProcAnz&)
EndProc
Declare GL_DateiName$,GL_ProzessAnz&
GL_DateiName$ = TESTX.EXE
Cls
GL_ProzessAnz& = FindOrKillProcess(GL_DateiName$,0)
If GL_ProzessAnz&
Print (GL_DateiName$ + ist Aktiv)
Else
Print (GL_DateiName$ + ist Inaktiv)
EndIf
Print
Print
Print (Anzahl der Prozesse von q + GL_DateiName$ + q im Speicher: + Str$(GL_ProzessAnz&))
Wai
End
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 11/18/07 ▲ |
|
|
|
|
| nice idea The processes To search! |
|
|
| |
|
|