Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Орловский Дмитрий Статус: Академик Рейтинг: 4593 ∙ повысить рейтинг »

Boriss Статус: Академик Рейтинг: 2636 ∙ повысить рейтинг »

Жерар Статус: Специалист Рейтинг: 1722 ∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / WinAPI

Вопрос № 22313: Добрый (у меня вечер) эксперты. Как можно узнат текущую загруженность процессора ? Если можно в процентах и с примером. ...

Добрый (у меня вечер) эксперты.
Как можно узнат текущую загруженность процессора ?
Если можно в процентах и с примером.

Отправлен: 17.06.2005, 21:41
Вопрос задал: Клочко Сергей Александрович
Всего ответов: 3
Страница вопроса »

Ответ отправил: Denisss (Академик)
Ответ отправлен: 17.06.2005, 21:56

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 53747 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает vitya :
Здравствуйте, Клочко Сергей Александрович!
Зависит от операционной системы. Под Windows, смотри в сторону performance counter - ов.

Ответ отправил: vitya
Ответ отправлен: 18.06.2005, 00:00

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 53768 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Ерёмин А.А. (Мастер-Эксперт) :
Здравствуйте, Клочко Сергей Александрович!
Привожу ниже код на Delphi, взятый из DRKB. Однако работает он только в Windows NT/2000/XP. Конкретных функций для получения загрузки процессора нет.

Приложение:
const SystemBasicInformation = 0; SystemPerformanceInformation = 2; SystemTimeInformation = 3; type TPDWord = ^DWORD; TSystem_Basic_Information = packed record dwUnknown1: DWORD; uKeMaximumIncrement: ULONG; uPageSize: ULONG; uMmNumberOfPhysicalPages: ULONG; uMmLowestPhysicalPage: ULONG; uMmHighestPhysicalPage: ULONG; uAllocationGranularity: ULONG; pLowestUserAddress: Pointer; pMmHighestUserAddress: Pointer; uKeActiveProcessors: ULONG; bKeNumberProcessors: byte; bUnknown2: byte; wUnknown3: word; end; type TSystem_Performance_Information = packed record liIdleTime: LARGE_INTEGER; {LARGE_INTEGER} dwSpare: array[0..75] of DWORD; end; type TSystem_Time_Information = packed record liKeBootTime: LARGE_INTEGER; liKeSystemTime: LARGE_INTEGER; liExpTimeZoneBias: LARGE_INTEGER; uCurrentTimeZoneId: ULONG; dwReserved : DWORD; end; var NtQuerySystemInformation: function(infoClass: DWORD; buffer: Pointer; bufSize: DWORD; returnSize: TPDword): DWORD; stdcall = nil; liOldIdleTime: LARGE_INTEGER = (); liOldSystemTime: LARGE_INTEGER = (); function Li2Double(x: LARGE_INTEGER): Double; begin Result := x.HighPart * 4.294967296E9 + x.LowPart end; procedure GetCPUUsage; var SysBaseInfo: TSystem_Basic_Information; SysPerfInfo: TSystem_Performance_Information; SysTimeInfo: TSystem_Time_Information; status: Longint; {long} dbSystemTime: Double; dbIdleTime: Double; bLoopAborted : boolean; begin if @NtQuerySystemInformation = nil then NtQuerySystemInformation := GetProcAddress(GetModuleHandle(\'ntdll.dll\'), \'NtQuerySystemInformation\'); // get number of processors in the system status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo, SizeOf(SysBaseInfo), nil); if status <> 0 then Exit; // Show some inf ormation with SysBaseInfo do begin ShowMessage( Format(\'uKeMaximumIncrement: %d\'#13\'uPageSize: %d\'#13+ \'uMmNumberOfPhysicalPages: %d\'+#13+\'uMmLowestPhysicalPage: %d\'+#13+ \'uMmHighestPhysicalPage: %d\'+#13+\'uAllocationGranularity: %d\'#13+ \'uKeActiveProcessors: %d\'#13\'bKeNumberProcessors: %d\', [uKeMaximumIncrement, uPageSize, uMmNumberOfPhysicalPages, uMmLowestPhysicalPage, uMmHighestPhysicalPage, uAllocationGranularity, uKeActiveProcessors, bKeNumberProcessors])); end; bLoopAborted := False; while not bLoopAborted do begin // get new system time status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo, SizeOf(SysTimeInfo), 0); if status <> 0 then Exit; // get new CPU\'s idle time status := NtQuerySystemInformation(SystemPerformanceInformation, @SysPerfInfo, SizeOf(SysPerfInfo), nil); if status <> 0 then Exit; // if it\'s a first call - skip it if (liOldIdleTime.QuadPart <> 0) then begin // CurrentValue = NewValue - OldValue dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime); dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime); // CurrentCpuIdle = IdleTime / SystemTime dbIdleTime := dbIdleTime / dbSystemTime; // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors + 0.5; // Show Percentage Form1.Label1.Caption := FormatFloat(\'CPU Usage: 0.0 %\',dbIdleTime); Application.ProcessMessages; // Abort if user pressed ESC or Application is terminated bLoopAborted := (GetKeyState(VK_ESCAPE) and 128 = 128) or Application.Terminated; end; // store new CPU\'s idle and system time liOldIdleTime := SysPerfInfo.liIdleTime; liOldSystemTime := SysTimeInfo.liKeSystemTime; // wait one second Sleep(1000); end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetCPUUsage;end;</texta rea> <i>Россия, Тула</i><br /><b>Адрес сайта:</b> <a href="http://www.delphi.int.ru/">Портал программистов Delphi.int.ru</a><br /><br />-----<br /><font color="gray"><i>Нет правила без исключений. Правило без исключений - исключение из правил.</i></font> <p> Ответ отправил: <a href="http://rfpro.ru/user/3630" target="_blank" title="ID: 3630 - Ерёмин А.А., Мастер-Эксперт">Ерёмин А.А.</a> (Мастер-Эксперт) <br /> Ответ отправлен: <b>18.06.2005, 10:16</b> <p> <table border="0" class="A"> <tr><td><b>Как сказать этому эксперту "спасибо"?</td></tr> <tr><td> <b><li>Отправить SMS</b> <font color="green"><b>#thank 53799</b></font> на номер <font color="green"><b>1151</b></font> (Россия) | <a href="http://rfpro.ru/sms/thank/53799" target="_blank">Еще номера »</a> </td></tr> <form id="pay" name="pay" method="POST" action="https://merchant.webmoney.ru/lmi/payment.asp" target="_blank"> <input type="hidden" name="LMI_PAYMENT_DESC" value="Спасибо!"> <input type="hidden" name="LMI_PAYMENT_NO" value="10000"> <input type="hidden" name="LMI_PAYEE_PURSE" value="R184099794569"> <input type="hidden" name="LMI_SIM_MODE" value="0"> <input type="hidden" name="Thank" value="53799"> <tr><td> <b><li>Отправить WebMoney:</b> <select name="LMI_PAYMENT_AMOUNT" class="box"> <option value="30">Неплохо (30 руб.)</option> <option value="40">Хорошо (40 руб.)</option> <option value="55" selected>Отлично (55 руб.)</option> <option value="80">БЛЕСТЯЩЕ! (80 руб.)</option> </select> <input type="submit" value="Спасибо!" style="font-size: 9" class="button"> </td></tr> </form> <tr><td><i>Вам помогли? Пожалуйста, поблагодарите эксперта за это!</i></td></tr> </table> <hr size="1" color="blue" noshade> <a name="#22427"></a> <font size="2"><b>Вопрос № 22427:</b></font> <p> Уважаемые эксперты, добрый день. Подскажите как послать сообщение из программы на С++ в системны журнал. Попробовал использовать API-функцию: ReportEvent(...), однако, видимо что-то я упустил и в итоге в журнале помимо моего сообщения которое все-таки туда попало, пишится следующее :<br> Не найдено описание для события с кодом ( 1 ) в источнике ( Application ). Возможно, на локальном компьютере нет нужных данных в реестре или файлов DLL сообщений для отображения сообщений удаленного компьютера. Попробуйте использовать ключ /AUXSOURCE= для получения этого описания, - дополнительные сведения об этом содержатся в справке. В записи события содержится следующая информация: Неверно указаны параметры.<- это непосредственно мое сообщение. <p> Отправлен: <b>20.06.2005, 14:06</b><br /> Вопрос задал: Воробьев Дмитрий Владимирович <br /> Всего ответов: <b>1</b><br /> <a href="http://rfpro.ru/question/22427"><b>Страница вопроса »</b></a> <hr size="1" align="center" width="20%" color="gray" noshade> <b>Отвечает John Freeman :</b><br /> Здравствуйте, Воробьев Дмитрий Владимирович!<br> Да всё у тебя правильно , просто код свой, когда Event System не знает что за код ты ему послал такое и пишет, вот если бы ты послал "Userenv" и ID 1000....<br> + Event Data заполни на всякий, это уже про неверные параметры <p> Ответ отправил: John Freeman <br /> Ответ отправлен: <b>20.06.2005, 14:41</b> <p> <table border="0" class="A"> <tr><td><b>Как сказать этому эксперту "спасибо"?</td></tr> <tr><td> <b><li>Отправить SMS</b> <font color="green"><b>#thank 54075</b></font> на номер <font color="green"><b>1151</b></font> (Россия) | <a href="http://rfpro.ru/sms/thank/54075" target="_blank">Еще номера »</a> </td></tr> <form id="pay" name="pay" method="POST" action="https://merchant.webmoney.ru/lmi/payment.asp" target="_blank"> <input type="hidden" name="LMI_PAYMENT_DESC" value="Спасибо!"> <input type="hidden" name="LMI_PAYMENT_NO" value="10000"> <input type="hidden" name="LMI_PAYEE_PURSE" value="R184099794569"> <input type="hidden" name="LMI_SIM_MODE" value="0"> <input type="hidden" name="Thank" value="54075"> <tr><td> <b><li>Отправить WebMoney:</b> <select name="LMI_PAYMENT_AMOUNT" class="box"> <option value="30">Неплохо (30 руб.)</option> <option value="40">Хорошо (40 руб.)</option> <option value="55" selected>Отлично (55 руб.)</option> <option value="80">БЛЕСТЯЩЕ! (80 руб.)</option> </select> <input type="submit" value="Спасибо!" style="font-size: 9" class="button"> </td></tr> </form> <tr><td><i>Вам помогли? Пожалуйста, поблагодарите эксперта за это!</i></td></tr> </table> <hr size="1" color="blue" noshade> <a name="#101686"></a> <font size="2"><b>Вопрос № 101686:</b></font> <p> здраствуйте уважаемые эксперты. Как мне использовать Listview для вода и редактирование данных? Желательно на ассемблере можно на С++.<br> <br> Зарание спасибо. Farit <p> Отправлен: <b>11.09.2007, 18:21</b><br /> Вопрос задал: Farit <br /> Всего ответов: <b>2</b><br /> <a href="http://rfpro.ru/question/101686"><b>Страница вопроса »</b></a> <hr size="1" align="center" width="20%" color="gray" noshade> <b>Отвечает <a href="http://rfpro.ru/user/21532" target="_blank" title="ID: 21532 - Ross, Практикант">Ross</a> (Практикант) :</b><br /> Здравствуйте, Farit!<br> <br> HANDLE hListView = CreateWindow(<br> WC_LISTVIEWW,<br> NULL,<br> WS_REPORT|WS_CHILD|WS_VISIBLE|WS_CLIPSIBLINGS|LVS_AUTOARRANGE,<br> 5,<br> 40,<br> 230,<br> 200,<br> hWnd,<br> (HMENU) ID_LISTVIEW,<br> hInst,<br> NULL);<br> <br> LV_COLUMN lvColumn;<br> memset(&lvColumn,0,sizeof(LV_COLUMN));<br> <br> DWORD dwstyle="GetWindowLong(hWnd,GWL_STYLE);"<br> SetWindowLong(hWnd,GWL_STYLE,dwStyle|LVS_REPORT);<br> <br> ListView_SetExtendedListViewStyleEx(hWnd,<br> LVS_EX_GRIDLINES,LVS_EX_GRIDLINES);<br> ListView_SetExtendedListViewStyleEx(hWnd,<br> LVS_EX_FULLROWSELECT,LVS_EX_FULLROWSELECT);<br> <br> lvColumn.fmt=LVCFMT_LEFT;<br> lvColumn.mask=LVCF_FMT | LVCF_WIDTH | LVCF_TEXT;<br> lvColumn.cx = 75;<br> <br> lvColumn.pszText =_T("One");<br> ListView_InsertColumn(hWnd,0, &lvColumn);<br> <br> lvColumn.pszText = _T("Two");<br> ListView_InsertColumn(hWnd, 1, &lvColumn);<br> <br> lvColumn.pszText = _T("Three");<br> ListView_InsertColumn(hWnd, 2, &lvColumn);<br> <br> lvColumn.pszText = _T("Four");<br> ListView_InsertColumn(hWnd,4, &lvColumn);<br> <br> lvColumn.pszText = _T("Five");<br> ListView_InsertColumn(hWnd, 5, &lvColumn);<br> <i>Беларусь, Минск</i><br /><b>ICQ #</b> 338283777 <br /><br />-----<br /><font color="gray"><i>Good judgement comes from experience, and experience comes from bad judgement.</i></font> <p> Ответ отправил: <a href="http://rfpro.ru/user/21532" target="_blank" title="ID: 21532 - Ross, Практикант">Ross</a> (Практикант) <br /> Ответ отправлен: <b>11.09.2007, 19:13</b> <p> <table border="0" class="A"> <tr><td><b>Как сказать этому эксперту "спасибо"?</td></tr> <tr><td> <b><li>Отправить SMS</b> <font color="green"><b>#thank 182984</b></font> на номер <font color="green"><b>1151</b></font> (Россия) | <a href="http://rfpro.ru/sms/thank/182984" target="_blank">Еще номера »</a> </td></tr> <form id="pay" name="pay" method="POST" action="https://merchant.webmoney.ru/lmi/payment.asp" target="_blank"> <input type="hidden" name="LMI_PAYMENT_DESC" value="Спасибо!"> <input type="hidden" name="LMI_PAYMENT_NO" value="10000"> <input type="hidden" name="LMI_PAYEE_PURSE" value="R184099794569"> <input type="hidden" name="LMI_SIM_MODE" value="0"> <input type="hidden" name="Thank" value="182984"> <tr><td> <b><li>Отправить WebMoney:</b> <select name="LMI_PAYMENT_AMOUNT" class="box"> <option value="30">Неплохо (30 руб.)</option> <option value="40">Хорошо (40 руб.)</option> <option value="55" selected>Отлично (55 руб.)</option> <option value="80">БЛЕСТЯЩЕ! (80 руб.)</option> </select> <input type="submit" value="Спасибо!" style="font-size: 9" class="button"> </td></tr> </form> <tr><td><i>Вам помогли? Пожалуйста, поблагодарите эксперта за это!</i></td></tr> </table> <b>Отвечает <a href="http://rfpro.ru/user/136752" target="_blank" title="ID: 136752 - Geograph, 2-й класс">Geograph</a> (2-й класс) :</b><br /> Здравствуйте, Farit!<br> Для работы с listview используют функцию SendMessage, с такими параметрами, как LVM_INSERTITEM, LVM_SETITEM и др. Снизу приведен пример на ассемблере, если Вам нужен полный пример с ресурсами скачайте здесь http://webfile.ru/download.php?id=1524063 <p> <b>Приложение:</b><br /> <textarea cols="40" rows="8" class="box">.386.model flat,stdcalloption casemap:noneinclude \masm32\include\windows.incinclude \masm32\include\user32.incinclude \masm32\include\kernel32.incinclude \masm32\include\comctl32.incincludelib \masm32\lib\comctl32.libincludelib \masm32\lib\user32.libincludelib \masm32\lib\kernel32.libWinMain proto :DWORD,:DWORD,:DWORD,:DWORDIDM_MAINMENU equ 10000IDM_ICON equ LVS_ICONIDM_SMALLICON equ LVS_SMALLICONIDM_LIST equ LVS_LISTIDM_REPORT equ LVS_REPORTRGB macro red,green,blue xor eax,eax mov ah,blue shl eax,8 mov ah,green mov al,redendm.dataClassName db "ListViewWinClass",0AppName db "Testing a ListView Control",0ListViewClassName db "SysListView32",0Heading1 db "Filename",0Heading2 db "Size",0FileNamePattern db "*.*",0template db "%lu",0FileNameSortOrder dd 0SizeSortOrder dd 0.data?hInstance HINSTANCE ?hList dd ?hMenu dd ?.codestart: invoke GetModuleHandle, NULL mov hInstance,eax invoke WinMain, hI nstance,NULL, NULL, SW_SHOWDEFAULT invoke ExitProcess,eax invoke InitCommonControlsWinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD LOCAL wc:WNDCLASSEX LOCAL msg:MSG LOCAL hwnd:HWND mov wc.cbSize,SIZEOF WNDCLASSEX mov wc.style, NULL mov wc.lpfnWndProc, OFFSET WndProc mov wc.cbClsExtra,NULL mov wc.cbWndExtra,NULL push hInstance pop wc.hInstance mov wc.hbrBackground,COLOR_WINDOW+1 mov wc.lpszMenuName,IDM_MAINMENU mov wc.lpszClassName,OFFSET ClassName invoke LoadIcon,NULL,IDI_APPLICATION mov wc.hIcon,eax mov wc.hIconSm,eax invoke LoadCursor,NULL,IDC_ARROW mov wc.hCursor,eax invoke RegisterClassEx, addr wc INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\ WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\ CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\ hInst,NULL mov hwnd,eax invoke ShowWindow, hwnd,SW_SHOWNORMAL invoke UpdateWindow, hwnd .while TRUE invoke GetMessage, ADDR msg,NULL,0,0 .break . if (!eax) invoke TranslateMessage, ADDR msg invoke DispatchMessage, ADDR msg .endw mov eax,msg.wParam retWinMain endpInsertColumn proc LOCAL lvc:LV_COLUMN mov lvc.imask,LVCF_TEXT+LVCF_WIDTH mov lvc.pszText,offset Heading1 mov lvc.lx,150 invoke SendMessage,hList, LVM_INSERTCOLUMN,0,addr lvc or lvc.imask,LVCF_FMT mov lvc.fmt,LVCFMT_RIGHT mov lvc.pszText,offset Heading2 mov lvc.lx,100 invoke SendMessage,hList, LVM_INSERTCOLUMN, 1 ,addr lvc ret InsertColumn endpShowFileInfo proc uses edi row:DWORD, lpFind:DWORD LOCAL lvi:LV_ITEM LOCAL buffer[20]:BYTE mov edi,lpFind assume edi:ptr WIN32_FIND_DATA mov lvi.imask,LVIF_TEXT+LVIF_PARAM push row pop lvi.iItem mov lvi.iSubItem,0 lea eax,[edi].cFileName mov lvi.pszText,eax push row pop lvi.lParam invoke SendMessage,hList, LVM_INSERTITEM,0, addr lvi mov lvi.imask,LVIF_TEXT inc lvi.iSubItem invoke wsprintf,addr buffer, addr template,[edi].nFileSizeLow lea eax,buffer mov lvi.pszText,eax invoke SendMessage,hList,LVM_SETITEM, 0,addr lvi assume edi:nothing retShowFileInfo endpFillFileInfo proc uses edi LOCAL finddata:WIN32_FIND_DATA LOCAL FHandle:DWORD invoke FindFirstFile,addr FileNamePattern,addr finddata .if eax!=INVALID_HANDLE_VALUE mov FHandle,eax xor edi,edi .while eax!=0 test finddata.dwFileAttributes,FILE_ATTRIBUTE_DIRECTORY .if ZERO? invoke ShowFileInfo,edi, addr finddata inc edi .endif invoke FindNextFile,FHandle,addr finddata .endw invoke FindClose,FHandle .endif retFillFileInfo endpString2Dword proc uses ecx edi edx esi String:DWORD LOCAL Result:DWORD mov Result,0 mov edi,String invoke lstrlen,String .while eax!=0 xor edx,edx mov dl,byte ptr [edi] sub dl,"0" ; subtrack each digit with "0" to convert it to hex value mov esi,eax dec esi push eax mov eax,edx push ebx mov ebx,10 .while esi > 0 mul ebx dec esi .endw pop ebx add Result,eax pop eax inc edi dec eax .endw mov eax,Result retString2Dword endpCompareFunc proc uses edi lParam1:DWORD, lParam2:DWORD, SortType:DWORD LOCAL buffer[256]:BYTE LOCAL buffer1[256]:BYTE LOCAL lvi:LV_ITEM mov lvi.imask,LVIF_TEXT lea eax,buffer mov lvi.pszText,eax mov lvi.cchTextMax,256 .if SortType==1 mov lvi.iSubItem,1 invoke SendMessage,hList,LVM_GETITEMTEXT,lParam1,addr lvi invoke String2Dword,addr buffer mov edi,eax invoke SendMessage,hList,LVM_GETITEMTEXT,lParam2,addr lvi invoke String2Dword,addr buffer sub edi,eax mov eax,edi .elseif SortType==2 mov lvi.iSubItem,1 invoke SendMessage,hList,LVM_GETITEMTEXT,lParam1,addr lvi invoke String2Dword,addr buffer mov edi,eax invoke SendMessage,hList,LVM_GETITEMTEXT,lParam2,addr lvi invoke String2Dword,addr buffer sub eax,edi .elseif SortType==3 mov lvi.iSubItem,0 invoke SendMessage,hList,LVM_GETITEMTEXT,lParam1,addr lvi invoke lstrcpy,addr buffer1,addr buffer inv oke SendMessage,hList,LVM_GETITEMTEXT,lParam2,addr lvi invoke lstrcmpi,addr buffer1,addr buffer .else mov lvi.iSubItem,0 invoke SendMessage,hList,LVM_GETITEMTEXT,lParam1,addr lvi invoke lstrcpy,addr buffer1,addr buffer invoke SendMessage,hList,LVM_GETITEMTEXT,lParam2,addr lvi invoke lstrcmpi,addr buffer,addr buffer1 .endif retCompareFunc endpUpdatelParam proc uses edi LOCAL lvi:LV_ITEM invoke SendMessage,hList, LVM_GETITEMCOUNT,0,0 mov edi,eax mov lvi.imask,LVIF_PARAM mov lvi.iSubItem,0 mov lvi.iItem,0 .while edi>0 push lvi.iItem pop lvi.lParam invoke SendMessage,hList, LVM_SETITEM,0,addr lvi inc lvi.iItem dec edi .endw retUpdatelParam endpShowCurrentFocus proc LOCAL lvi:LV_ITEM LOCAL buffer[256]:BYTE invoke SendMessage,hList,LVM_GETNEXTITEM,-1,LVNI_FOCUSED mov lvi.iItem,eax mov lvi.iSubItem,0 mov lvi.imask,LVIF_TEXT lea eax,buffer mov lvi.pszText,eax mov lvi.cchTextMax,256 invoke SendMessage,hList,LVM_GETITEM,0,addr lvi invoke MessageBox,0, addr buffer,addr Ap pName,MB_OK retShowCurrentFocus endpWndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM .if uMsg==WM_CREATE invoke CreateWindowEx, NULL, addr ListViewClassName, NULL, LVS_REPORT+WS_CHILD+WS_VISIBLE, 0,0,0,0,hWnd, NULL, hInstance, NULL mov hList, eax invoke InsertColumn invoke FillFileInfo RGB 255,255,255 invoke SendMessage,hList,LVM_SETTEXTCOLOR,0,eax RGB 0,0,0 invoke SendMessage,hList,LVM_SETBKCOLOR,0,eax RGB 0,0,0 invoke SendMessage,hList,LVM_SETTEXTBKCOLOR,0,eax invoke GetMenu,hWnd mov hMenu,eax invoke CheckMenuRadioItem,hMenu,IDM_ICON,IDM_LIST, IDM_REPORT,MF_CHECKED .elseif uMsg==WM_COMMAND .if lParam==0 invoke GetWindowLong,hList,GWL_STYLE and eax,not LVS_TYPEMASK mov edx,wParam and edx,0FFFFh push edx or eax,edx invoke SetWindowLong,hList,GWL_STYLE,eax pop edx invoke CheckMenuRadioItem,hMenu,IDM_ICON,IDM_LIST, edx,MF_CHECKED .endif .elseif uMsg==WM_NOTIFY push edi mov edi,lParam assume edi:ptr NMHDR mov eax,[edi].hwnd From .if eax==hList .if [edi].code==LVN_COLUMNCLICK assume edi:ptr NM_LISTVIEW .if [edi].iSubItem==1 .if SizeSortOrder==0 || SizeSortOrder==2 invoke SendMessage,hList,LVM_SORTITEMS,1,addr CompareFunc invoke UpdatelParam mov SizeSortOrder,1 .else invoke SendMessage,hList,LVM_SORTITEMS,2,addr CompareFunc invoke UpdatelParam mov SizeSortOrder,2 .endif .else .if FileNameSortOrder==0 || FileNameSortOrder==4 invoke SendMessage,hList,LVM_SORTITEMS,3,addr CompareFunc invoke UpdatelParam mov FileNameSortOrder,3 .else invoke SendMessage,hList,LVM_SORTITEMS,4,addr CompareFunc invoke UpdatelParam mov FileNameSortOrder,4 .endif .endif assume edi:ptr NMHDR .elseif [edi].code==NM_DBLCLK invoke ShowCurrentFocus .endif .endif pop edi .elseif uMsg==WM_SIZE mov eax,lParam mov edx,eax and eax,0ffffh shr edx,16 invoke MoveWindow,hList, 0, 0, eax,edx,TRUE .elseif u Msg==WM_DESTROY invoke PostQuitMessage,NULL .else invoke DefWindowProc,hWnd,uMsg,wParam,lParam ret .endif xor eax,eax retWndProc endp end start ICQ # 210170

Ответ отправил: Geograph (2-й класс)
Ответ отправлен: 11.09.2007, 19:30

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 182988 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

подать вопрос экспертам этой рассылки »