Не могу получить hwnd в Диспетчере задач

[Alex11223]

Так не сдавайтесь, ищите дальше.
https://www.google.com/search?q=syst...rol32+get+text

[tboiner]

трудно новичку во всем этом разобраться. По вашему поиску путевого не смог найти, и пробовал искать systabcontrol32 Send message. Подсажите где не там свернул

[p51x]

https://msdn.microsoft.com/en-us/library/bb762707.aspx

[tboiner]

Сообщение от p51x

https://msdn.microsoft.com/en-us/library/bb762707.aspx

спасибо большое, но мне не понятно

[Alex11223]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[tboiner]

Сообщение от Alex11223

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Спасибо за такую активную помощь, но мне не понятно вусе равно, вообще. Представление имею, но не понимаю.

Хотя козалось бы легкая задача, определить открыта ли вкладка в диспетчере задач.

[p51x]

Что вы не понимаете? Как вызвать функцию и проверить, что она вернула?

[Alex11223]

Вы б лучше рассказали зачем вам вообще такое извращение нужно.

[Filka]

Код без проверок (на nil и пр.)...

uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
  dwProcessID, dwBytes: DWORD;
  hProcess: THandle;
  Buffer: array [0..MAX_PATH - 1] of Char;
  pBuffer: PChar;
  Item: TTCItem;
  pItem: PTCItem;
  SelectedItem: Integer;
begin
  Wnd := FindWindow(nil, 'Диспетчер задач Windows');
  if Wnd <> 0 then
  begin
    Wnd := FindWindowEx(Wnd, 0, 'SysTabControl32', nil);
    if Wnd <> 0 then
    begin
      GetWindowThreadProcessId(Wnd, @dwProcessID);

      hProcess := OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE or PROCESS_VM_OPERATION, False, dwProcessID);
      if hProcess <> 0 then
      begin
        pItem := VirtualAllocEx(hProcess, nil, SizeOf(TTCItem), MEM_COMMIT, PAGE_READWRITE);
        pBuffer := VirtualAllocEx(hProcess, nil, MAX_PATH, MEM_COMMIT, PAGE_READWRITE);

        ZeroMemory(@Item, SizeOf(TTCItem));
        Item.mask := TCIF_TEXT;
        Item.pszText := pBuffer;
        Item.cchTextMax := MAX_PATH;
        WriteProcessMemory(hProcess, pItem, @Item, SizeOf(TTCItem), dwBytes);

        SelectedItem := SendMessage(Wnd, TCM_GETCURSEL, 0, 0);
        if SendMessage(Wnd, TCM_GETITEM, SelectedItem, LPARAM(pItem)) > 0 then
        begin
          ReadProcessMemory(hProcess, pBuffer, @Buffer[0], MAX_PATH, dwBytes);
          ShowMessage(Buffer);
        end;

        VirtualFreeEx(hProcess, pBuffer, 0, MEM_RELEASE);
        VirtualFreeEx(hProcess, pItem, 0, MEM_RELEASE);
        CloseHandle(hProcess);
      end;  
    end;
  end;
end;

[tboiner]

Сообщение от Alex11223

Вы б лучше рассказали зачем вам вообще такое извращение нужно.

Задолжность, преподаватель сказал, найти вкладку у диспетчера, вот мучаюсь.

Сообщение от Filka

Код без проверок (на nil и пр.)...

uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
  dwProcessID, dwBytes: DWORD;
  hProcess: THandle;
  Buffer: array [0..MAX_PATH - 1] of Char;
  pBuffer: PChar;
  Item: TTCItem;
  pItem: PTCItem;
  SelectedItem: Integer;
begin
  Wnd := FindWindow('TaskManagerWindow', nil);
  if Wnd <> 0 then
  begin
    Wnd := FindWindowEx(Wnd, 0, 'SysTabControl32', nil);
    if Wnd <> 0 then
    begin
      GetWindowThreadProcessId(Wnd, @dwProcessID);

      hProcess := OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE or PROCESS_VM_OPERATION, False, dwProcessID);
      if hProcess <> 0 then
      begin
        pItem := VirtualAllocEx(hProcess, nil, SizeOf(TTCItem), MEM_COMMIT, PAGE_READWRITE);
        pBuffer := VirtualAllocEx(hProcess, nil, MAX_PATH, MEM_COMMIT, PAGE_READWRITE);

        ZeroMemory(@Item, SizeOf(TTCItem));
        Item.mask := TCIF_TEXT;
        Item.pszText := pBuffer;
        Item.cchTextMax := MAX_PATH;
        WriteProcessMemory(hProcess, pItem, @Item, SizeOf(TTCItem), dwBytes);

        SelectedItem := SendMessage(Wnd, TCM_GETCURSEL, 0, 0);
        if SendMessage(Wnd, TCM_GETITEM, SelectedItem, LPARAM(pItem)) > 0 then
        begin
          ReadProcessMemory(hProcess, pBuffer, @Buffer[0], MAX_PATH, dwBytes);
          ShowMessage(Buffer);
        end;

        VirtualFreeEx(hProcess, pBuffer, 0, MEM_RELEASE);
        VirtualFreeEx(hProcess, pItem, 0, MEM_RELEASE);
        CloseHandle(hProcess);
      end;  
    end;
  end;
end;

Спасибо Большое, но к сожалению не работает. ни на одной вкладке.