🚀 go-pugleaf

thanks, it works.


"Ed Mulroy" <dont_email_me@bitbuc.ket> wrote in message
news:44353c9a$1@newsgroups.borland.com...
> The window with which the user is currently working can be found with the
> Windows API function GetForegroundWindow.  You might then use the returned
> HWND in a call to GetWindowProcessId.
>
> .  Ed
>
> > Tom wrote in message
> > news:443537a4$1@newsgroups.borland.com...
> >I use the following code to determine the processes that are running, but
> >how can I find out which application has the focus (in which application
> >user is currently working)
> >
> >  ListBox1->Items->Clear();
> >  HANDLE snapshot;
> >  PROCESSENTRY32 processinfo;
> >  processinfo.dwSize = sizeof(processinfo);
> >  snapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
> >  if (snapshot == NULL)
> >   return;
> >  bool status = Process32First(snapshot, &processinfo);
> >  while(status)
> >   {
> >   ListBox1->Items->Add(processinfo.szExeFile);
> >   status = Process32Next(snapshot, &processinfo);
> >   }
> >  Form1->Caption = IntToStr(ListBox1->Items->Count);
>
>