Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

Как определить запускаемые задачи из C: WINDOWS Tasks ?   Найти похожие ветки 

← →
Volf_555   (2006-01-21 22:54) [0]

Как определить какие задачи запускаются из папки 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;

При выполнении его программа матюкается :-)

---

← →
Digitman ©   (2006-01-23 10:31) [1]

> программа матюкается


> reg.Free


И правильно делает.
Где создание объекта reg ? И зачем он вообще здесь нужен ?

---

← →
Fay ©   (2006-01-23 10:37) [2]

>s1,s2:String;
> a,a1:Integer;

А это для чего?

---

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

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c