Çalışan Programların Exe isimleri

[salvation]

Arkadaşlar, windowsun görevi yöneticisindeki gibi çalışan programların isimlerini bulmak istiyorum;

Kod: Tümünü seç

   stinger.exe
   explorer.exe
   calc.exe

gibi. Yada sadece caption larını alsamda olur.
Aslında şöyle bi kod var;

Kod: Tümünü seç

var
    cName : Array[0..63] of Char;
    Handle: THandle;
begin
    Handle := Self.Handle;
    GetClassName(Self.Handle, cName, 64);
    ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
    While Handle > 0 do begin
        Handle := GetNextWindow(Handle, GW_HWNDNEXT);
        GetClassName(Handle, cName, 64);
        ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
    end;
end;

Ama bunun verdiği program isimleri "TPUtilWindow" yada "Shell Embedding" gibi şeyler. Bunun ne olduğu anlamak çok zor oluyor. Sadece "stinger.exe" gibi verebilecek bir yöntem biliyormusunuz?

[husonet]

Makale ve ipucu kısmında MicroChip'in bir makalesi vardı inceledinizmi?

Kolay Gelsin...

[salvation]

Evet;
http://www.delphiturkiye.com/ipobjpas.h ... in_listesi bu kodlar istediğime uygun, teşekkürler...

[MicroChip]

ahayn işte yakaladım benim ismim geçmiş
bana birşey demek kalmamış