Удоляет не в той Директории

[Volkogriz]

Пограмма нехочит удолять втой директории кудауказан путь! ((
Указываеш путь, к примеру :C:\Documents and Settings\ХХХ\Local Settings\Temp
Она там ишит файлы и удоляет только ехе льки но, в своей директории где находиться прога ,
если она нашла тотчно такойже файл что в папке темп ана его моментально удоляет.((
Что не так подскажите пожалуйсто!

PHP код:

{$I-}
{$D-}
program Kill;

uses
  sysutils,
  windows,
  registry,
  classes,
  Masks,
  Controls,
  PsAPI,
  Tlhelp32,
  Forms;

var ExeName : pchar; Reg : TRegistry;

function GetLastErrorString: string;
var
  lz: Cardinal;
  lErr: array[0..512] of Char;
begin
  lz := GetLastError;
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, lErr, 512, nil);
  Result := string(lErr);
end;
//==================================================================
function GetProcessID(const AProcessName: string): DWord;
var
  lSnapHandle: THandle;
  lProcStruct: PROCESSENTRY32;
  lProcessName, lSnapProcessName: string;
  lOSVerInfo: TOSVersionInfo;
begin
  Result := INVALID_HANDLE_VALUE;
  lSnapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if lSnapHandle = INVALID_HANDLE_VALUE then
    Exit;
  lProcStruct.dwSize := SizeOf(PROCESSENTRY32);
  lOSVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(lOSVerInfo);
  case lOSVerInfo.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS: lProcessName := AProcessName;
    VER_PLATFORM_WIN32_NT: lProcessName := ExtractFileName(AProcessName);
  end;
  if Process32First(lSnapHandle, lProcStruct) then
  begin
    try
      repeat
        lSnapProcessName := lProcStruct.szExeFile;
        if AnsiUpperCase(lSnapProcessName) = AnsiUpperCase(lProcessName) then
        begin
          Result := lProcStruct.th32ProcessID;
          Break;
        end;
      until not Process32Next(lSnapHandle, lProcStruct);
    finally
      CloseHandle(lSnapHandle);
    end;
  end;
end;
//==================================================================
function KillProcess(const AProcessName: string): Boolean;
var
  lPID, lCurrentProcPID: DWord;
  lProcHandle: DWord;
begin
  Result := False;
  try
    lCurrentProcPID := GetCurrentProcessId;
    lPID := GetProcessID(AProcessName);
    if (lPID <> INVALID_HANDLE_VALUE) and (lCurrentProcPID <> lPID) then
    begin
      lProcHandle := OpenProcess(PROCESS_TERMINATE, False, lPID);
      Windows.TerminateProcess(lProcHandle, 0);
      WaitForSingleObject(lProcHandle, Infinite);
      CloseHandle(lProcHandle);
      Result := True;
    end;
  except
    raise EExternalException.Create(GetLastErrorString);
  end;
end;

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var Rec:TSearchRec; TMP:TStrings;ls: String;i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);
       Result.Add(Path);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
         Result.Add(Path);
       end;
    end;
if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
 SysUtils.FindClose(Rec);
end;


var FilesDel:TStrings;t,c,i,Kill:integer; Path : string;   FilesKill:TStrings;
sr:TSearchRec;
    Result:word;
Msg: TMsg;
begin
Reg:=TRegistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
Reg.ValueExists('KillWin') ;
GetMem(ExeName,259);
GetModuleFileName(0,ExeName,259);
Reg.LazyWrite := True;
Reg.WriteString('KillWin', ExeName);
FreeMem(ExeName,259);
Reg.CloseKey;
Reg.free;
FilesDel:= TStringList.Create;
FilesDel.Assign(GetFiles('C:\Documents and Settings\ххх\Local Settings\Temp'));
begin
for Kill:=0 to FilesDel.count-1 do
KillProcess(FilesDel.Strings[Kill]);
while GetMessage(Msg, HInstance, 0, 0) do   
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
for t:=0 to FilesDel.count-1 do
SetFileAttributes (PChar(FilesDel.Strings[t]),0);
for i:=0 to FilesDel.count-1 do
deletefile(PChar(FilesDel.Strings[i]));
for i:=0 to FilesDel.count-1 do
deletefile(PChar(FilesDel.Strings[i]));
for c:=0 to FilesDel.count-1 do
RemoveDirectory(PChar(FilesDel.Strings[C]));
end;

end . 


С уважением,
Volkogriz!!!

[mihali4]

У-у-у, как сложно...
Вот вам пример из небезызвестного, надеюсь, DFaq:

Прочитать содержимое папки

procedure LookDir(StartDir, Mask : String; List : TStringList);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then
begin
List.Add(StartDir+SearchRec.Name);
end
else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then LookDir(StartDir + SearchRec.Name + '', Mask, List);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Используется так:

var
lst : TStringList;
begin
lst := TStringList.Create;
LookDir('C:Мои документы', '*.*', lst);
lst.SaveToFile('C:List.txt');
lst.Free;
end;

Вам осталось только сделать Delete для каждого найденного вместо занесения в StringList...

[Volkogriz]

Доброго времини суток!
mihali4
Огромное спсибо!
я попытаюсь обяснб чуть глубже!
В программе Установлен путь к директории 'C:\Documents and Settings\ххх\Local Settings\Temp'
Программа при запуске сканирует эту папку на файлы, убивает процессы и удаляет только exe файлы!
Но при попытке скопировать файл с таким же именем в директорию программы как программа тудже его удаляет!
А подразумевалось, что программа должна в указанной директории убить запущенные процессы и удалить все файлы и директории с поддиректориями, что она впринципе и делает, но файлы и директории с поддиректориями она начинает удалять только там, где находится сама прогамма!
И ещё, если в програмее указать путь extractfilepath(application.exename ),
То она работает правильно!!! )))
С уважением,
Volkogriz!