Скачать: CL | DM;

Страничка Свойства хоста?   Найти похожие ветки 

← →
Eugenex   (2002-12-02 11:37) [0]

Привет,
вот пытаюсь получить сабж своего компа.
В ответ - молчание.((

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) [1]

Ладно, сам спросил - сам ответил:
переставили на первое место строку
ZeroMemory(@sei, sizeof(sei));
и Ок.

А теперь: как получить отдельно строку "Тип:" с этой страницы???
Ну не может быть чтобы этот ресурс не извлекался!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c