 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
ifrit
Master
Registrado: 12 Jun 2007Mensajes: 509Ubicación: La Habana, Cuba
|
 Publicado: Vie 28 Nov, 2008 7:26 pm Asunto: Procesos listados |
 |
|
hola foro
he querido copiar el codigo que tiene el mata procesos de los ejemplos del builder 6
builder6/examples/app/procview
y no me da error solo que no acepta el caracter de escape \t(para tabular), ni nungun otro caracter de escape
el codigoq eu tengo es asi
| Código: | //---------------------------------------------------------------------------
#include <vcl>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
static int stat=1;
int i=0;
bool __stdcall EnumProc(HWND hWnd,/*LPARAM*/long/*lp*/)
{
unsigned long* pPid; //LPDWORD
unsigned long result; //DWORD
void *hg; //HGLOBAL
unsigned long id;
if(hWnd==NULL)
return false;
hg = GlobalAlloc(GMEM_SHARE,sizeof(unsigned long));
pPid = (unsigned long *)GlobalLock(hg);
result = GetWindowThreadProcessId(hWnd,pPid);
if(result){
char title[110];
char className[95];
char totalStr[256];
GetClassName(hWnd,className,95);
GetWindowText(hWnd,title,110);
id=*pPid;
ultoa(id,totalStr,10);
strcat(totalStr,"\t");
if(title){
strcat(totalStr,title);
strcat(totalStr,"\t");
}
strcat(totalStr,className);
FormMain->ListBox1->Items->Add((AnsiString)totalStr);
}
else{
GlobalUnlock(hg);
GlobalFree(hg);
return false;
}
GlobalUnlock(hg);
GlobalFree(hg);
return true;
}
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
long lp=0;
ListBox1->Enabled=true;
ListBox1->Clear();
EnumWindows((WNDENUMPROC)EnumProc,lp);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button2Click(TObject *Sender)
{
try {
AnsiString str;
char *tmp;
int i;
i= ListBox1->ItemIndex;
if( i != -1){
AnsiString s;
tmp = new char[100];
s=ListBox1->Items->Strings[i];
strcpy(tmp,(char*)s.c_str());
tmp=strtok(tmp,"\t");
}
int id=atoi(tmp);
delete[] tmp;
HANDLE ps = OpenProcess(1,false,id);
if(ps){
if(!TerminateProcess(ps,-9)){
ShowMessage((AnsiString)"Could not end process specified!");
}
else{
ShowMessage((AnsiString)"Process successfully terminated!");
}
}
else{
ShowMessage((AnsiString)"Could not open process requested!");
}
}
catch(Exception &e)
{
ShowMessage("Please select a PID");
}
}
//--------------------------------------------------------------------------- |
necesito saber cual qes mi error y que me ayuden , algo urgente porfavor
_________________
Todos somos ignorantes, lo que no todos ignoramos lo mismo... |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Dom 30 Nov, 2008 9:02 am Asunto: |
|
|
| Fíjate en la propiedad "TabWidth" del TListBox. |
|
| Volver arriba |
|
|
ifrit
Master
Registrado: 12 Jun 2007Mensajes: 509Ubicación: La Habana, Cuba
|
| Publicado: Lun 01 Dic, 2008 2:51 pm Asunto: |
|
|
_Leo asi de sencillo , que cosa yo me imaginaba una libreria o quizas las units que el carga la proc.h y la otra (no recuerdo el nombre) pero era asi , bueno nuevamente muchas gracias y mis respetos
_________________
Todos somos ignorantes, lo que no todos ignoramos lo mismo... |
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
