![]() |
|
|
#1
|
|||
|
|||
|
Ребят такая проблема.В общем юзер пишет в edit откуда скачать exe файл
например http://ya.ru/1.exe Раньше его открытие производилось через ShellExecute(Handle, 'open','C:\1.exe', nil, nil, SW_SHOWNORMAL) То есть было конкретно заданное имя!А как быть щас допустим если его назвали 2.exe то уже не откроет |
|
#2
|
||||
|
||||
|
Цитата:
|
|
#3
|
||||
|
||||
|
Интересная ситуация, это что ж, выходит обман пользователя - он думает что скачивает из сети, а в результате файл локальный оказывается, оригинально
![]() Как вариант Код:
var
i: integer;
begin
for i := Length(Edit1.Text) downto 1 do
if Edit1.Text[i] = '/' then
begin
ShellExecute(Handle, 'open',
'C:\' + Copy(Edit1.Text, i+1, Length(Edit1.Text)),
nil, nil, SW_SHOWNORMAL);
Exit;
end;
end; |