- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
procedure TDev.ScanBtnClick(Sender: TObject);
var
sel:tlistitem;
drv:DriveObj;
i:integer;
begin
for i:=devlist.Items.Count -1 downto 0 do
begin
sel:=devlist.items[i];
if not sel.selected then continue;
if sel.SubItems.Objects[0] is DriveObj then
begin
drv:=(sel.SubItems.Objects[0] as DriveObj);
if drv.status=s_isprocessing then
begin
messagebox(handle,pchar('Предыдущее сканирование еще выполняется'),pchar('Ошибка'),mb_iconwarning);
continue;
end;
StartScan(drv,true);
sel.SubItems.Strings[2]:=(sel.SubItems.Objects[0] as DriveObj).statusAString;
end;
end;
end;
Из одной утилитки.
ListView настроен на освобождение объектов при удалении айтема, слушает событие об удалении/добавлении устройств.
Follow us!
Вызов MessageBox не блокирует главный поток (сообщения из очереди продолжают обрабатываться). Может статься так, что за промежуток времени, пока открыт MessageBox, форма получит сообщение об удалении устройства, ListView удалит айтем с соответствующей буквой диска и при следующей итерации цикла пользователь получит AV.
Отсюда мораль: если хочешь, чтобы язык программирования игнорировали, внеси его в учебную программу первого курса.
сишечку же все учили наверное
все равно воняет. Ну не нужен там MessageBox... Сообщение можно и в конце цикла показать.
Т.е. замели проблему под ковёр... Делфи вей, чо.
Майкрософт тебя уже опередил. Они показывают только грустный смайлик.
Молча закрываешь программу, и всё. Или еще лучше написать: "обратитесь к администратору"
Какой из инканусов с голограммой и проходит валидацию?
Это как секс с незнакомым человеком в темной комнате. По ощущениям не понять ни возраста ни пола
а 1997й не найду
http://www.fandom.ru/fido/su_books/msg_index1.htm
грамотно, развернуто, красиво
никаких тебе сраных вореций
нет, я решительно хочу фидо, 1997й, и borland C++ под DOS
и коврик для мышки
и игру гоблины2
и сануд бластер
и мышь двухкнопочную на ком порту
и пузатый 14" моник
и коробку дискет basf
и golded
и keyrus.com
http://secretmag.ru/topics/2016/03/23/diskety-i-kassety/
вообще говоря это не дискеты а попса
хочу 5"25 на 740К
пашут?
чартов тэ девять
и сладкий хлеб едят
сейчас в тренде руби и питон
Кстати, в школе у нас были компьютеры «Агат-7» с одноголовочным дисководом. Для использования второй поверхности дискету надо было перевернуть.
А восьмидюймовых не видел ни разу. И Zip-дисками не выпало случая попользоваться.
P.S. 3,5" на 2880К тоже не видел.
v34 же
самурай с мечом подобен самураю без меча, но только с мечом
А первый модем я подключал непосредственно разобрав телефонную розетку и прикрутив провода так, чтобы одновременно подключались и модем и телефон. Номер ISP набирал с дискового телефона, а когда слышал ответ другого модема - быстро нажимал на компе на соответствующие кнопки.