Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.30;
Скачать: 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 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
8-96884
Ya Mama
2002-10-14 19:03
2003.01.30
Playing MP3 using MediaPlayer


1-96752
neodiX
2003-01-21 19:06
2003.01.30
Перерисовка формы, когда она выходит за границы экрана


3-96602
Chubais
2003-01-13 14:47
2003.01.30
Перепутываются строки в таблицах


14-97012
blackman
2003-01-13 16:41
2003.01.30
Интересно, это в честь дня рождения ?


3-96558
NaPoleOn_IV
2003-01-11 21:54
2003.01.30
Вложеные таблицы в парадоксе