Новые книги
 В книге?–?описание современных приемов успешных продаж, которые обычно держатся в секрете или раскрываются лишь на дорогостоящих тренингах и семинарах. Автор книги?–?успешный продавец, бизнес-консультант. В отличие от теоретиков торговли, он прекрасно знает то, о чем говорит и пишет: на протяжении более двадцати лет он продавал все?–?от кирпичей до самолетов! Все главы книги представляют собой идеальное руководство для обучения ремеслу успешной торговли. Готовыми рецептами и конкретными решениями вы сможете воспользоваться буквально через несколько минут чтения этой книги! |
 Ведущеее международное пособие! Самое актуальное издание классического учебника ? Марк Джонстон и Грэг Маршалл продолжают традиции мастерства, заложенные Черчиллем, Фордом и Уокером. Классика, полностью адаптированная к современной практике управления продажами.В новом издании вас ожидают: [ul]актуальный набор практических инструментов по управлению отделом продаж; примеры из современной практики управления продажами; разбор вопросов лидерства, технологий, инноваций, этики и глобального бизнеса; разные подходы к коммуникации в сфере продаж.[/ul] |
Как узнать, находится ли дискета в дисководе?
type
TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK,
DS_EMPTY_DISK, DS_DISK_WITH_FILES);
function DriveState(DrvLetter: Char): TDriveState;
var
Mask: String[6];
SearchRec: TSearchRec;
oldMode: Cardinal;
ReturnCode: Integer;
begin
oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
Mask:= '?:\*.*';
Mask[1] := DrvLetter;
{$I-} { отключить обработку исключительных ситуаций }
ReturnCode := FindFirst(Mask, faAnyfile, SearchRec);
FindClose(SearchRec);
{$I+}
case ReturnCode of
{ как минимум один файл был найден }
0: Result := DS_DISK_WITH_FILES;
{ файлов не найдено и дискета в порядке }
-18: Result := DS_EMPTY_DISK;
{ DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT, ERROR_PATH_NOT_FOUND для Win 3.1 }
-21, -3: Result := DS_NO_DISK;
else
{ дискета лежит в дисководе но она не форматировнная }
Result := DS_UNFORMATTED_DISK;
end;
SetErrorMode(oldMode);
end; { DriveState }