» Программирование>Снимки в Делфи: выбрать модули начиная с буквы из заданного диапазона
student1234 19:57 29.05.2008
вот, нужно сделать такую прогу. точнее переделать следующую, изменить нужно чуть-чуть, но где - хз:
----------------------------------------------- type
TMainForm = class(TForm)
LVMain: TListView;
BStart: TButton;
BExit: TButton;
EFirst: TEdit;
ESecond: TEdit;
Label1: TLabel;
procedure BStartClick(Sender: TObject);
procedure BExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
firstcount:integer;
secondcount: integer;
implementation
{$R *.dfm}
procedure TMainForm.BStartClick(Sender: TObject);
var
T: TProcessEntry32; //процесс
FCurSnap:THandle;
ListItem: TListItem;
// Th: TThreadEntry32; //поток
// FCurSnapThread:THandle;
parent_id: integer;
begin
// диапазон номеров родительских процессов: от и до
firstcount:=StrToInt(Efirst.Text);
secondcount:=StrToInt(Esecond.Text);
T.dwSize := SizeOf(T);
// создать объеект - текущий процесс
FCurSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
LVMain.Items.Clear;
with lvMain do
begin
// делаем снимок процесса
if Process32First(FCurSnap,T) then
repeat
parent_id:=T.th32ParentProcessID; // номер родительского процесса
// если родительский процесс лежит в заданном диапазоне, то
//добавить его в таблицу
if (parent_id>=firstcount) and (parent_id<=secondcount)then
begin
ListItem := Items.Add;
ListItem.Caption :=T.szExeFile;
ListItem.SubItems.Add(IntToStr(T.cntThreads));
ListItem.SubItems.Add(IntToStr(T.th32ProcessID));
ListItem.SubItems.Add(IntToStr(parent_id));
end;
// до тех пор,пока не будут обработаны все процессы
until not Process32Next(FCurSnap, T);
end;
CloseHandle(FCurSnap);
end;
procedure TMainForm.BExitClick(Sender: TObject);
begin
close;
end;
end.
Помогите пожалуйста
dn2k4 21:46 29.05.2008
Что есть "модуль" и причем тут буквы?
dn2k4 21:53 29.05.2008
И почему сразу цена вопроса не указана, а?
-=leo=- 13:04 30.05.2008
Сообщение от student1234:
изменить нужно чуть-чуть, но где - хз
и самое главное что изменить - тоже хз.
p51x 17:25 30.05.2008
Сообщение от student1234:
нужно чуть-чуть, но где - хз:
угу чуть-чуть - одну процедуру переписать
Сообщение от student1234:
procedure TMainForm.BStartClick(Sender: TObject);
П.С. Теперь ты знаешь даже где...
student1234 17:28 30.05.2008
мда, это все так, что написано выше - задача вообще(((((до инемоверности.
Но, к счастью нашлась необходимая прога, так что вопрос решен.
А задача сводилась к тому что мы задаем диапазон от [а до с] прога просматривает все файлы на диске и выводит название файлов у котрых первая буква попадает в этот диапазон.
dn2k4 20:59 30.05.2008
Сообщение от student1234:
прога просматривает все файлы на диске
аааа.... вот как задача стояла...
dn2k4 21:13 30.05.2008
student1234, Не сочтите за честь, но будьте добры - выясняйте что вам таки надо перед воплем о помощи. Иначе, я опасаюсь, данное отношение к Вам, будет преследовать вас таки пожизненно
student1234 22:05 30.05.2008
да, конечно, - просто мне дали готовую задачу, которая выше, без условия что она делает или должна делать. И сказали переделать ее под другую задачу, при этом пояснив, что изменить надо совсем чуть-чуть, а сегодня преподШа дала уточнение - что переделать в более конкретной форме).
