DriveList (ListBox) --> на ListView [D7]
GLXV © (2007-06-04 18:29:00)
Как заменить в данном коде DriveList (ListBox) --> на
ListView?
CM_Request_Device_Eject(DEVINST(DriveList.Items.Objects[DriveList.ItemIndex]),
@VetoType, nil, 0, 0);
Ну, DriveList.ItemIndex = ListView.ItemIndex, я понимаю,
а с DriveList.Items.Objects как быть?
GLXV (2007-06-05 14:31:00) [1]
Уточню вопрос, возможно это поможет:
CM_Request_Device_Eject - для вызова "безопасного извлечения"
подключенного к USB устройства. В DriveList (ListBox), изначально,
помещалось:
DriveList.Items.AddObject(S + ' ' +
ExtractSerialNumber(SymbolicName), TObject(Inst));
(Пр.: "G: 15F478A38")
я заменил на:
with ListView.Items.Add do
begin
Caption:=S; //диск
SubItems.Add(ExtractSerialNumber(SymbolicName));
end;
Наверх 
ЧАТ |
Орешник |
|
