Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
EnumWindows apisi sadece çalışan uygulamalar
#1
cümleten iyi bayramlar arkadaşlar,

enumwindows apisi çalışan uygulamalrı listelemem gereken kısım mevcut. tabi buranında iyice filtrelenmesi gereken bi konu var.

Alıntı:var
  Title, ClassName: array[0..255] of char;
begin

    if (IsWindowVisible(wHandle) or IsIconic(wHandle)) and
      ((GetWindowLong(wHandle, GWL_HWNDPARENT) = 0) and

     (GetWindowLong(wHandle, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0)) then
  begin

    GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if not (Pos('cabinet', LowerCase(ClassName))<> 0 ) then
    lb.Text:= string(Title) + '<>' + string(ClassName)) + lb.Text;
  Result := True;
end;

örnekte de görüldüğü gibi.  cabinet yani klasörleri listeye ekletmemekteyim. bana lazım olan sadece çalışan uygulamaları almak, bu kodda almakta ama arkaplanda çalışan windowsun visible uygulamalarınıda almakta. bana sadece o an çalışan minimize olmuş veya arkaplanda çalışan veya görünen user programlarının listesi gerekmekte.
umarım anlatabilmiştimdir Smile şimdiden hayırlı bayramlar
Cevapla
#2
(30-08-2017, Saat: 15:36)kofmaster Adlı Kullanıcıdan Alıntı:
cümleten iyi bayramlar arkadaşlar,

enumwindows apisi çalışan uygulamalrı listelemem gereken kısım mevcut. tabi buranında iyice filtrelenmesi gereken bi konu var.

Alıntı:var
  Title, ClassName: array[0..255] of char;
begin

    if (IsWindowVisible(wHandle) or IsIconic(wHandle)) and
      ((GetWindowLong(wHandle, GWL_HWNDPARENT) = 0) and

     (GetWindowLong(wHandle, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0)) then
  begin

    GetWindowText(wHandle, Title, 255);
  GetClassName(wHandle, ClassName, 255);
  if not (Pos('cabinet', LowerCase(ClassName))<> 0 ) then
    lb.Text:= string(Title) + '<>' + string(ClassName)) + lb.Text;
  Result := True;
end;

örnekte de görüldüğü gibi.  cabinet yani klasörleri listeye ekletmemekteyim. bana lazım olan sadece çalışan uygulamaları almak, bu kodda almakta ama arkaplanda çalışan windowsun visible uygulamalarınıda almakta. bana sadece o an çalışan minimize olmuş veya arkaplanda çalışan veya görünen user programlarının listesi gerekmekte.
umarım anlatabilmiştimdir Smile şimdiden hayırlı bayramlar

Aşağıdaki konuları öğrenmelisin:

https://learn.microsoft.com/en-us/window..._toolhelp/
https://learn.microsoft.com/en-us/window...dprocessid
.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Çalışan Exe Formuna Müdahale Etmek SercanTEK 4 312 01-03-2024, Saat: 22:51
Son Yorum: SercanTEK
  Delphi ile geliştirdiğiniz uygulamalar neler? - İki Ödüllü Mr.Developer 20 12.672 01-01-2024, Saat: 22:46
Son Yorum: aegean
  InputBox a sadece rakam girme. noname101 3 597 06-06-2023, Saat: 10:21
Son Yorum: COMMANDX
  Sadece Son Kayıtları Listeleme gonulali 4 796 09-05-2023, Saat: 17:01
Son Yorum: gonulali
  Çalışan uygulama açık ise uyarı versin. Bay_Y 4 1.088 30-12-2022, Saat: 16:28
Son Yorum: Bay_Y



Konuyu Okuyanlar: 1 Ziyaretçi