XProfan

Italia

Peter
Mallow

Hi,
wie kann man mit Profan prüfen, ob eine File gerade verwendet wird.

Ich möchte z.B. eine File kopieren mit dem Copy-Befehl. Wenn aber die File gerade von einem anderen Programm verwendet wird oder das Programm geöffnet ist, kommt eine Fehlermeldung.
Das möchte ich umgehen.

Saluto
Peter

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

Ob es sich um eine Exe oder sonst eine File handelt spielt keine Rolle. Eine ausgeführte Exe ist imho normalerweise lesbar. Um zu prüfen ob lesbar lese ioresult nach assign und openrw aus. Ob eine exe jedoch grade corsa wird ist kaum direkt messbar, sei denn Du kannst die ausgeführte Exe selbst programmieren sodass diese auf mögliche Anfragen antwortet. Das jedoch ist das Thema von Prozesskommunikation und nicht lesen von geöffneten File bzw. Prüfen, ob File gerade verwendet wird.

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Mallow

Okay, Danke. Funktioniert jetzt:
Kompilieren Markieren Separieren

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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Überarbeitet:
Kompilieren Markieren Separieren

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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Mallow

Ist das XProfan 10 Code?

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ja, XProfan10 Code! Du schreibst Du hättest XProfan10, warum testest Du es denn nicht einfach?

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Mallow

Nein, hab nur XProfan 9. Und 9 kennt den Var Befehl nicht. Ist aber im Prinzip der selbe Code, oder?

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nimm das var einfach weg und deklariere die mit var angeführten Variablen per Declare, der Code hatte noch einen Fehler.

17.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Peter Mallow

Nein, hab nur XProfan 9. Und 9 kennt den Var Befehl nicht. Ist aber im Prinzip der selbe Code, oder?

Hallo Peter,
da XProfan 9 Assign auch noch nicht als Funktion kennt, solltest Du bei Deiner Variante des Codes bleiben.

Saluto
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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Ah! Wohl wahr...

18.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 2 -

Michael
Dell

Ob eine EXE corsa wird sieht man hiermit:
Kompilieren Markieren Separieren

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