Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Meister, Hilfe .. Finden Sie ähnliche Zweige


YUS   (2001-11-01 03:13) [0]

Meister, sagen Sie mir, wo ist der Fehler? Benötigen Sie eine Liste der Fenster und
benennt exe Dateien.

verwendet tlhelp32;
Prozedur TForm1.Button2Click (Sender: TObject);
war
Fenster: hWnd; hSn: THandle; lppe: TProcessEntry32;
buffer: Array [0..127] von char; ht, hProc: Cardinal;
beginnen
// Wir suchen den Griff des oberen Fensters
Window: = GetForegroundWindow;
wiederholen
if (Window <> Application.Handle) und
(GetWindowText (Fenster, Puffer, Größe von (Puffer)) <> 0)
dann fang an
// Suche nach Prozess ID
ht: = GetWindowThreadProcessId (Window, @ hProc);
// Machen Sie einen Schnappschuss des Prozesses
hSn: = CreateToolHelp32Snapshot (TH32CS_SNAPPROCESS, hProc);
// Liste aller Prozesse abrufen
if Process32First (hSn, lppe) then
wiederholen
// Vergleiche die ID und erhalte den Namen exe und den Pfad ???????????????
wenn lppe.th32ProcessID = ht dann
beginnen
GetWindowText (Window, buffer, sizeof (buffer));
mit ListView1.Items.Add beginnen
Beschriftung: = Puffer;
SubItems.Add (lppe.szExeFile);
end;
end;
Bis nicht Process32Next (hSn, lppe);
CloseHandle (hSn);
end;
// Suche nach dem nächsten Fenster
Window: = GetNextWindow (window, GW_HWNDNEXT);
bis Window = 0;

end;



troits   (2001-11-01 12:54) [1]

Also nebenbei:
da ist:
wenn lppe.th32ProcessID = ht dann
sollte sein
wenn lppe.th32ProcessID = hProc dann

Ja, Sie müssen nicht auf CreateToolHelp32Snapshot hProc übertragen.



YUS   (2001-11-01 16:40) [2]

troits,
danke für die richtung hat alles geklappt.
In der Tat, wenn lppe.th32ProcessID = hProc dann und ht-unnötig
in ht: = GetWindowThreadProcessId (Window, @ hProc); aber ohne CreateToolHelp32Snapshot funktioniert das nicht



troits   (2001-11-01 17:18) [3]

Das wollte ich in Funktion sagen
CreateToolHelp32Snapshot
mit dem ersten Parameter TH32CS_SNAPPROCESS
der zweite wird ignoriert.
Sie können zum Beispiel 0 setzen.



Seiten: 1 ganze Branche

Forum: "WinAPI";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.81 MB
Zeit: 0.031 c
1-22254
Leichtigkeit
2001-12-17 13:32
2002.01.08
Daten archivieren


1-22068
Andrey21
2001-12-19 10:35
2002.01.08
Mehrsprachige Anwendung


14-22322
Dicht
2001-11-03 14:10
2002.01.08
Wer wird das tun Es ist für alle nützlich.


4-22472
Eugene
2001-10-27 17:03
2002.01.08
Wie erstelle ich meinen kleinen Proxy-Server?


1-22087
Serg5
2001-12-19 15:14
2002.01.08
Leute, eine ganz einfache Frage! Link zur Prozedur in einem Wort.





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch