Seite 2 von 2
Verfasst: 21.09.2005 19:42
von ts-soft
haste die beiden del.bat im UserLibraries und im Resident-Ordner ausgeführt, ansonsten wenns immer noch nicht geht, alle UserLibraries entfernen und stück für stück wieder installieren, bis der Fehler auftritt.
Verfasst: 21.09.2005 19:43
von PAMKKKKK
IcedCoffee hat geschrieben:da bekomme ich den selben error < no message >
edit: ne beim standart pb editor bekomme ich die nachicht ""
als MessageRequester("PureBasic","",#MB_ICONHAND)
Auch bei dem PBOSL Beispielcode?
Füg den mal ein, und führe mal aus!
Verfasst: 21.09.2005 19:48
von ts-soft
PAMKKKKK hat geschrieben:IcedCoffee hat geschrieben:da bekomme ich den selben error < no message >
edit: ne beim standart pb editor bekomme ich die nachicht ""
als MessageRequester("PureBasic","",#MB_ICONHAND)
Auch bei dem PBOSL Beispielcode?
Füg den mal ein, und führe mal aus!
Er bekommt den Fehler bei:
Da ist das Testen des Beispielcodes wohl mehr als überflüssig
Verfasst: 21.09.2005 20:11
von IcedCoffee
so ich habe PB jetzt noch mal deinstall und neuinstall
und alle PBOSL ordener in meinen PB ordener kopirt
und PureLibraries\UserLibraries\PBOSL DELOLD.bat und Residents\PBOSL DELOLD.bat ausgefürt
und wen ich jetzt PB starte bekomme ich die meldung "Duplicated library command: CallCOM() (in libraries PBOSL_OOP and COM_DX)"
so was soll cih jetzt machen?
Verfasst: 21.09.2005 20:22
von ts-soft
Die DelOld.bat sollte eigentlich die CallCom löschen. Dann lösche sie so, die ist im PBOSL-Paket unter anderem Namen enthalten.
Verfasst: 21.09.2005 20:29
von IcedCoffee
so das selbe problem hatte ich jetzt noch mal mit HighResTimer [habe ich auch gelöscht]
jetzt kann ich den PB editor starten [habe ich auch gemacht]
und jetzt kann ich eigentlich auch Debug ExamineProcesses() ausfüren
geht aber nicht da ich wider den fehler "" bekomme also
MessageRequester("PureBasic","",#MB_ICONHAND)
was soll ich jetzt machen?
Verfasst: 21.09.2005 20:35
von ts-soft
Sag mal, hast Du zufällig noch die "UserLibraries.exe" vom PureArea.net. Die darfste auf keinen Fall installieren, ist total veraltet. Wird auch nirgends mehr zum Download angeboten.
Am besten nur die Libraries, die Du benötigst und möglichst keine alten installieren.
Verfasst: 21.09.2005 20:54
von PAMKKKKK
Wenn garnix mit BOSL geht nimm das hier.
PBOSL ist aber gut und sollte laufen.
Code: Alles auswählen
; Author: Hi-Toro: Modified by Pamkkkkk 12.August 2005
; Date: 30. November 2003
; Should run on all Windows version from Win95 till WinXP !!
Procedure.b KillProcess (PID)
; Author: Hi-Toro
; Date: 30. November 2003
; Kills a Process by given Process Number (ID)
; Returns #True if Process is killed #False if its not
#PROCESS_TERMINATE = $1
#PROCESS_CREATE_THREAD = $2
#PROCESS_VM_OPERATION = $8
#PROCESS_VM_READ = $10
#PROCESS_VM_WRITE = $20
#PROCESS_DUP_HANDLE = $40
#PROCESS_CREATE_PROCESS = $80
#PROCESS_SET_QUOTA = $100
#PROCESS_SET_INFORMATION = $200
#PROCESS_QUERY_INFORMATION = $400
#PROCESS_ALL_ACCESS = #STANDARD_RIGHTS_REQUIRED | #SYNCHRONIZE | $FFF
; This appears to be pretty much how Windows kills a program if you 'End Process'
; from the Task Manager. Note that this is 'unfriendly'!
result = #False
phandle = OpenProcess_ (#PROCESS_TERMINATE, #False, PID)
If phandle <> #Null
If TerminateProcess_ (phandle, 1)
result = #True
EndIf
CloseHandle_ (phandle)
EndIf
ProcedureReturn result
EndProcedure
Procedure.b Kill_Prozess_by_Name(ProcName.s)
; Author: Hi-Toro: Modified by Pamkkkkk 12.August 2005
; Date: 30. November 2003
; Should run on all Windows version from Win95 till WinXP !!
; Crowls thru the running Processes, to find the Prozess ID from a given Prozessname
; Returns #True if Process is found #False if its not found
PID.l = 0
#TH32CS_SNAPHEAPLIST = $1
#TH32CS_SNAPPROCESS = $2
#TH32CS_SNAPTHREAD = $4
#TH32CS_SNAPMODULE = $8
#TH32CS_SNAPALL = #TH32CS_SNAPHEAPLIST | #TH32CS_SNAPPROCESS | #TH32CS_SNAPTHREAD | #TH32CS_SNAPMODULE
#TH32CS_INHERIT = $80000000
#INVALID_HANDLE_VALUE = -1
#PROCESS32LIB = 9999
Structure PROCESSENTRY32
dwSize.l
cntUsage.l
th32ProcessID.l
th32DefaultHeapID.l
th32ModuleID.l
cntThreads.l
th32ParentProcessID.l
pcPriClassBase.l
dwFlags.l
szExeFile.b [#MAX_PATH]
EndStructure
; NOTE: I've chosen to add processes to this list so that it can be played with as necessary...
NewList Process32.PROCESSENTRY32 ()
; Add processes to Process32 () list...
If OpenLibrary (#PROCESS32LIB, "kernel32.dll")
snap = CallFunction (#PROCESS32LIB, "CreateToolhelp32Snapshot", #TH32CS_SNAPPROCESS, 0)
If snap
DefType.PROCESSENTRY32 Proc32
Proc32\dwSize = SizeOf (PROCESSENTRY32)
If CallFunction (#PROCESS32LIB, "Process32First", snap, @Proc32)
AddElement (Process32 ())
CopyMemory (@Proc32, @Process32 (), SizeOf (PROCESSENTRY32))
While CallFunction (#PROCESS32LIB, "Process32Next", snap, @Proc32)
AddElement (Process32 ())
CopyMemory (@Proc32, @Process32 (), SizeOf (PROCESSENTRY32))
Wend
EndIf
CloseHandle_ (snap)
EndIf
CloseLibrary (#PROCESS32LIB)
EndIf
; suche Prozess der gekillt werden soll
ResetList (Process32 ())
While NextElement (Process32 ())
If UCase(ProcName.s) = UCase(PeekS (@Process32 ()\szExeFile))
PID = PeekL (@Process32 ()\th32ProcessID)
EndIf
Wend
; Auflistung aller Prozesse und der PID
; Debugger ausgabe !!!
ResetList (Process32 ())
While NextElement (Process32 ())
Debug PeekS (@Process32 ()\szExeFile) + " PID " + Str(PeekL (@Process32 ()\th32ProcessID))
Wend
If PID > 0
If KillProcess (PID)
ProcedureReturn #True
EndIf
EndIf
ProcedureReturn #False
EndProcedure
;-Example Call :::
Debug Kill_Prozess_by_Name("haste_nicht.exe")
; ExecutableFormat=Windows
; EOF
Verfasst: 21.09.2005 21:03
von IcedCoffee
@ts-soft: nö habe ich nicht [ich weiss ja nicht mal was das ist]
@PAMKKKKK: THXTHX ich nehme jetzt einfach deines auch wenn mir das PBOSL besser gefallen würde aber...