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

Вниз

помогите!!!   Найти похожие ветки 

← →
Ищущий помощи   (2007-09-16 16:09) [0]

Нужно написать прогу по диагностике программного и аппаратного обеспечения ПК

---

← →
homm ©   (2007-09-16 16:12) [1]

Я согласен помочь.

---

← →
boa_kaa ©   (2007-09-16 16:16) [2]

и што?

---

← →
Ищущий помощи   (2007-09-16 16:35) [3]

Нужны хот какие-нибуть исходники на delphi! Тест ОС,памяти,процессора и т.д. Зарание благодарин.

---

← →
Юрий Зотов ©   (2007-09-16 16:35) [4]

begin
 WriteLn("Прога по диагностике программного и аппаратного обеспечения ПК.");
 WriteLn("Ждите, идет сбор и обработка информации...");
 Sleep(5000);
 WriteLn("Результат диагностики: на данном ПК программное и аппаратное обеспечение присутствует.");
 WriteLn("Нажмите Enter.");
 ReadLn
end.

---

← →
Ищущий помощи   (2007-09-16 16:41) [5]

А у тебя есть чувство юмора!!!

---

← →
Сергей М. ©   (2007-09-16 16:42) [6]

> Ищущий помощи   (16.09.07 16:41) [5]


У него-то есть)

А вот тебе пора ликбез пройти)

---

← →
Юрий Зотов ©   (2007-09-16 16:48) [7]

> Ищущий помощи   (16.09.07 16:41) [5]

Если Вы это мне, то спасибо. Но лучше Вы бы все же задали вопрос. Потому что в сабже Вы написали не вопрос, а задачу. Да и ту обрисовали нечетко.

А задачу, которую Вы обрисовали, код [4] вполне решает. Притом еще и безошибочно.

---

← →
Lacmus ©   (2007-09-16 16:51) [8]

>Ищущий помощи   (16.09.07 16:35) [3]

:-)



unit Unit38;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TForm38 = class(TForm)
   Edit1: TEdit;
   TreeView1: TTreeView;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form38: TForm38;

implementation

{$R *.dfm}

uses
 ActiveX, ComObj;

procedure TForm38.Button1Click(Sender: TObject);
var
 Node: TTreeNode;
 i: Integer;
 Enumerator: IEnumVariant;
 WbemLocator, WbemServices, WbemObjectSet: Variant;
 Properties: IEnumVariant;
 Property_, System: OleVariant;
 j: LongWord;
 sProperty: string;
begin
 WbemLocator   := CreateOleObject("WbemScripting.SWbemLocator");
 WbemServices  := WbemLocator.ConnectServer;
 WbemObjectSet := WbemServices.InstancesOf(Edit1.Text);
 Enumerator := IEnumVariant(TVarData(WbemObjectSet._NewEnum).VDispatch);
//  TreeView1.Items.BeginUpdate;
 try
   TreeView1.Items.Clear;
   while Enumerator.Next(1, System, j) = S_OK do try
     Node := TreeView1.Items.Add(nil, "");
     try
       Node.Text := VarToStr(System.Caption);
     except end;
     Properties := IEnumVariant(TVarData(System.Properties_._NewEnum).VDispatch);
     while Properties.Next(1, Property_, j) = S_OK do begin
       try
         if VarIsArray(Property_.Value) then begin
           sProperty := "";
           for i := 0 to VarArrayHighBound(Property_.Value, 1) do begin
             if i > 0 then
               sProperty := sProperty + ",";
             sProperty := sProperty + VarToStr(Property_.Value[i])
           end
         end else
           sProperty := VarToStr(Property_.Value);
       except
         sProperty := "";
       end;
       if sProperty <> "" then
         TreeView1.Items.AddChild(Node, VarToStr(Property_.Name) + "=" + sProperty);
     end;
     Node.Expand(False);
     Application.ProcessMessages
   except

   end
 finally
//    TreeView1.Items.EndUpdate
 end
end;

procedure TForm38.FormCreate(Sender: TObject);
begin
 Edit1.Text := "Win32_Bios"
end;

end.



---

← →
Сергей М. ©   (2007-09-16 16:54) [9]

> Lacmus ©   (16.09.07 16:51) [8]


Малацца максимка)

Приведенное тобой есть ничто иное как "Тест ОС,памяти,процессора и т.д")

---

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

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

Наверх

Память: 0.49 MB
Время: 0.108 c