Prozessname: Einfacheren Name des Prozesses erfassen?

[Tombi]

Da die Pbosl ja nicht will....

Habe momentan folgenden Code:

Code: Alles auswählen

Procedure.s GetWindowName(hwnd)
    Buffer.s = Space(1000)
    GetWindowText_(hwnd,@Buffer,1000)
    ProcedureReturn Buffer
EndProcedure

Funktioniert prima:

Code: Alles auswählen

Debug "FENSTER: "+GetWindowName(GetForegroundWindow_())

Nun ist mir aber immer aufgefallen, das der Name des Programmtitels ausgegeben wird.
Hier gerade würde es heißen bei Firefox:
"PureBoard Post a new topic - Mozilla Firefox"

Nun fände ich es aber schöner, wenn ich eine andere Ausgabe bekomme.
Hier wäre es schön, nur "Mozilla Firefox" oder "Firefox" zu erfassen.

Da kam mir die Idee, statt dem Programmtitel den Dateinamen zu erfassen.
Hier sollte es dann "firefox.exe" sein.

Nun meine Frage: Wie erfasse ich diesen Dateinamen eines Prozesses ohne Pbosl? ^^

MFG,
Tombi

[RSBasic]

@Tombi
Du könntest den Pfad eines Fensters mit diesem Code ermitteln: http://www.rsbasic.de/index.php?option= ... &Itemid=59
Anschließend brauchst du nur den Namen der Datei mit GetFilePart() ermitteln.

[Tombi]

Funktioniert prima.
Danke dir

[edel]

"Im nächsten Kapitel lesen Sie dann, wie Sie Speicherlecks erfolgreich verhindern können."

@RSBasic
Mal im Ernst, du solltest deine Schnipsel besser pruefen. Anfaenger wie
Tombi, kopieren den Code und wundern sich dann, wenn ihre Programme ueber 1GB Ram brauchen.

[Tombi]

"Im nächsten Kapitel lesen Sie dann, wie Sie Speicherlecks erfolgreich verhindern können."

@RSBasic
Mal im Ernst, du solltest deine Schnipsel besser pruefen. Anfaenger wie
Tombi, kopieren den Code und wundern sich dann, wenn ihre Programme ueber 1GB Ram brauchen.

Schön das du es gerade erwähnst.
Hab mich gerade schon gewundert, warum die Auslagerungsdatei 4 GB anzeigt, statt nur ein paar MB

Jemand einen besseren Vorschlag? ^^

[Jilocasin]

Der Vorschlag ist gut, man müsste ihn nur auch "im Sinne des Erfinders" benutzen.

Ich hoffe mal das ist so etwas sicherer:

Code: Alles auswählen

Procedure.s GetProcessFilenameByWindowHandle(*hWnd)
  Protected ModuleEntry.MODULEENTRY32
    ModuleEntry\dwSize = SizeOf(MODULEENTRY32)
  
  Protected PID.l ; LPDWORD = pointer zu 32-bit unsigned integer, deshalb ".l" (Also bitte nicht stänkern von wegen ".i")
  Protected Result.s = ""
  
  GetWindowThreadProcessId_(*hWnd, @PID)
  If PID
    *hSnapshot = CreateToolhelp32Snapshot_(#TH32CS_SNAPMODULE, PID)
    If *hSnapshot <> #INVALID_HANDLE_VALUE
      If Module32First_(*hSnapshot, @ModuleEntry) = #True
        Result.s = PeekS(@ModuleEntry\szExePath)
      EndIf
      
      CloseHandle_(*hSnapshot)
    EndIf
  EndIf
  
  ProcedureReturn Result
EndProcedure

Debug GetProcessFilenameByWindowHandle(GetForegroundWindow_())
;Debug GetProcessFilenameByWindowHandle(FindWindow_(0, "Firefox ... oder irgendwas"))

Das anschließende GetFilePart() könnte man sich ersparen, wenn man statt "szExePath" "szModule" nimmt, das (soweit ich weiß) gleich nur den Dateinamen beinhaltet.

[Tombi]

Funktioniert prima