yanus0
Цитата:
WINNTBBU.DLL експортирует InitBillBoard, ProgressGaugeMsg, SetInfoText, SetProgressText, SetStep, SetTimeEstimate
|
Если есть реальный интерес, то вот:
Код:
{
SCU = 5; valid 0..5
0 XP Professional
1 Whisler Server
2 Whisler Advanced Server
3 Whisler Datacenter Server
4 XP Home
5 Whisler Blade Server
}]
type
TInitBillBoard = function(ParentWnd:DWORD; CmdShow:LPCWSTR; SCU:DWORD ):DWORD; stdcall;
TStartBillBoard = function: DWORD; stdcall;
TStopBillBoard = function: DWORD; stdcall;
TTermBillBoard = function: DWORD; stdcall;
TSetStep = function(lParam: LPARAM): DWORD; stdcall;
TSetProgressText = function(lpString: LPCWSTR): DWORD; stdcall;
TSetTimeEstimate = function(lpString: LPCWSTR): DWORD; stdcall;
TSetProgress = function(Progress: DWORD): DWORD; stdcall;
TShowProgressGaugeWindow = function(nCmdShow: Integer): DWORD; stdcall;
TSetInfoText = function(lpString: LPCWSTR): DWORD; stdcall;
TBB_Refresh = function: DWORD; stdcall;
TGetBBHwnd = function:Hwnd; stdcall;
TGetBBMainHwnd = function:Hwnd; stdcall;
TGetPanelCount = function:dword; stdcall;
TProgressGaugeMsg = function(Msg: UINT; _wParam: WPARAM; _lParam: LPARAM): DWORD; stdcall;
Во вложение - обертка для библиотеки для изучения и запускалка всех функций. Код - Delphi7.