Windows 7

[AnKor94]

Здравствуйте Программисты.
Когда я писал шуточную программу для друзей (в общем говоря троян только с ограниченными возможностями (например открыть/закрыть привод)) я столкнулся со следующей проблемой. Программа была написана и полностью работала на Windows 7. То есть запускалась где угодно, копировалась на диск С, запускалась и прописывалась в автозагрузку. Но когда я запустил её для проверки на Windows XP то она запустилась и процесс стал размножаться посекундно, пока не перезагрузишь компьютер. Попробовал опять на "семёрке" - всё ОК!..

function ApplicationPath: string;            
begin
  Result := ExtractFilePath(ParamStr(0));
end;

procedure TForm1.FormCreate(Sender: TObject); 
if ApplicationPath<>'C:\' then begin
copyFile(pchar(paramstr(0)), 'C:\Proga.exe', true);
ShellExecute(Form1.Handle, nil, 'c:\Proga.exe', nil, nil, SW_RESTORE); 
end;
end;

Вот часть кода, отражающая копирование файла на диск С и его запуск.

В чём может быть причина такой несовместимости?

[russian-stalker]

Ну дык первая программа никогда не будет иметь ApplicationPath=C:\ и в связи в этим она будет постоянно запускать своих сородичей. Советую после ShellExecute(Form1.Handle, nil, 'c:\Proga.exe', nil, nil, SW_RESTORE); дописать Close.

[AnKor94]

Close дописал - эффект тот же.
Я думаю что эффекта нет так как программу нельзя закрыть из процедуры создания главной формы. Хотя может я ошибаюсь.

Но по прежнему есть вопрос как это исправить и почему же всё таки на семёрке всё так, как и задумано..

[russian-stalker]

Попробуйте так:

if ansiuppercase(ApplicationPath)<>ansiuppercase('C:\') then begin

Если не выйдет, то посмотрите что возвращает ApplicationPath

[AnKor94]

Пробовал ApplicationPath вставить в другую программу, положить программу в С и отобразить результат функции в едите. В едите было просто "C:/". Предложенную строку сейчас попробую.

[russian-stalker]

А лучше её вообще поменять на:

if not fileexists('C:\Proga.exe') then begin

[AnKor94]

ansiuppercase работает на ХР на 5 с плюсом, спасибо)
но что это такое, что на семёрке всё работало и без этого..?

[russian-stalker]

Это перевод букв в верхний регистр.
Т.е. семёрка возвращала путь как C:\, в то время как XP c:\. А с точки зрения строк, они разные.

[Hollander]

Мот в XP ApplicationPath был "c:\" маленькой c.

[BOBAH13]

Добавлю к флуду, странно что вообще севен разрешала без спросу копировать что-либо на диск C:\ это ведь "священная зона". Без спросу туда не зайти (ну как видно вы пишите прямо в корень)