Главная страница
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.017 c
9-96509
Lampo4ka
2002-08-08 10:12
2003.01.30
Где скачать DelphiX ?


1-96865
Alex S
2003-01-20 11:17
2003.01.30
Quick Report


1-96868
No_V_Ice
2003-01-21 11:25
2003.01.30
PopupMenu в стиле XP


1-96794
Igit
2003-01-22 20:35
2003.01.30
Low_dword & High_dword


14-97041
zolotov
2003-01-14 13:15
2003.01.30
Upgrade компонента.