Görev Yöneticisinden görev ismini nasıl alırız?

[Sencer]

arkdaşlar görev yöneticisinde xx.exe çalışma sırasında görev çubuğunda çıkan ismi nasıl alabiliriz

[White Rose]

uses tlhelp32

Kod: Tümünü seç

var
     devam: BOOL;
     fyakhandle: THandle;
     islem32   : TProcessEntry32;
begin
     s.Clear;
     fyakhandle    :=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
     islem32.dwSize:=Sizeof(islem32);
     devam         :=Process32First(fyakhandle,islem32);
     while integer(devam)<>0 do begin
         //Listeye çalışan exe dosyaları ekleniyor.
         S.Items.Add(islem32.szExeFile);
         devam:=Process32Next(fyakhandle,islem32);
     end;
     CloseHandle(fyakhandle);
end;

[Sencer]

açıklama yapabilirmisin anlayamadım

[Lost Soul]

açıklama yapabilirmisin anlayamadım

uses kısmına tlhelp32 ekle;
bi tane listbox ekle ve ismini s yap
bi tane de button ekle ve onclik olayına arkadaşın yazdığı kodu yaz.
koddan Anladığım bu

[mrmarman]

@White Rose satır arasında yazmış aslında ama yine de bir cümle harici açıklama eklese daha anlaşılır olurmuş. Gönderdiği kod "Görev Yöneticisindeki" çalışan dosyaların dosya isim listesini getirir.

- Sizin istediğiniz ise başlıkları. Bunları çalışan kendi programın Handle nosundan başlayan bir döngü ile aktif pencereleri sayarak bulabilirsin. Yani aşağıdaki kod sana yardımcı olacaktır.

Kod: Tümünü seç

Procedure CalisanListesi(Hand : HWnd; Liste:TStrings);
var
  Title,
  ClassName : array[0..255] of char;
begin
  while Hand > 0 do
  begin
    if IsWindowVisible(Hand) then
    begin
      GetWindowText(Hand, Title    ,255);
      GetClassName (Hand, ClassName,255);
      Liste.Add( Format('%8d : %s ( %s )', [Hand, String(Title), String(ClassName)] ) );
    end;
    Hand:=GetnextWindow(Hand,GW_HWNDNEXT);
  end; // While
end;

// Çalışması

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  CalisanListesi( Application.Handle, ListBox1.Items );
end;

[Sencer]

beyler sağolun kodlar doğru ama ben dışarda bi program çalışıtrıyoum xx.exe diye bu xx.exe nin görev çubuğundaki ismini alıp ona harf yazdırcam anlamışsınızdır yapmak istediğimi

[Sencer]

arkdaşlar saolun çözdüm sorunumu

[ikutluay]

arkdaşlar saolun çözdüm sorunumu

nasıl çözdüğünüzü yazmak bir forum etiğidir. böylece ilerde buna ihityacı olanlar tekrar konu çamdan bulabilirler. lütfen bu konuya dikkat ediniz. burası bilgiye erişim bir bir kaynak olsun ve bilgi hep artsın

[Lost Soul]

@White Rose satır arasında yazmış aslında ama yine de bir cümle harici açıklama eklese daha anlaşılır olurmuş. Gönderdiği kod "Görev Yöneticisindeki" çalışan dosyaların dosya isim listesini getirir.

- Sizin istediğiniz ise başlıkları. Bunları çalışan kendi programın Handle nosundan başlayan bir döngü ile aktif pencereleri sayarak bulabilirsin. Yani aşağıdaki kod sana yardımcı olacaktır.

Kod: Tümünü seç

Procedure CalisanListesi(Hand : HWnd; Liste:TStrings);
var
  Title,
  ClassName : array[0..255] of char;
begin
  while Hand > 0 do
  begin
    if IsWindowVisible(Hand) then
    begin
      GetWindowText(Hand, Title    ,255);
      GetClassName (Hand, ClassName,255);
      Liste.Add( Format('%8d : %s ( %s )', [Hand, String(Title), String(ClassName)] ) );
    end;
    Hand:=GetnextWindow(Hand,GW_HWNDNEXT);
  end; // While
end;

// Çalışması

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  CalisanListesi( Application.Handle, ListBox1.Items );
end;

Kod: Tümünü seç

 if IsWindowVisible(Hand) then

ibaresini koddan çıkarıca ortaya ilginç şeyler çıkıyor