Getting Window Title From Process Name?

[quote='The Godfather.' pid='14303059' dateline='1312482574']
Hey all,

Im kind of new to Delphi, but i am pretty awesome with VB(6, .NET, C#)

I am trying to get the title of a window, i know i need the handle, but how do i get the PID?

Once i have the PID, i think i can use this to get that windows title?

[PHP]type
PProcessID = ^TProcessID;
TProcessID = record
PID : DWORD;
Title : String[255];
end;

function GetWindowNameFromPID(PID: DWORD): String;
var
ProcessID : PProcessID;
begin
GetMem(ProcessID,SizeOf(TProcessID));
ProcessID^.PID := PID;
If Not EnumWindows(@EnumProcess,Integer(Pointer(ProcessID))) Then
begin
If MessageDlg('Could not get hook to the process handles.' + #13#10 + 'Try Again?',mtConfirmation,[mbYes,mbNo],0) = mrYes Then
begin
GetWindowNameFromPID(PID);
end;
end;
end;

function EnumProcess(Handle: HWND; lParam: Integer): BOOL; stdcall;
var
PID : Cardinal;
ProcessID : TProcessID;
Title : String;
begin
If Handle = NULL Then
begin
Result := False;
end
Else
begin
ProcessID := PProcessID(Pointer(lParam))^;
GetWindowThreadProcessID(Handle,PID);
If ProcessID.PID = lParam Then
begin
SetLength(Title,255);
SetLength(Title,GetWindowText(Handle,PChar(Title),Length(Title)));
If Title = '' Then
begin
Title := 'Empty';
end;
ProcessID.Title := Title;
end;
Result := True;
end;
end;[/PHP]

I would really appreciate any help or advice given to me.

Thank you for reading my thread.

Regards.
[/quote]

[quote='The Godfather.' pid='14304858' dateline='1312486201']
Not exactly, i need to get a windows title from the process name, somehow.

Example : GetWindowtitle('notepad.exe')

Output : Untitled - Notepad

Example : GetWindowtitle('firefox.exe')

Output : Getting Window title From Process Name? - Page 1 - Mozilla Firefox

Make sense?

---

When i try this, the messagebox is just blank:

[PHP]unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
PProcessID = ^TProcessID;
TProcessID = record
PID : DWORD;
Title : String[255];
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

function EnumProcess(Handle: HWND; lParam: Integer): BOOL; stdcall;
var
PID : Cardinal;
ProcessID : TProcessID;
Title : String;
begin
If Handle = NULL Then
begin
Result := False;
end
Else
begin
ProcessID := PProcessID(Pointer(lParam))^;
GetWindowThreadProcessID(Handle,PID);
If ProcessID.PID = lParam Then
begin
SetLength(Title,255);
SetLength(Title,GetWindowText(Handle,PChar(Title),Length(Title)));
If Title = '' Then
begin
Title := 'Empty';
end;
ProcessID.Title := Title;
end;
Result := True;
end;
end;

function GetWindowNameFromPID(PID: DWORD): String;
var
ProcessID : PProcessID;
begin
GetMem(ProcessID,SizeOf(TProcessID));
ProcessID^.PID := PID;
If Not EnumWindows(@EnumProcess,Integer(Pointer(ProcessID))) Then
begin
If MessageDlg('Could not get hook to the process handles.' + #13#10 + 'Try Again?',mtConfirmation,[mbYes,mbNo],0) = mrYes Then
begin
GetWindowNameFromPID(PID);
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(GetWindowNameFromPID(2392));
end;
end.
[/PHP]
[/quote]