Dynamischer Fenstertitel und Read/Write Prozsessmemory

**Sfaizst**

Guten Tag

ich habe seit einiger Zeit das Problem, das ich für ein Programm mit einem dynamischem Fenstertitel die Pid brauchen (um read- und write Prozessmemory zu verwenden).

Ich hab folgende 2 Methoden, die auch ganz gut funktionieren aber bei beiden gibts gewaltige Nachteile, die zwingend raus müssen:

1. Methode: Erkennung über den Exe-Namen (GetId):

zusammenfalten · markieren

Delphi-Quellcode:

			function GetID(Const ExeFileName: string; var ProcessId: integer): boolean;

var

  ContinueLoop: BOOL;

  FSnapshotHandle: THandle;

  FProcessEntry32: TProcessEntry32;

begin

  result := false;

  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

  while integer(ContinueLoop) <> 0 do begin

   if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)

      or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then begin

      ProcessId:= FProcessEntry32.th32ProcessID;

      result := true;

      break;

   end;

   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

  end;

  CloseHandle(FSnapshotHandle);

end;

2. Methode: Teil des Windows Fensters, der statisch ist verwenden:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  PFindWindowStruct = ^TFindWindowStruct;

  TFindWindowStruct = record

    Caption: string;

    ClassName: String;

    WindowHandle: THandle;

end;

function EnumWindowsProc(hWindow: hWnd; lParam: LongInt): boolean; stdcall;

var lpBuffer: PChar;

    WindowCaptionFound: boolean;

    ClassNameFound: boolean;

begin

  GetMem(lpBuffer, 255);

  result:=true;

  WindowCaptionFound:=false;

  ClassNameFound:=false;

  try

    if GetWindowText(hWindow, lpBuffer,255)>0 then

      if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer))>0

      then WindowCaptionFound:=true;

    if PFindWindowStruct(lParam).ClassName='' then

      ClassNameFound:=true

      else if GetClassName(hWindow, lpBuffer, 255)>0 then

        if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))>0

        then ClassNameFound:=true;

    if (WindowCaptionFound and ClassNameFound) then begin

      PFindWindowStruct(lParam).WindowHandle:=hWindow;

      result:=false;

    end;

  finally

    FreeMem(lpBuffer, sizeof(lpBuffer^));

  end;

end;

function FindAWindow(WinCaption: string; WinClassName: string): THandle;

var WindowInfo: TFindWindowStruct;

begin

  with WindowInfo do begin

    caption := WinCaption;

    className := WinClassName;

    WindowHandle := 0;

    EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));

    result := WindowHandle;

  end;

end;

Nachteile der 1. Methode: - Fast jeder Nutzer hat einen anderen Exe-Namen, der ja statisch ist
- Diese Methode nutzt im Leerlauf eine gewaltige CPU last (TTimer) und das kann ich auf langsameren
PCs gar nicht gebrauchen
- Somit kommt diese Methode eigentlich nicht mehr in Frage

Nachteile der 2. Methode: - Eigentlich gibt es keinen Nachteil , diese Methode ist sehr ressourcenschonend und bedarf keiner
Vorab definierten .exe, aber eine gewaltiges Problem hat diese Methode, hab die Methode auf mehreren
PCs getested, auf eigentlich allen XP Computern funktioniert sie, aber bei Vista erkennt das Tool
des öfteren das auszulesende Programm obwohl es nicht gestarted ist, wenn man das Programm dann
startet ändert sich dies nicht und das eigentliche Programm, was erkannt werden soll wird nicht
erkannt, ich habe jedoch
herausgefunden (durch systematisches Schließen aller Windows Prozesse), das wenn man den Prozess
explorer.exe schließt und neustarted das Tool wieder alles sauber erkennt

So ist meine Frage, woran kann das liegen (Fehler bei Methode 2) und kann man das Fixen, oder gibt es eventuell sogar eine andere Methode um auf die PID zu kommen?

Danke für eure Hilfe

MfG

Sfaizst

Dynamischer Fenstertitel und Read/Write Prozsessmemory

Dynamischer Fenstertitel und Read/Write Prozsessmemory

Forumregeln