| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить запускаемые задачи из C:\WINDOWS\Tasks ? [D6, WinXP]
Volf_555 © (2006-01-21 22:54:00)Как определить какие задачи запускаются из папки C:\WINDOWS\Tasks ?
Пробывал для этого использовать следующий код:
procedure TForm1.GetStartUpTasks;
Var
SearchRec:TSearchRec;
reg:TRegistry;
s1,s2:String;
a,a1:Integer;
begin
If FindFirst(GetEnvironmentVariable('WINDIR')+'\Tasks\*.job', faAnyFile, SearchRec)=0 then
repeat
{Вот здесь мы можем делать с найденным файлом что угодно
SearchRec.name - имя файла
ExpandFileName(SearchRec.name) - имя файла с полным путем}
with ListView1.Items.Add do
begin
Caption:=ExtractFileName(SearchRec.Name);
SubItems.Add(GetEnvironmentVariable('WINDIR')+'\'+SearchRec.Name);
SubItems.Add(GetEnvironmentVariable('WINDIR')+'\'+SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
reg.Free;
end;
При выполнении его программа матюкается :-)
Fay (2006-01-23 10:37:00) [1]>s1,s2:String;
> a,a1:Integer;
А это для чего?
Digitman (2006-01-23 10:31:00) [2]
> программа матюкается
> reg.Free
И правильно делает.
Где создание объекта reg ? И зачем он вообще здесь нужен ?
| |
