XProfan

Français

Peter
Mallow

Hi,
comment peux on avec Profan vérifier, si une Dossier justement verwendet wird.

je voudrais z.B. une Dossier kopieren avec dem Copy-Befehl. si mais qui Dossier justement de einem anderen Programme verwendet wird ou bien cela Programme ouvert ist, venez une Fehlermeldung.
cela voudrais je tourner autour de.

Salut
Peter

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

si es sich um une Exe ou bien sonst une Dossier handelt écoutes aucun rôle. une ausgeführte Exe ist imho normalement lesbar. afin de vérifier si lesbar lese ioresult pour assign et openrw aus. si une exe cependant grade fonctionnement wird ist à peine direct messbar, sei car tu peux qui ausgeführte Exe selbst programmieren sodass cet sur mögliche Anfragen antwortet. cela cependant ist cela Thema de Prozesskommunikation et pas lesen de geöffneten Fichiers bzw. vérifier, si Dossier justement verwendet wird.

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Mallow

Okay, merci. Funktioniert maintenant:
Kompilieren Marque Séparation

Assign #1,utorrent.exe
OpenRW #1

if %IOResult > 0

    @MessageBox(Bitte zuerst uTorrent beenden!,uTorrent Version-Changer,64)
    end

endif

Close #pan>

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Überarbeitet:
Kompilieren Marque Séparation

nul(%ioresult)
var f&=assign(utorrent.exe)
openrw #f&
var r%=%ioresult
close #f&
assign #f&,

if r%

    MessageBox(Bitte zuerst uTorrent beenden!,uTorrent Version-Changer,64)
    end

endif

proc nul

    parameters p%
    return p%

endproc

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Mallow

Ist cela XProfan 10 Code?

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui, XProfan10 Code! tu écris Du hättest XProfan10, pourquoi testest Du es car pas simple?

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Mallow

non, hab seulement XProfan 9. et 9 kennt den Var Befehl pas. Ist mais im Prinzip qui selbe Code, ou bien?

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

prends cela var simple weg et deklariere qui avec var angeführten Variablen per Déclarer, qui Code hatte encore une faute.

17.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Peter Mallow

non, hab seulement XProfan 9. et 9 kennt den Var Befehl pas. Ist mais im Prinzip qui selbe Code, ou bien?

allô Peter,
là XProfan 9 Assign aussi encore pas comme Funktion kennt, devrait Du chez Deiner variante des Codes rester.

Salut
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

18.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ah! Wohl véritable...

18.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Michael
Dell

si une EXE fonctionnement wird sieht on hiermit:
Kompilieren Marque Séparation

Suchen 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