Getting process id of a window that name changes

[Antharaz]

Well...

In this window the name of window change becouse show your FPS... só, each second it change and i'm having dificulty about getting process id...

What i try:

procedure TForm1.Button1Click(Sender: TObject);
var
  H,PH:THandle;
  ProcessID, THandleID, R : DWORD;
begin
  H := FindWindow(nil,Pchar('Big Boss'));
  THandleID := GetWindowThreadProcessId(H, @ProcessID);
  ProcessID := OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
  button1.caption :=  inttostr(ProcessID);
end;

The button1.caption allways be 0...

An example of the window text:

Big Boss [FPS:195]

After 1 sec:

Big Boss [FPS:103]

[Blaster_89]

Get the class name instead, it won't change

[Antharaz]

when i list all process, this is the class that return: "could not be fetched;"

I use this source to list all processes:

function EnumProcess(hHwnd: HWND; lParam : integer): boolean; stdcall;
var
  pPid : DWORD;
  title, ClassName : string;
begin
  //if the returned value in null the
  //callback has failed, so set to false and exit.
  if (hHwnd=NULL) then
  begin
    result := false;
  end
  else
  begin
    //additional functions to get more 
    //information about a process.
    //get the Process Identification number.
    GetWindowThreadProcessId(hHwnd,pPid);
    //set a memory area to receive 
    //the process class name
    SetLength(ClassName, 255);
    //get the class name and reset the 
    //memory area to the size of the name
    SetLength(ClassName, 
              GetClassName(hHwnd,
                           PChar(className), 
                           Length(className)));
    SetLength(title, 255);
    //get the process title; usually displayed 
    //on the top bar in visible process
    SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
    //Display the process information
    //by adding it to a list box
    form1.ProcessListBox.Items.Add
      ('Class Name = ' + className +
       '; Title = ' + title + 
       '; HWND = ' + IntToStr(hHwnd) +
       '; Pid = ' + IntToStr(pPid));
    Result := true;
  end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumProcess,0)
end;

I have tryed including an if before add tolistbox, like this:

if lowercase(copy(title,1,8)) = 'big boss' then
begin
    //Display only the process information of Big Boss
    //by adding it to a list box
    form1.ProcessListBox.Items.Add
      ('Class Name = ' + className +
       '; Title = ' + title +
       '; HWND = ' + IntToStr(hHwnd) +
       '; Pid = ' + IntToStr(pPid));
    Result := true;
end;

But nothing is returned to listbox D:

[Blaster_89]

Are you sure the class name is "Big Boss"? Also, some system processes (at least on WinXP 32-bit) doesn't return class names

[Antharaz]

the name that appear when i list all processes is Big Boss [FPS 169]...

[volf ram]

How about launching your application with Olly? If you set up a breakpoint at RegisterClassA (or something similar like RegisterClassExW etc), you can see what actually gets passed as the class name.
Also, it's not impossible that "could not be fetched;" is the class name after all, just to confuse you.

[Dark Pallys]

Use this program to find the class name..

Open it up, then press Ctrl+F and a little window will appear.

On that window you will see the icon of a little window with a "target" symbol over it. Click and drag that symbol on top of the window you wish to see the class name, and it will display the class name there.

After you've selected a window with that target thing, make sure it is selected to "Properties" under the "Show" area, and press OK.

A new window will appear called Property Inspector, click on the tab "Class", and there you can view, select and copy the class name of that process.

It's very useful when people are sneaky and have the class name as blank spaces, since you can highlight the text there and copy it.

[Antharaz]

@volf ram

I found "_jv_registerclasses" but i didn't found the class name...

@Dark Pallys

The result:



Maybe the class name is could not be fetched how volf ram said, just to confuse me...



MY PROBLEM WILL BE SOLVED IF SOMEONE TELL ME HOW I CAN TAKE THE PID OF THE CURRENT WINDOW.

I've tryed GetCurrentProcessID with a global hotkey, but only get PID of project1.

[Dark Pallys]

@volf ram

I found "_jv_registerclasses" but i didn't found the class name...

@Dark Pallys

The result:



Maybe the class name is could not be fetched how volf ram said, just to confuse me...



MY PROBLEM WILL BE SOLVED IF SOMEONE TELL ME HOW I CAN TAKE THE PID OF THE CURRENT WINDOW.

I've tryed GetCurrentProcessID with a global hotkey, but only get PID of project1.

Do as I said, click OK on that window and it will show you a property window, where you can copy the exact class name from a textbox

[Antharaz]

Hmm...

Class name in edit: "could not be fetched"

So, how volf ram said, this is the class name...

TY so much Dark Pallys... now i'll search how to get a process id by class name :B


EDIT

I search but not found how get a processid by class name.