проверка пути

[mitiay]

Столкнулся с проблемой!Один очень хороший человек подсказал как ее решить но опыта не хватает, по этому прошу помощи как реализовать такое:
1 - после запуска проверяем папку где мы находимся, например if ExtractFilePath(ParamStr(o)) = 'c:\TargetFolder' then {ничего не делаем}:
2 - если мы в какой-то другой папке, то проверям есть ли уже скопированное приложение в TargetFolder
3 - если есть - ничего не делаем и закрываемся, если нет - копируем себя туда и запускаем

[Человек_Борща]

Троянец пишешь? Фи......

[mitiay]

Сообщение от Человек_Борща

Троянец пишешь? Фи......

Моя тема ниже с переименовыванием файла!Можно решить проблему таким образом!

[Stilet]

if ExtractFilePath(Paramstr(0))<>'c:\TargetFolder' then begin
 copyfile(Paramstr(0),'c:\TargetFolder'+ExtractFileName(Paramstr(0)));
 ShellExecute(запускаем)
end;

[mitiay]

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

if ExtractFilePath(Paramstr(0))<>'c:\TargetFolder' then begin
 copyfile(Paramstr(0),'c:\TargetFolder'+ExtractFileName(Paramstr(0)));
 ShellExecute(запускаем)
end;

[Error] Unit1.pas(30): Incompatible types: 'String' and 'PAnsiChar'

[Stilet]

А погуглить?

...,PAnsiChar('c:\TargetFolder'+ExtractFileName(Paramstr(0)))

[mitiay]

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

А погуглить?

...,PAnsiChar('c:\TargetFolder'+ExtractFileName(Paramstr(0)))

Гулил)
copyfile(PAnsiChar(Paramstr(0))),(P AnsiChar('C:\ProgramData\Microsoft. NET'+ExtractFileName(Paramstr(0)))) ;
Все равно ругается
[Error] Unit1.pas(33): '.' expected but ';' found
[Error] Unit1.pas(30): Incompatible types: 'String' and 'PAnsiChar'

[саша40]

Скобки лишние убери для начала!

[Stilet]

Гулил)

Ну а теперь включи свою внимательность и пересмотри еще раз что ты написал )

[mitiay]

Правда уже без понятья!
copyfile(PChar(Paramstr(0)), PChar('C:\ProgramData\Microsoft.NET \' + ExtractFileName(Paramstr(0))));
Вот что у меня получилось!Все равно ошибка
[Error] Unit1.pas(30): Not enough actual parameters