что значит - программировать на чистом винапи?

[*PB*]

Сообщение от ромик0

что значит - программировать на чистом винапи?

Ну примерно это значит.

Procedure WindowCallback(hWnd, Msg, wParam, lParam)
  Shared hButton
  
  Select Msg
    Case #WM_COMMAND
       If hButton = lParam
         MessageBox_(hWnd,"Ну что ж за день сегодня такой?"+Chr(10)+"Все меня закликали бедную!","Бедная я кнопко!",64)
       EndIf
    Case #WM_CLOSE 
      DestroyWindow_(hWnd) 
    Case #WM_DESTROY 
      PostQuitMessage_(0) : Result  = 0 
    Default 
      Result  = DefWindowProc_(hWnd, Msg, wParam, lParam) 
  EndSelect 
  
  ProcedureReturn Result 
EndProcedure  
 
InitCommonControls_()
DefaultFont = GetStockObject_(#DEFAULT_GUI_FONT)
 
WindowClass.s    = "PureBasic_Win" 
wc.WNDCLASSEX 
wc\cbsize        = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc   = @WindowCallback() 
wc\hCursor       = LoadCursor_(0, #IDC_ARROW) 
wc\hbrBackground = #COLOR_WINDOW
wc\lpszClassName = @WindowClass 
RegisterClassEx_(@wc) 
 
Win_x=GetSystemMetrics_(#SM_CXSCREEN)/2-100
Win_y=GetSystemMetrics_(#SM_CYSCREEN)/2-50
 
hWndMain  = CreateWindowEx_(0, WindowClass, "Мелкая прога API", #WS_SYSMENU | #WS_MINIMIZEBOX, Win_x, Win_y, 200, 120, 0, 0, 0, 0)
 
Text.s="Бинарник этой проги довольно мелкий и не требует дополнительных DLL для своей работы"
hText=CreateWindowEx_(0,"Static", Text, #WS_CHILD | #WS_VISIBLE, 10,10,180,54, hWndMain, 0, 0, 0)
SendMessage_(hText, #WM_SETFONT, DefaultFont, 1)
 
hButton=CreateWindowEx_(0, "Button", "Типа кнопко", #WS_CHILD | #WS_VISIBLE, 100,64,80,24, hWndMain, 0, 0, 0) 
SendMessage_(hButton, #WM_SETFONT, DefaultFont, 1)
 
 
ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 
 
While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend
End

Во вложении скомпилированный исполняемый файл, весом 4 КБ, работающий на Win95 или более современной и не требующий установки дополнительных компонентов для своей работы.

[Пепел Феникса]

а в разделе по АПИ нету ничего чтоль из литературы?

[ромик0]

#include <iostream.h>
#include <windows.h>

int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow)
{

for( ; ; ) {
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND,SC_MONITORPOWER,0);
Sleep(400);


}





скомпилировал... весит 1.23 мегабайта , А ЧЕ ТАК МНОГО ТО????
и как по средствам винапи запретить диспетчер задач?

[Bustle]

что значит - программировать на чистом винапи?

программирование без использования объектов и визуальности (c винапи не знаком. по логике)
Пепел Феникса
Написал ж

c винапи не знаком

[Пепел Феникса]

1)#include <iostream.h>
лучше убрать
2)далее соберите RELEASE
3)да и с настройками компиля поиграться не помешает.

программирование без использования объектов и визуальности (c винапи не знаком. по логике)

бред. ибо как я говорил, вcя та самая визуальность на апи и зиждется.
хотя б возьмем CreateWindow, RegisterClass

Написал ж

видел, но это ж не значит что я не должен опровергнуть неверные данные

[ромик0]

у меня стоит DEV-CPP и когда я убераю #include <iostream.h> то он вообще отказывается компилить, без него никуда. простите , а как настроить компилер?RELEASE - ?

[*PB*]

Сообщение от ромик0

скомпилировал... весит 1.23 мегабайта , А ЧЕ ТАК МНОГО ТО????

Не правильный у тебя компилятор.
Во вложении прога, размер 2.5 КБ.

ВНИМАНИЕ.
Прога выключает монитор!

[Valio]

Сообщение от *PB*

Ну примерно это значит.

Procedure WindowCallback(hWnd, Msg, wParam, lParam)
  Shared hButton
  
.....

Wend
End

Во вложении скомпилированный исполняемый файл, весом 4 КБ, работающий на Win95 или более современной и не требующий установки дополнительных компонентов для своей работы.

Тобишь чистый ВинАпи даёт выигрыш в размере исполняемого файла?
Вообще честно говоря на данный момент компы настолько мощные, а инет настолько быстрый что размер уже не такая большая проблема.

Ну вот такаяже прога будет весить на Делфи ну 500 кб гдето.. в 10 раз размер больше, зато мозг на месте )

[*PB*]

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

Ну вот такаяже прога будет весить на Делфи ну 500 кб гдето.. в 10 раз размер больше, зато мозг на месте )

Если математические законы еще не изменились, то 500 / 4 = 125
То есть в 125 раз меньше, а не в 10.

Ну можно написать без WinAPI.

OpenWindow(0,0,0,200,94,"Мелкая прога",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
Text.s="Бинарник этой проги довольно мелкий и не требует дополнительных DLL для своей работы"
TextGadget(0,10,10,180,54,Text)
ButtonGadget(2,100,64,80,24,"Типа кнопко")

Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget
    If EventGadget() = 2
      MessageRequester("Бедная я кнопко!", "Ну что ж за день сегодня такой?"+Chr(10)+"Все меня закликали бедную!")
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow

Исполняемый файл бует размером 15 КБ, но данный исходник без его правки, можно откомпилировать не только под винду, но и под Linux, а так же MacOS X и даже AmigaOS.

[Blade]

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

зато мозг на месте )

Если у вас от использования WinAPI мозг с места уходит - это только ваша проблема.

к Т.С - хватит баловаться. В одной теме вы cd-rom открываете на WinAPI, в этой диспетчер задач закрываете. Не хорошо такими вещами заниматься

Сообщение от *PB*

но данный исходник без его правки, можно откомпилировать не только под винду, но и под Linux, а так же MacOS X и даже AmigaOS.

Что? Каким это образом код, использующий WinAPI можно компилировать под Linux (и все остальное, что вы перечислили)