cmd to label1

[AppData]

как вот это все, переделать не под cmd а под. проект! где можно будет вывести все три строки

   Write(Format ('Drive Model Number________________: [%s]'+#$0D#$0A, [modelNumber]));
   Write(Format ('Drive Serial Number_______________: [%s]'+#$0D#$0A, [serialNumber]));
   Write(Format ('Drive Controller Revision Number__: [%s]'+#$0D#$0A, [revisionNumber]));

скажем так

  label1.caption := ('Drive Model Number________________: [%s]'+#$0D#$0A, [modelNumber]));
   label2.caption :=  ('Drive Serial Number_______________: [%s]'+#$0D#$0A, [serialNumber]));
   label3.caption :=  ('Drive Controller Revision Number__: [%s]'+#$0D#$0A, [revisionNumber]));

помогите мне перебрать проект!

[Stilet]

 label1.caption :=(Format ('Drive Model Number________________: [%s]'+#$0D#$0A, [modelNumber]));
   label2.caption :=(Format ('Drive Serial Number_______________: [%s]'+#$0D#$0A, [serialNumber]));
   label3.caption :=(Format ('Drive Controller Revision Number__: [%s]'+#$0D#$0A, [revisionNumber]));

[AppData]

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

 label1.caption :=(Format ('Drive Model Number________________: [%s]'+#$0D#$0A, [modelNumber]));
   label2.caption :=(Format ('Drive Serial Number_______________: [%s]'+#$0D#$0A, [serialNumber]));
   label3.caption :=(Format ('Drive Controller Revision Number__: [%s]'+#$0D#$0A, [revisionNumber]));

очень смешно!

[Аватар]

очень смешно!

Смех без причины признак ... М-да. Убери оттуда символы перевода каретки и строки. В Label они не нужны

[Serge_Bliznykov]

так устроит?
Project1HWID.rar
Project1EXE.rar

[AppData]

Memo1.Lines.AddStrings(TS);

, не выход. мне именно в Label1.Caption вывести нужно!

[Serge_Bliznykov]

мне именно в Label1.Caption вывести нужно

Так выводите. В чём сложности то?! В худшем случае распарсите полученный текст из TS.

Кстати, Вас не смущает, что информация по Drive не по одному диску выводится?!
Мало того, что диски часто разбиты на несколько логических, так более того, нередки случаи, когда в системе присутствуют два и более жёстких диска.
Вам что, ЛЮБОЙ диск из представленных в системе нужен?

если любой диск подойдёт: Project1exe.rar

получно с помощью данного индо-кода:

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

    for i:= 0 to TS.Count - 1 do begin
      if Pos('Drive Model Number', TS.Strings[i])=1 then
         Label1.Caption := TS.Strings[i];
      if Pos('Drive Serial Number', TS.Strings[i])=1 then
         Label2.Caption := TS.Strings[i];
      if Pos('Drive Controller Revision Number', TS.Strings[i])=1 then begin
         Label3.Caption := TS.Strings[i];
         Break
      end;
    end;

  finally
    FreeAndNil(TS)
  end;

end;

[AppData]

Serge_Bliznykov, отлично! но а как если списком? скажем от 2 и более жестких дисков? скажем выбрать в ComboBox1 след .винт! а в label Он отображает

[Serge_Bliznykov]

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

но а как если списком? скажем от 2 и более жестких дисков? скажем выбрать в ComboBox1 след .винт! а в label Он отображает

вот. теперь Вы начинаете мыслить конструктивно.

вот теперь посмотрите на то, что за параметр передаётся в процедуру
getHardDriveComputerID() c именем r

обратите внимание на его тип:
var r: tresults_array_dv;

и что в нём возвращается:

type
//record for storing results (instead of printing on console)
  tresults_dv = record
    ControllerType: Integer; //0 - primary, 1 - secondary, 2 - Tertiary, 3 - Quaternary
    DriveMS: Integer; //0 - master, 1 - slave
    DriveModelNumber: String;
    DriveSerialNumber: String;
    DriveControllerRevisionNumber: String;
    ControllerBufferSizeOnDrive: Int64;
    DriveType: String; //fixed or removable or unknown
    DriveSizeBytes: Int64;
  end;

  tresults_array_dv = array of tresults_dv;

понимаете, куда я клоню?
Похоже, что всё, что Вам нужно, есть в этом динамическом массиве из записей!

    id := getHardDriveComputerID(r, TS);
    for i := Low(r) to High(r) do begin
       Memo1.Lines.Append('Диск №'+IntToStr(i));
       Memo1.Lines.Append('  модель: '+ r[i].DriveModelNumber);
       Memo1.Lines.Append('  серийник: '+ r[i].DriveSerialNumber);
    end;

[AppData]

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