Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ShellExecute или WinExec ? & TNMHTTP [D5, Win95/98]

Gerda © (2003-03-31 15:08:00)
Дарова Мастера.
Вот такой вопрос: как загрузить страницу http://devilscity.combats.ru/logs.pl?log=1049106212(к примеру) в броузер ??
Теперь другой: гружу с помощью ТNMHTTP1 страницу http://www.combats.ru/inf.pl?login=1044027009или любую другую, а в ответ получаю: у вас типа доступа нету :(, мож там (в компоненте) в свойствах заголовка покапаться чета изменить ??
Заранее благодарен.

Gerda (2003-03-31 16:45:00) [1]
>> Intell
ShellExecute(0, "open", " http://www.pl-computers.ru", "", "", SW_Show); То что надо, спасибо
>> Андрей Сенченко
И это тоже :)
>> Всем
А как же біть с TNMHTTP ??

Андрей Сенченко (2003-03-31 15:38:00) [2]
Вот так и пишутся анализаторы к КОмбатсу :)

Intell (2003-03-31 15:32:00) [3]
16 и 32 разрядный вызов (работает на разных операционных системах)

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar("notepad.exe"),sw_shownormal);
end;

Есть другой способ - 32 разрядный (работает только под Windows, но быстрее предыдущего)

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar("notepad.exe"),nil,nil,SW_ShowNormal);
end;

Ещё один способ - открывает не только *.exe файлы, как предыдущие, а открывает по маске

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, "open", "C:\мои документы\Doc1.doc", nil, nil, sw_ShowNormal);
end;

Другой способ - открывает ссылки в инет:

добавляем модуль ShellAPI в USES

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", " http://www.pl-computers.ru", "", "", SW_Show);
end;

открывает ссылки Email:
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", "mailto:sergein@nojabrsk.ru", "", "", SW_Show);
end;

Другой способ: (Не забудьте добавить Shellapi в Uses)

function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteFile("maker.exe","text_file","c:\maker", SW_SHOWNORMAL);
end;

Посмотри, может хоть что-то подойдёт.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »