Блокируем Ваше Приложение Из Сервера По Заданным Командам Delphi Ex7

[Lomanu4]

В данном видео описывается как можно подавать любые команды,через сервер(сервер у нас хост,на котором есть файл с командами)

 

[Nikolay]

Урок Супер, а можно ли сделать так что сделал данный запрос

Спойлер: запрос

block:=idhttp1.Get('http://tesaseron1322s.ucoz.net/admin.comand.txt');
if pos('admin.block', block)<>0 then

получил ответ то что имеется данная команда и случилось следующие
в

Спойлер: кусок кода

begin
Timer1.Enabled :=false;
form2.ShowModal;

Form2.sWebLabel2.URL:='как ссылку с файла на сервере вставить сюда?';

присвоило значение из содержания в файле на сервере
link.txt
?

 

[Lomanu4]

shellapi тебе поможет

 

[Nikolay]

shellapi тебе поможет

Не поможет я использую компонент alphaSkins и там webLabel уже готовый имеется и мне нужно присвоить значение "Url" содержимым файла "link1.txt" при этом пост запрос делаем в файл с командами, то-есть если есть команда link1 в файле "admin.commands.txt" на сервере то weblabel.url присваивает значение содержимого link1.txt .
А ты скорей всего подумал про:

Спойлер: Код

ShellExecute (Form1.Handle, nil, 'http://guardianelinks.890m.com', nil, nil, SW_RESTORE);

 

[Lomanu4]

Не поможет я использую компонент alphaSkins и там webLabel уже готовый имеется и мне нужно присвоить значение "Url" содержимым файла "link1.txt" при этом пост запрос делаем в файл с командами, то-есть если есть команда link1 в файле "admin.commands.txt" на сервере то weblabel.url присваивает значение содержимого link1.txt .
А ты скорей всего подумал про:

Спойлер: Код

ShellExecute (Form1.Handle, nil, 'http://guardianelinks.890m.com', nil, nil, SW_RESTORE);

Ну так очень легко,передавайте команды. Я как буду за компьютером сразу сделаю .

 

[Shalper]

если это ты снял) то ты чистый Валера Гладиатор 😀
а лучше все это делать напрямую с сервером 🙂