hi friends

Please help me for get ProcessID From File name

i have a process . this process hase not caption and i must get this process id .

!!sorry for my Poor English!!

Are you talking programmatically or not?, CreateToolhelp32Snapshot and associated functions Process32First/Process32Next is one way if not any process viewer will display it.

Edited December 9, 200717 yr by zako

can you write an example code?

search for JCL delphi package, its simple then.

here is working example

http://www.delphipages.com/threads/thread.cfm?ID=184341&G=184250

This get the handel of the process but it first gets its process ID from the exe file name, So after reading this you should'nt have any problems

See if this function does it for you...

Function EnumThreadProc( wnd: HWND; Var appHwnd: HWND ): LongBool; 
stdcall;
Var
  buf: array [0..128] of Char;
Begin
  Result := LongBool(1);
  if GetClassname( wnd, buf, sizeof(buf)) > 0 then
	If StrComp( buf, 'TApplication' ) = 0 Then Begin
	  appHwnd := Wnd;
	  Result := False;
	End; { If }
End;Function FindApplicationWindow( forThreadID: DWORD ): HWND;
Begin
  Result := 0;
  EnumThreadWindows( forThreadID, @EnumThreadProc, lparam(@result));
End;

Function ProcessIDFromAppname32( appname: String ): DWORD;
  { Take only the application filename, not full path! }
  Var
	snapshot: THandle;
	processEntry : TProcessEntry32;
  Begin
	Result := 0;
	appName := UpperCase( appname );
	snapshot := CreateToolhelp32Snapshot(
				  TH32CS_SNAPPROCESS,
				  0 );
	If snapshot <> 0 Then
	try
	  processEntry.dwSize := Sizeof( processEntry );
	  If Process32First( snapshot, processEntry ) Then
	  Repeat
		If Pos(appname,
			   UpperCase(ExtractFilename(
							 StrPas(processEntry.szExeFile)))) > 0
		Then Begin
		  Result:= processEntry.th32ProcessID;
		  Break;
		End; { If }
	  Until not Process32Next( snapshot, processEntry );
	finally
	  CloseHandle( snapshot );
	End; { try }
  End;

Edited December 10, 200717 yr by ante0