XProfan

Deutsch

Peter
Mallow

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

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

Gruß
Peter

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 1 -

Ob es sich um eine Exe oder sonst eine Datei 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 ausgeführt 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 Dateien bzw. Prüfen, ob Datei gerade verwendet wird.

17.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 #1

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ü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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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

17.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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.

Gruß
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 zitieren Zeilenweise zitieren

Ah! Wohl wahr...

18.11.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 2 -

Michael
Dell

Ob eine EXE ausgeführt 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&))
WaitInput
End