Нужно обяснит код(по возможности каждую строчук)

[artiom4356]

Решил сделать какую ни будь новенькую програмку. Посмотрел в интеренете и нашёл вот этот пример. Пытался разобраться сам но нихрена не получилась. Основы та я знаю а вот с таким встречаюсь в первые



program Project1;

uses
windows, messages, sysutils;//особенно нужно обяснит вот эти модули и что в них есть, ну например какие типы или команды

{$R *.RES}

var
Instance: HWnd;
WindowClass: TWndClass;
Handle: HWnd;
msg: TMsg;

procedure DoExit;
begin
Halt;
end;

function WindowProc (Hwnd,msg,wparam,lparam: longint): longint; stdcall;
begin
if msg=wm_destroy then
DoExit;

if msg=wm_KeyDown then
if wparam=VK_ESCAPE then
DoExit;
result:=defwindowproc(hwnd,msg,wpar am,lparam);
end;

begin
instance :=GetModuleHandle(nil);

WindowClass.style:=CS_HRedraw or CS_VRedraw;
WindowClass.Lpfnwndproc:=@windowpro c;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= color_btnface;
WindowClass.LpszClassName:='DX';
WindowClass.Hcursor:=LoadCursor(0,I DC_ARROW);

RegisterClass(WindowClass);

Handle:=CreateWindowEx (0,'DX','',WS_POPUP, 5,5, 200, 200,0,0,instance, nil);
ShowWindow(Handle, SW_SHOW);
UpdateWindow (Handle);

while (GetMessage(msg, 0, 0, 0)) do
begin
translatemessage(msg);
dispatchmessage (msg);
end;
end.

[Smitt&Wesson]

Решил сделать какую ни будь новенькую програмку

Нужно обяснит код

Кто-нибудь, меня из-под стола вытащит?

[Krok27]

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

uses
windows, messages, sysutils;//особенно нужно обяснит вот эти модули и что в них есть, ну например какие типы или команды

{

Встроенные, производные типы средства манипуляции оными.

Программка создает средствами WinAPI окошко.
На ктором скоро будет написано:

Вытащите, наконец, Smitt&Wesson из под стола!!!!!!

[ZX Spectrum-128]

Сообщение от Smitt&Wesson

Кто-нибудь, меня из-под стола вытащит?

Надо подождать, пока Yelenka не заглянет.




ТС явно прикалывается же. Даже собственное место жительства с ошибкой написано.

[Smitt&Wesson]

Представьте к Вам время от времени будет приходить человек и смотреть что Вы читаете в туалете, какие файлы храните на компьютере, считать сколько у Вас дырявых носков - ресурсы же русские. И дело не в том, что там нет ничего противозаконного - это просто не приятно.

Каков-бы, я нибыл мудак, с политической точки зреия, но, однако - Вы правы.
Utkin, заканчиваем холивар, лады?

[Smitt&Wesson]

artiom4356, Вы думате сдесь, зря, выдумали теги, обозначающие код?
Прошу Вас, уважайте труд людей.

[artiom4356]

Я вроде много и не прошу. Ну а если не хотите объяснять то киньте хотя бы ссылку на каждый из этих модулей и на пояснение переменных(А то я тоже не совсем их понял)

[Vanta11a]

instance :=GetModuleHandle(nil);

Retrieves a module handle for the specified module. The module must have been loaded by the calling process.

Ну и в гуголь, в гуголь! Потому что Вы уже соврамши, ибо основ не знаете.