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

[W0LF]

Справку почитать или, хотя бы, погуглить, не? Вы пропустили третий параметр.

copyfile(PAnsiChar(Paramstr(0)), PAnsiChar('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))), False);

P.S.: И да, читать сообщения ошибок очень полезно. ОЧЕНЬ!!!

[mitiay]

Все отлично!Но почемуто копия получается битая!Моя программа посылает обычный гет запрос!Но при запуске копии она этого не делает в чем проблема?
вот код

begin
if not FileExists('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))) then
begin
copyfile(PAnsiChar(Paramstr(0)), PAnsiChar('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))), False);
ShellExecute(Handle, nil, PAnsiChar('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))), nil, nil, SW_SHOW);
 sl:= TStringList.Create;

    sl.Text:= idhttp1.Get('http://111111111.txt');

    for i:= 0 to sl.Count-1 {??? ??????? ????, ????. 5} do
   (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
 sl.Free;

[Stilet]

Но при запуске копии она этого не делает

Правильно )
Смотри внимательно:

if not FileExists... begin
 idhttp1.Get('http://111111111.txt');
...
end;

Дошло?

[mitiay]

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

Правильно )
Смотри внимательно:

if not FileExists... begin
 idhttp1.Get('http://111111111.txt');
...
end;

Дошло?

Ну примерно понимаю!То есть надо убрать not? или добавить true?

[Stilet]

То есть надо убрать not? или добавить true?

Тоесть всетки не понимаешь даже примерно )
У тебя два выхода:
1) Забудь о этой задаче и изучи базовые основы заново.
2) Экспериментируй. Метод тыка штука сильная.

[mitiay]

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

Тоесть всетки не понимаешь даже примерно )
У тебя два выхода:
1) Забудь о этой задаче и изучи базовые основы заново.
2) Экспериментируй. Метод тыка штука сильная.

2 Вариант улыбнул))))Помоги пожалуйста!осталось только это до делать и продукт готов!Буду примного балагодарен!

[Stilet]

Мда... студентота активировалась. Пора писать школьные вирусы, которые будут админу ВУЗа приносить проблемы в виде черти-чего...
Лучше бы паттерны проектирования изучил вместо того чтоб писать всякую бесполезную всячину.

[mitiay]

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

Мда... студентота активировалась. Пора писать школьные вирусы, которые будут админу ВУЗа приносить проблемы в виде черти-чего...
Лучше бы паттерны проектирования изучил вместо того чтоб писать всякую бесполезную всячину.

Да по чему все говорят вирус?!!!!Не вирус это!Это делается для статистики программы которая посылает гдет запрос который берет данные с фтп сервера.

[Stilet]

И для этого ее нужно ложить в папку с дотнетом?
О горе, не морочь голову.
Корче - убери not и будет тебе счастье.

[mitiay]

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

И для этого ее нужно ложить в папку с дотнетом?
О горе, не морочь голову.
Корче - убери not и будет тебе счастье.

Убрал not и получается опять беспокнечный цикл,окрывается 100000 копий