Lista de procesos de mi ordenador
uuf pued llevo dia y he buscado pero cuando he estado cerca pues retorno al inicio, mi problema es que kisiera hacer una lista de procesos en mi programa.
bueno gracias por adelantado :) |
|
Aquí también tratamos del tema, pero en C. Puede que te sea de utilidad.
http://www.clubdelphi.com/foros/showthread.php?t=37988 |
ok, pero necesito ayuda en esto ahora
tengo este codigo, que le traduje desde delphi a builder, pero ahora me da un error al compilar con esta lines si pudieran ayudarme una ves mas
gracias.. ;) void GetMemoryProcess() { HANDLE foto; tagPROCESSENTRY32 datos; int r=1; datos.dwSize = sizeof(tagPROCESSENTRY32); foto = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); while (Process32Next(foto, &datos)!=0) { //en esta linea del listview me da un error Form1->ListView1->Items->Add(IntToStr(datos.th32ProcessID)); Form1->ListView1->Items->Item[r]->SubItems->Add(datos.szExeFile); r++; } CloseHandle(foto); } |
:D Lo que seria estupendo es que nos dijeras que error te da al compilar
|
bueno estu mirando y cambien lo que tenia.
ya no me da el error pero no me sale los nombre de los procesos while (Process32Next(foto, &datos)!=0) { Form1->ListView1->AddItem(IntToStr(datos.th32ProcessID),NULL); Form1->ListView1->Items->Item[r]->SubItems->Add(".EXE"); r++; } |
Hola:
Si solo necesitas listar los procesos sin la ruta puedes hacerlo con el siguiente código, la ventaja es que funciona en todas las versiones de Windows con cualquier versión de C++Builder. Para probarlo solo necesitas añadir un TListBox (ListBox1) y lo siguiente en el constructor del form: Código:
// Añadimos: #include<Tlhelp32.h> Código:
//--- Cargamos dinamicamente la libreria "psapi.dll" Saludos Cordiales |
gracias a todos por la ayuda
bueno aki dejo lo que finalmente obtuve ademas busque otros hilos en este sitio que me sirvieron para mi final.
hay que poner un listview y adicionarle dos columnas ademas en viewstyle ponele vsreport bueno ojala le sirva a alguien :cool: void GetMemoryProcess()//Para listar los procesos { HANDLE foto; tagPROCESSENTRY32 datos; int Indice=0; datos.dwSize = sizeof(tagPROCESSENTRY32); foto = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); while (Process32Next(foto, &datos)!=0) { Form1->ListView1->Items->Add()->Caption=IntToStr(datos.th32ProcessID); Form1->ListView1->Items->Item[Indice]->SubItems->Add(datos.szExeFile); Indice++; } CloseHandle(foto); } |
La franja horaria es GMT +2. Ahora son las 07:54:01. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi