Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

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

 
^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 или кнопка.
Я прекрасно понимаю, что не причём, но глюк-то есть...


 
Странный Прохожий   (2002-07-31 14:39) [4]

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


 
Eugene Lachinov   (2002-07-31 14:48) [5]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.014 c
3-35138
BJValentine
2002-07-20 18:58
2002.08.12
Параметры в ADO


4-35511
Prooksius
2002-06-06 10:41
2002.08.12
RichEdit 1.0 vs RichEdit 2.0


7-35485
Новеньки в Делфи
2002-05-28 00:18
2002.08.12
Реестр


1-35285
Explorer
2002-07-31 08:26
2002.08.12
DBLookupComboBox


1-35339
Vint
2002-07-29 11:44
2002.08.12
MoveFile





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский