Страничка Свойства хоста? [D5, Win95/98, WinXP]
Eugenex © (2002-12-02 11:37:00)
Привет,
вот пытаюсь получить сабж своего компа.
В ответ - молчание.((
procedure TForm1.GetPror(Path:string);
var
Sei: SHELLEXECUTEINFO;
szPath: array[0..255] of Char;
Error: boolean;
begin
StrPCopy(szPath, "\\"+Path);
sei.cbSize := sizeof(sei);
sei.lpFile := szPath;
sei.lpVerb := "properties";
sei.fMask := SEE_MASK_INVOKEIDLIST;
ZeroMemory(@sei, sizeof(sei));
Error:= ShellExecuteEx(@sei);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetPror("172.16.129.11");
end;
Eugenex (2002-12-03 11:48:00) [1]
Ладно, сам спросил - сам ответил:
переставили на первое место строку
ZeroMemory(@sei, sizeof(sei));
и Ок.
А теперь: как получить отдельно строку "Тип:" с этой
страницы???
Ну не может быть чтобы этот ресурс не извлекался!!!
Наверх 
ЧАТ |
Орешник |
|
