//-------------------------------------------------------------------
// ComboBox Helper Macros
//-------------------------------------------------------------------
//Определение колличества пунктов в ComboBox
function ComboBox_GetItemCount(hComboBox: HWND): Integer;
begin
Result := SendMessage(hComboBox, CB_GETCOUNT, 0, 0);
end;

//Удаление определенного пункта в ComboBox
procedure ComboBox_DeleteItem(hComboBox: HWND; Index: Integer);
begin
SendMessage(hComboBox, CB_DELETESTRING, Index, 0);
end;

//Удаление всех пунктов в ComboBox
procedure ComboBox_ClearItems(hComboBox: HWND);
begin
SendMessage(hComboBox, CB_RESETCONTENT, 0, 0);
end;

//Добавление пункта в ComboBox
function ComboBox_AddItem(hComboBox: HWND; NewItem: String): Integer;
begin
Result := SendMessage(hComboBox, CB_ADDSTRING, 0, Integer(NewItem));
end;

//Добавление объекта в ComboBox
procedure ComboBox_AddItemData(hComboBox: HWND; Index, Data: Integer);
begin
SendMessage(hComboBox, CB_SETITEMDATA, Index, Data);
end;

//Определение объекта в ComboBox
function ComboBox_GetItemData(hComboBox: HWND; Index: Integer): TObject;
begin
Result := TObject(SendMessage(hComboBox, CB_GETITEMDATA, Index, 0));
end;

//Добавление пункта в определенное место в ComboBox
procedure ComboBox_InsertItem(hComboBox: HWND; Index: Integer; NewItem: String);
begin
SendMessage(hComboBox, CB_INSERTSTRING, Index, Integer(NewItem));
end;

//Определение имени выбранного пункта в ComboBox
function ComboBox_GetSelectedItem(hComboBox: HWND): string;
var
Index, len: Integer;
s: string;
buffer: PChar;
begin
Index := SendMessage(hComboBox, CB_GETCURSEL, 0, 0);
len := SendMessage(hComboBox, CB_GETLBTEXTLEN, wParam(Index), 0);
GetMem(buffer, len + 1);
SendMessage(hComboBox, CB_GETLBTEXT, wParam(Index), lParam(buffer));
SetString(s, buffer, len);
FreeMem(buffer);
Result := s;
end;

//Определение номера выбранного пункта в ComboBox
function ComboBox_GetCountSelectedItem(hComboBox: HWND): Integer;
var
Index, len: Integer;
s: string;
buffer: PChar;
begin
Index := SendMessage(hComboBox, CB_GETCURSEL, 0, 0);
len := SendMessage(hComboBox, CB_GETLBTEXTLEN, wParam(Index), 0);
GetMem(buffer, len + 1);
SendMessage(hComboBox, CB_GETLBTEXT, wParam(Index), lParam(buffer));
SetString(s, buffer, len);
FreeMem(buffer);
Result := Index;
end;

//Определение имени пункта по номеру в ComboBox
function ComboBox_GetItem(hComboBox: HWND; LbItem: Integer): string;
var
l: Integer;
buffer: PChar;
begin
l := SendMessage(hComboBox, CB_GETLBTEXTLEN, LbItem, 0);
GetMem(buffer, l + 1);
SendMessage(hComboBox, CB_GETLBTEXT, LbItem, Integer(buffer));
Result := StrPas(buffer);
FreeMem(buffer);
end;

//Выбор пункта в ComboBox по счету
procedure ComboBox_SelectedItem(hComboBox: HWND; Index: Integer);
begin
SendMessage(hComboBox, CB_SETCURSEL, Index, 0);
end;

//Выбор пункта в ComboBox по имени
procedure ComboBox_SelectedString(hComboBox: HWND; Text: String);
begin
SendMessage(hComboBox, CB_SELECTSTRING, 0, Integer(Text));
end;

//Открытие пунктов ComboBox
procedure ComboBox_OpenItems(hComboBox: HWND);
begin
SendMessage(hComboBox, CB_SHOWDROPDOWN, Integer(True), 0);
end;

//Проверяем, открыты ли пункты ComboBox
function ComboBox_GetOpenItems(hComboBox: HWND): Boolean;
begin
Result := BOOL(SendMessage(hComboBox, CB_GETDROPPEDSTATE, 0, 0));
end;

program sample;

uses
Windows, Messages,
Lenin_SysUtils in '..\..\Lenin_SysUtils.pas',
Lenin_Controls in '..\..\Lenin_Controls.pas';

{$R dialog.res} //Подключаем ресурс диалогового окна

//Функция, обрабатывающая все команды от элементов управления окна
function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
var
i: Integer;
Drive: String;
DTYpe: Integer;
begin
Result := False;
case uMsg of
WM_INITDIALOG:
begin
//Заполняем ComboBox (11 и 12)
for i := Ord('A') to Ord('Z') do begin
Drive := Chr(i) + ':\';
DType := GetDriveType(PCHar(Drive));
//CD-ROM
if DType = DRIVE_CDROM then
ComboBox_AddItem(GetDlgItem(hWin, 11), Drive);
ComboBox_SelectedItem(GetDlgItem(hWin, 11), 0);
//HDD
if DType = DRIVE_FIXED then
ComboBox_AddItem(GetDlgItem(hWin, 12), Drive);
ComboBox_SelectedItem(GetDlgItem(hWin, 12), 0);
end;
end;
WM_COMMAND:
begin
case HIWORD(wp) of
CBN_SELCHANGE: //При выборе диска в ComboBox
case LoWord(wp) of
11:
begin
//Получаем букву диска
Drive := ComboBox_GetSelectedItem(GetDlgItem(hWin, 11));
//Выводим тип диска
Edit_SetText(GetDlgItem(hWin, 10), GetDriveDisplayString(Drive));
end;
12:
begin
//Получаем букву диска
Drive := ComboBox_GetSelectedItem(GetDlgItem(hWin, 12));
//Выводим тип диска
Edit_SetText(GetDlgItem(hWin, 10), GetDriveDisplayString(Drive));
end;
end;
end;
case LoWord(wp) of
//При нажатии на кнопку с идентификатором 1 закрываем программу
1: EndDialog(hWin, 0);
end;
end;
//При нажатии на кнопку "Х" в шапке программы закрываем приложение
WM_DESTROY, WM_CLOSE: PostQuitMessage(0);
end;
end;

begin
//Открываем диалоговое окно MAIN_WINDOW (достаем окно из ресурсов)
DialogBox(hInstance, 'MAIN_WINDOW', 0, @DlgProc);

end.