kennt Ihr ein Programm mit dem man alle offenen Fenster anzeigen lassen kann? Ich möchte bei einem Kunden einfach alle Namen und Fenstertypen aller angezeigten Fenster anzeigen lassen. Ich möchte nicht unbedingt einen Source haben, weil ich dann auch noch einen Compiler installieren müsste.

Vielen Dank

Peter

Irgendwo habe ich sowas gesehen. Im Internet finde ich eine Menge Bsp Source mit EnumerateChilds, ... ich würde gerne ein fertiges Programm haben.

Public Sub ListWindowHandlesAndClassNames()
  Dim hwnd As Long
  Dim lRet As Long
  Dim sClass As String
  hwnd = GetNextWindow(Application.hwnd, GW_HWNDFIRST)
  If hwnd <> 0 Then
    sClass = String(255, 0)
    lRet = GetClassName(hwnd, sClass, Len(sClass))
    sClass = Left(sClass, InStr(1, sClass, Chr(0), vbTextCompare) - 1)
    Debug.Print hwnd, sClass
    Do
      hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)
      If hwnd <> 0 Then
        sClass = String(255, 0)
        lRet = GetClassName(hwnd, sClass, Len(sClass))
        sClass = Left(sClass, InStr(1, sClass, Chr(0), vbTextCompare) - 1)
        Debug.Print hwnd, sClass
      Else
        Exit Do
      End If
    Loop
  End If
End Sub

Erledigt.

Hint: Würden die Regs bei jedem Post auch eine Rechenaufgabe lösen müssen, würde D beim nächsten Pisa Test bestimmt nicht so schlecht abschneiden.

Ich habe ein Programm gefunden: http://@notallowed@.com/7yf9j
Von: http://www.swissdelphicenter.ch/de/forum/index.php?topic=7978.0

Erledigt.

Hint: Würden die Regs bei jedem Post auch eine Rechenaufgabe lösen müssen, würde D beim nächsten Pisa Test bestimmt nicht so schlecht abschneiden.

Was ist das denn für eine Seite die mit @notallowed@.com ersetzt wird

Hab gerade kein Studio installiert zum kompilieren.

void FindWindows(HWND parent,HTREEITEM itemParent,CTreeCtrl& tree)
{
	char buffer[32768];
	char title[16384];

	HWND last = 0;
	while(last = FindWindowEx(parent,last,0,0))
	{
		GetClassName(last,buffer,sizeof buffer - 1);
		//GetWindowText(last,title,sizeof title - 1);
		SendMessage(last,WM_GETTEXT,sizeof title - 1,reinterpret_cast<LPARAM> (title));
		if(*title)
		{
			strcat(buffer," \"");
			strcat(buffer,title);
			strcat(buffer,"\"");
		}
		short id = GetDlgCtrlID(last);
		if(id && GetLastError() == 0)
		{
			CString temp;
			temp.Format(" [Id: %d",id);
			strcat(buffer,temp);
			if(id < 0)
			{
				temp.Format(" (%hu)",id);
				strcat(buffer,temp);
			}
			temp.Format(", %hXh]",id);
			strcat(buffer,temp);
			//strcat(buffer,"]");
		}
		RECT rect;
		if(GetWindowRect(last,&rect))
		{
			CString temp;
			temp.Format(" [x: %d,y: %d,cx: %d,cy: %d,hwnd: 0x%x]",rect.left,rect.top,rect.right - rect.left,rect.bottom - rect.top,last);
			strcat(buffer,temp);
		}

		FindWindows(last,tree.InsertItem(buffer,itemParent),tree);
	}
}

void CWindowListDlg::OnOK() 
{
	m_tree.LockWindowUpdate();
	m_tree.DeleteAllItems();
	m_tree.UnlockWindowUpdate();
	FindWindows(0,0,m_tree);
}

void CWindowListDlg::OnCancel() 
{
	// TODO: Zusätzlichen Bereinigungscode hier einfügen

	CDialog::OnCancel();
}

T I N Y U R L . C O M ist not allowed

http://tinyurl.com/7yf9j
-> WinSpy.zip

warum wollen einige immer alles tinyurln?

Damit sie 2 Girls 1 Cup verlinken können, oder alternativ You got rick rolles!