cmd to label1

[Serge_Bliznykov]

Сообщение от AppData

как теперь вывести жесткие в ComboBox1.Items.Add?

да точно так же!

id := getHardDriveComputerID(r, TS);
for i := Low(r) to High(r) do 
      ComboBox1.Items.Add(r[i].НУжноеПолеИлиПоля);

[AppData]

Сообщение от Serge_Bliznykov

да точно так же!

id := getHardDriveComputerID(r, TS);
for i := Low(r) to High(r) do 
      ComboBox1.Items.Add(r[i].НУжноеПолеИлиПоля);

id := getHardDriveComputerID(r, TS);
for i := Low(r) to High(r) do
      ComboBox1.Items.Add(r[i].DriveModelNumber);

Ошибка ((

[Serge_Bliznykov]

Ошибка ((

секретная?!

у меня, кстати, никакой ошибки нет:
Project1exe.rar

[AppData]

Сообщение от Serge_Bliznykov

секретная?!

у меня, кстати, никакой ошибки нет:
Вложение 69925

да нет, не секрет! вот. см..

[Serge_Bliznykov]

Вы перенесли вызов getHardDriveComputerID(r, TS) на событие FormCreate, он отказался компилироваться, тогда Вы сделали переменную TS глобальной.

var 
TS : TStringList;

Только забыли, что перед использоваем объекта класса, нужно этот самый объект предварительно СОЗДАТЬ!

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS := TStringList.Create;
  id := getHardDriveComputerID(r, TS);
  ComboBox1.Items.Clear;
  for i := Low(r) to High(r) do
      ComboBox1.Items.Add(r[i].DriveModelNumber);
  if ComboBox1.Items.Count>0 then
     ComboBox1.ItemIndex := 0;
end;

ну и не забудьте на событии уничтожения формы (onDestroy), очистить свой TS:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(TS) then FreeAndNil(TS);
end;

[AppData]

Serge_Bliznykov а как ты потом, почистил следы. оставив самое необходимое?
Drive Model Number
Drive Serial Number
Drive Controller Revision Number

copy?

[Serge_Bliznykov]

а как ты потом, почистил следы. оставив самое необходимое?

не понял вопроса...
Зачем что-то чистить, когда данные уже отдельно в массиве записей. Каждое поле отдельно. Ничего чистить не надо.

А ты вообще про что? Это ты про программу из пост #13 спрашиваешь?

[AppData]

да, а именно см. рис. я не хотел по copy past т.к. есть вероятность китайских закоряк

[Serge_Bliznykov]

у меня в исходниках такой код:

implementation

uses
  hwid_impl,
  winioctl,
  crtdll_wrapper;


{$R *.dfm}
var
  r: tresults_array_dv;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Enabled := false;
      Label1.Caption := '#н/д';
      Label2.Caption := '#н/д';
      Label3.Caption := '#н/д';
end;


procedure TForm1.Button1Click(Sender: TObject);
var id: Longint;
var TS : TStringList;
  i : integer;
begin
  TS := TStringList.Create;
  try
    id := getHardDriveComputerID(r, TS);

    ComboBox1.Items.Clear;
    for i := Low(r) to High(r) do
      ComboBox1.Items.Add(r[i].DriveModelNumber);

    if ComboBox1.Items.Count>0 then begin
      ComboBox1.ItemIndex := 0;
      ComboBox1.Enabled := true;
      ComboBox1Change(ComboBox1);
    end
    else
      ComboBox1.Enabled := true;
  finally
    FreeAndNil(TS)
  end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    if (ComboBox1.ItemIndex>=0)
          and (ComboBox1.ItemIndex<Length(r)) then begin
       Label1.Caption := '  модель: '+ r[ComboBox1.ItemIndex].DriveModelNumber;
       Label2.Caption := '  серийник: '+ r[ComboBox1.ItemIndex].DriveSerialNumber;
       Label3.Caption := '  ревизия: '+ r[ComboBox1.ItemIndex].DriveControllerRevisionNumber;
    end
    else begin
      Label1.Caption := '#н/д';
      Label2.Caption := '#н/д';
      Label3.Caption := '#н/д';
    end;

end;


end.

[AppData]

собственно теперь почему мне это нужно было..

теперь последний вопрос, как лучше сделать так чтобы...

можно конечно так..

if ComboBox1.Items.Count then // уточняем количество жестких дисков.
Memo1.Add(r[ здесь само собой первый ].DriveModelNumber);
если есть второй 
Memo1.Add(r[ значит добавляем второй ].DriveModelNumber);

вот именно как то так.