[Mitiay]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

[Bargest]

Потому что это условие

Код:

1 2	if not FileExists('C:\ProgramData\Microsoft.NET\' + ExtractFileName(Paramstr(0))) then begin

не выполняется, файл уже существует.

[Mitiay]

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

Потому что это условие

Код:

не выполняется, файл уже существует.

А как сделать чтоб выполнялась?У меня проблема если не сделать такое ограничение то получается цилк.И он постоянно открывается 10000000 копий