Deutsch
Forum

Prüfen, ob Datei gerade verwendet wird

 
- Seite 1 -



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  
 



 
- 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  
 




Peter
Mallow
Okay, Danke. Funktioniert jetzt:
KompilierenMarkierenSeparieren
 
WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800
17.11.2007  
 



Überarbeitet:
KompilierenMarkierenSeparieren
 
17.11.2007  
 




Peter
Mallow
Ist das XProfan 10 Code?
 
WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800
17.11.2007  
 



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




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  
 



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




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  
 



Ah! Wohl wahr...
 
18.11.2007  
 



 
- Seite 2 -



Michael
Dell
Ob eine EXE ausgeführt wird sieht man hiermit:
KompilierenMarkierenSeparieren
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
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
18.11.2007  
 



Nette Idee die Prozesse zu durchsuchen!
 
18.11.2007  
 




Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

7.215 Betrachtungen

Unbenanntvor 0 min.
Sven Bader08.09.2021
Klaus Ernst01.08.2014
Jupp Fitten03.02.2014

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie