Получение списка процеcсов

[legendary]

код:

var
  h,hp: THandle;
  p: PROCESSENTRY32;
  pid: integer;
begin
h:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if h=-1 then exit;
if Process32First(h,p) then   // либо здесь false
 repeat
  if p.szExeFile='notepad.exe' then break;
 until not process32next(h,p)
else exit;
if p.th32ProcessID = 0 then exit;
pid:= p.th32ProcessID;   // при трасеровке F7 даную строку прчемуто пропускает а если и не пропускает то вирубает на TerminateProcess
hp:= OpenProcess(PROCESS_TERMINATE, true, pid);	  
TerminateProcess(hp,0);  //  либо здесь вирубает как будь то снимает сама себя	
closehandle(h);
closehandle(hp);
end;

GetLastError показывает 'Runtime error 216 at 7E378944'

Почему даная процедура по событию OnClick работает отлично, а когда ее использовать в dll или Source с постоянним оновлениям то она исполняется только раз либо вобще не работает??????????

для умников: з асм знаком но только на уровне написаныя небольших прог а не откладки кода

[|{ot]

var
  h,hp: THandle;
  p: PROCESSENTRY32;
  pid: integer;
  serr: string;
begin
h:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if h=-1 then 
 begin
  IntToStr(GetLastError,serr);
  MessageBox(0,'CreateToolhelp32Snapshot',serr,0);
  exit;
 end;
if Process32First(h,p) then   // либо здесь false
 repeat
  if p.szExeFile='notepad.exe' then break;
 until not process32next(h,p)
else 
 begin
  IntToStr(GetLastError,serr);
  MessageBox(0,'Process32First',serr,0);
  exit;
 end;
if p.th32ProcessID = 0 then exit;
pid:= p.th32ProcessID;   // при трасеровке F7 даную строку прчемуто пропускает а если и не пропускает то вирубает на TerminateProcess
hp:= OpenProcess(PROCESS_TERMINATE, true, pid);	
//здесь проверка: а открылся ли процесс?
TerminateProcess(hp,0);  //  либо здесь вирубает как будь то снимает сама себя	
closehandle(h);
closehandle(hp);
end;

//Будут ошибки поправь, я на паскале не пишу.

Что выдает MessageBox?

[legendary]

program Project1;

uses
  windows,
  messages,
  SysUtils,
  tlHelp32;

{$R *.res}

procedure kill;
label 1;
var
  hp,h: THandle;
  p: PROCESSENTRY32;
  pid: integer;
  serr: string;
begin
h:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if h=-1 then
begin
  serr:= IntToStr(GetLastError);
  MessageBox(0,'CreateToolhelp32Snapshot',pchar(serr),0);
  exit;
 end;
if Process32First(h,p) then
 repeat
  if p.szExeFile='notepad.exe' then break;
 until not process32next(h,p)
else begin
  serr:= IntToStr(GetLastError);
  MessageBox(0,'CreateToolhelp32Snapshot',pchar(serr),0);
  exit;
 end;
if p.th32ProcessID = 0 then goto 1;
pid:= p.th32ProcessID;
hp:= OpenProcess(PROCESS_TERMINATE, false, pid);
TerminateProcess(hp,0);
closehandle(hp);
1: 
closehandle(h);
end;


var
  WhEvent: THandle;
begin
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent,1000);
kill;
end;
end.

все пучком до TerminateProcess(hp,0), дальше прога закрывается

Сообщение от |{ot

Что выдает MessageBox?

вроде я писал выше:
GetLastError показывает 'Runtime error 216 at 7E378944'

[Пепел Феникса]

начнем с того что GetLastError даст число а не сообщение.

трассировку юзали?

[Stilet]

if hp=0 then RaiseLastWin32Error else
 TerminateProcess(hp,0);

Какую ошибку покажет?

[legendary]

ошибки нет прога как обычно завершилась на TerminateProcess(hp,0); мне кажеться что проблема в том что компилятор почемуто все время пропускает строчку

pid:= p.th32ProcessID;

даже после компиляцыи возле ие нет синей точки

Спец для неверующых:

[Stilet]

даже после компиляцыи возле ие нет синей точки

Окружи эту функцию директивами {$o-}...{$o+} чтоб отключить для нее оптимизатор.

[legendary]

Не помогло

[Stilet]

Значит сделай все чтоб избавится от goto, которого компиляторы уже давно сторонятся, натравливая на него клыки оптимизаторов.

[legendary]

pid:= p.th32ProcessID;
  serr:= IntToStr(GetLastError);
  MessageBox(0,pchar(serr),'CreateToolhelp32Snapshot',0);
{messagebox(0,pchar(pid),'pid',mb_ok);}  // если использовать ето строку то вылазит ошибка ''Access violation at address ... in module 'user32.dll'. Read on address ...''
hp:= OpenProcess(PROCESS_TERMINATE, false, pid);

MessageBox показывает 18.