Кто может объяснить следующее:

← →
^SANYA © (2002-07-31 11:53) [0]

Хочу получить список всех процессов.
При нажатии мышой на button1 всё работает как надо, при нажатии Enter на button1 иногда выводит одну строку с системными символами, точнее если нажать Enter сразу после F9, всё работает...а если поддождать 5сек. и нажать, то "не очень-то"...

procedure TForm1.Button1Click(Sender: TObject);
var
hSnapshot : THandle;
data: TProcessEntry32;
s:string;
i:byte;
begin
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
Process32First(hSnapshot, data);

s:="";
i:=0;
while data.szExeFile[i]<>"" do
begin
s:=s+data.szExeFile[i];
inc(i);
end;
ListBox1.Items.Add(s);

while Process32Next(hSnapshot,data) do
begin
s:="";
i:=0;
while data.szExeFile[i]<>"" do
begin
s:=s+data.szExeFile[i];
inc(i);
end;
ListBox1.Items.Add(s)
end;

end;

← →
DiamondShark © (2002-07-31 12:59) [1]

Вот это

> s:=""; > i:=0; > while data.szExeFile[i]<>"" do > begin > s:=s+data.szExeFile[i]; > inc(i); > end; > ListBox1.Items.Add(s)

заменить на ListBox1.Items.Add(data.szExeFile)

И ни при чем тут ENTER или кнопка.

Пояснения нужны?

← →
Eugene Lachinov © (2002-07-31 13:27) [2]

Data.dwSize := SizeOf(Data); // обязательно

← →
^SANYA © (2002-07-31 14:39) [3]

>И ни при чем тут ENTER или кнопка.
Я прекрасно понимаю, что не причём, но глюк-то есть...

...и ещё, пардон, :), извините, CloseHandle(hSnapshot) после его использования...

>^SANYA
А здесь не понравилось http://delphiapi.narod.ru/part03.htm ?

Кто может объяснить следующее: Найти похожие ветки