Собственный класс диалогового окна на чистом WinApi в Delphi

[Iber]

Окно должно реализовать функцию обзора содержимого диска аля любая из панелек тотал командера...другими словами дерево файлов показать вобшем необходимо..

не представляю как делать... помагите плз :[

[rpy3uH]

в чём собственно проблема?
описание функции RegisterClassEx

[Iber]

я незнаю как реализоват на чистом винапи в делфи показ дерева файлов...просто в делфе используя формы, vcl и тд не проблема но с апи не работал никогда...грубо говаря создал окно кнопки менюшку на апи дальше не могу надо както реализовать дерево каталогов

[rpy3uH]

сначала получи список папок и файлов в папке, потом выводи в контрол по строкам сначала значок потом имя файла или папки. Получать список файлов надо только один раз. Выводить надо при получении сообщения WM_PAINT

[Iber]

какие функции для получения списка файлов в директории?
что такое контрол?если это стандартные компонент тонезя мне им пользоватся%)

[rpy3uH]

Сообщение от Iber

какие функции для получения списка файлов в директории?

FindFirstFile, FindNextFile

Сообщение от Iber

что такое контрол?

контрол это окно (в Windows всё что имеет хендл это окно, EDIT это окно, BUTTON это окно, COMBOBOX это окно и так далее)

Сообщение от Iber

если это стандартные компонент тонезя мне им пользоватся%)

можно, но тогда весь смысл программирования на Win API теряется, проще пользоваться возможностями VCL. Ну если просто от балды припёрло на Win API программировать, то пойдёт...

[Iber]

незя мне по заданию ни vcl ни стандартные компоненты делфи юзить

[Iber]

2rpy3uH
смогешь иходник дать с небольшим примером использования этих функций :[ :[?

[rpy3uH]

пример приложения полностью на Win API. есть COMBOBOX, кнопка и таймер. Таймер выводит сообщение каждую секунду, когда кликаешь на любом месте, формы в комбобокс добавляется новая строка.

program winmin;

uses
  windows, messages,sysutils;
var
  wc : TWndClassEx;
  Box,MainWnd,button_handle,label_handle : HWND;
  Mesg : TMsg;
  xPos,yPos,nWidth,nHeight : Integer;
  xbPos,ybPos,bWidth,bheight:Integer;
  xlblPos,ylblPos,lblWidth,lblHeight:integer;

  str:string ;
  counter:DWORD = 0;

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult;
 stdcall;
Begin 
  case msg of
   wm_destroy :
    Begin
     postquitmessage(0); exit;
     Result:=0;
    End ;
   WM_LBUTTONDOWN:
     begin
      str:='stroka '+IntToStr(counter);
      inc(counter);
      SendMessage(box,CB_ADDSTRING,0,integer(pchar(str)));
     end;
   else Result:=DefWindowProc(wnd,msg,wparam,lparam);
  end;

End;

var
   TID:DWORD;

procedure TimerProc(Handle:HWND;uMsg:DWORD;idEvent:DWORD;dwTime:DWORD);stdcall;
begin
   MessageBox(0,'1','2',0);
end;


begin
{  Далее идет заполнение шаблона класса окна}

  wc.cbSize:=sizeof(wc);
  wc.style:=CS_HREDRAW or CS_VREDRAW;
  wc.lpfnWndProc:=@WindowProc;
  wc.cbClsExtra:=0;

  wc.cbWndExtra:=0;
  wc.hInstance:=HInstance;
  wc.hIcon:=LoadIcon(0,IDI_WARNING);
  wc.hCursor:=LoadCursor(0,idc_arrow);
  wc.hbrBackground:=COLOR_BTNFACE+1;
  wc.lpszMenuName:=nil;
  wc.lpszClassName:='TMainForm';
  RegisterClassEx(wc);
    //окно
  xPos:=100;
  yPos:=150;
  nWidth:=400;
  nHeight:=250;
  MainWnd:=CreateWindowEx ( 0,
        'TMainForm',
        'Минимальное приложение',
        WS_CAPTION or WS_SYSMENU, //флаги стилей окна
        xPos, yPos,nWidth,nHeight,
        0,                  //описатель родительского окна (parent) или окна-владельца (owner)
        0,                  //описатель меню окна (меню нет, нет и описателя)
        Hinstance,          //описатель приложения
        nil                 //address of window-creation data
        );
  ShowWindow(MainWnd,CmdShow); //Отображаем окно

  bWidth:=90;
  bheight:=50;
  xbPos:=nWidth-bWidth-10;
  ybPos:=nHeight-bHeight-30;

  button_handle:=CreateWindowEX(0,'BUTTON',
                                'Кнопка',
                                WS_CHILD,
                                xbPos,ybPos,bWidth,bheight,
                                mainwnd,0,
                               0,nil);
  ShowWindow(button_handle,SW_SHOWNORMAL);

  xlblPos:=10;
  ybPos:=10;
  lblWidth:=100;
  lblHeight:=120;

  label_handle:=CreateWindowEX(0,'STATIC',
                               'кликни по любому месту на форме чтобы добавить стоку в комобокс',
                               WS_CHILD or SS_CENTER,
                               xlblPos,ylblPos,lblWidth,lblHeight,
                               mainwnd,0,
                               0,nil);
  ShowWindow(label_handle,SW_SHOWNORMAL);
   lblHeight:=200; // 200 - это максимальная высота  выпадающего списка + высота поля редактирования

  Box:=CreateWindow('COMBOBOX', '',
                        WS_VISIBLE or WS_CHILD or SS_LEFT or CBS_DROPDOWNLIST,
                       8, 130, 220, lblHeight, MainWnd, 0, hInstance, nil);

  SendMessage(MainWnd,WM_LBUTTONDOWN,0,0);


  TID:=SetTimer(0,0,2000,@TimerProc);

  While GetMessage(Mesg,0,0,0) do
   begin
    TranslateMessage(Mesg);
    DispatchMessage(Mesg);
   end;
end.

[Iber]

пасиб огромное)