1 2 3 4 5 6 7 8 9 10 11 12
procedure TMain_Form.Button5Click(Sender: TObject); begin //Memo1.Lines.Add(Get_Comp_Name); Memo1.Lines.Add(Str_To_Hex(Get_Comp_Name)); Memo1.Lines.Add(Get_User_Name); Memo1.Lines.Add(Str_To_Hex(Get_Disk_Info)); Memo1.Lines.Add(Get_Disk_Info); end;