Новые версии программ

[JTG]

А в FASM`е тоже можно по-АдынСРусски кодить

include  "1Casm.inc"
include  "win32a.inc"

показать '1С-ассемблер ака Страшный Сон Ассемблерщика by JTG'

формат переносимый_исполняемый графическая_подсистема 4.0
точка_входа старт

сообщение_из_трея       = WM_USER+5
команда_трей            = 0
команда_показать_скрыть = 100
команда_выход           = 101

секция '.данные' данные можно_читать можно_писать

  класс_окна    байты  "русские_победили_и_ассемблер_тоже", 0
  заголовок     байты  "1С SysTray Example", 0
  покскры       байты  "&Показать/Скрыть", 0
  вых           байты  "&ХВАТИТ!!!", 0

  хендл_приложения  дв.слово  неинициализированно
  хендл_меню        дв.слово  неинициализированно
  хендл_окна        дв.слово  неинициализированно
  видимоели         дв.слово  неинициализированно
  сообщение         MSG
  класс             WNDCLASSEX
  хрень             NOTIFYICONDATA

секция '.код' код можно_читать можно_выполнять
  старт:
        вызов         GetModuleHandle,0
        присвоить     [хендл_приложения],eax
        присвоить     [класс.hInstance],eax
        искл.или      eax,eax
        присвоить     [класс.cbSize],sizeof.WNDCLASSEX
        присвоить     [класс.style],eax
        присвоить     [класс.cbClsExtra],eax
        присвоить     [класс.cbWndExtra],eax
        присвоить     [класс.lpszMenuName],eax
        присвоить     [класс.hIconSm],eax
        присвоить     [класс.hbrBackground],COLOR_BTNFACE+1
        присвоить     [класс.lpszClassName],класс_окна
        присвоить     [класс.lpfnWndProc],MainWindowProc
        вызов         LoadIcon, NULL,IDI_APPLICATION
        присвоить     [класс.hIcon],eax
        вызов         LoadCursor, NULL,IDC_ARROW
        присвоить     [класс.hCursor],eax
        вызов         RegisterClassEx, класс
        или           eax,eax
        переход_если_ноль      конец
        вызов         CreateWindowEx, 0,класс_окна,заголовок,WS_VISIBLE+WS_OVERLAPPEDWINDOW,\
                                220,220,200,200,HWND_DESKTOP,0,[хендл_приложения],0
        или           eax,eax
        переход_если_ноль      конец
        присвоить     [хендл_окна],eax
        присвоить     [видимоели],1

  цикл_обработки_сообщений:
        вызов         GetMessage, сообщение,NULL,0,0
        или           eax,eax
        переход_если_ноль      конец
        вызов         TranslateMessage, сообщение
        вызов         DispatchMessage, сообщение
        безусловный_переход     цикл_обработки_сообщений
  конец:
        вызов  ExitProcess, [сообщение.wParam]

[JTG]

...продолжение...

функция MainWindowProc hWnd,uMsg,wparam,lparam
в_стеке pt:POINT
        затолкать_в_стек    ebx esi edi
        присвоить     eax,[uMsg]
        сравнить      eax,сообщение_из_трея
        переход_если_равно      .сообщения_из_трея
        сравнить      eax,WM_COMMAND
        переход_если_равно      .сообщения_от_элементов_управления
        сравнить      eax,WM_SYSCOMMAND
        переход_если_равно      .стандартные_сообщеня_окна
        сравнить      eax,WM_CREATE
        переход_если_равно      .создание_окна
        сравнить      eax,WM_DESTROY
        переход_если_равно      .уничтожение_окна
  .системная_оконная_процедура:
        вызов         DefWindowProc, [hWnd],[uMsg],[wparam],[lparam]
        безусловный_переход     .конец
  .создание_окна:
        присвоить     [хрень.cbSize],sizeof.NOTIFYICONDATA
        присвоить     eax,[hWnd]
        присвоить     [хрень.hWnd],eax
        присвоить     [хрень.uID],команда_трей
        присвоить     [хрень.uFlags],NIF_ICON+NIF_MESSAGE+NIF_TIP
        присвоить     [хрень.uCallbackMessage],сообщение_из_трея
        вызов         LoadIcon, NULL,IDI_WINLOGO
        присвоить     [хрень.hIcon],eax
        присвоить     .8байт[хрень.szTip],"1С р"
        присвоить     .8байт[хрень.szTip+4], "улит"
        вызов         Shell_NotifyIcon, NIM_ADD,хрень
        вызов         CreatePopupMenu
        присвоить     [хендл_меню],eax
        вызов         AppendMenu, eax,MF_STRING,команда_показать_скрыть,покскры
        вызов         AppendMenu, [хендл_меню],MF_STRING,команда_выход,вых
        искл.или      eax,eax
        безусловный_переход     .конец
  .сообщения_от_элементов_управления:
        сравнить      [lparam],0
        переход_если_не_равно     .конец
        присвоить     eax,[wparam]
        сравнить      eax,команда_показать_скрыть
        переход_если_равно      .показать_скрыть
        сравнить      eax,команда_выход
        переход_если_равно      .кнопка_выход
        безусловный_переход     .конец
  .кнопка_выход:
        вызов         DestroyWindow, [hWnd]
        безусловный_переход     .конец

  .стандартные_сообщеня_окна:
        сравнить     [wparam],SC_MINIMIZE
        переход_если_не_равно     .системная_оконная_процедура
     .sc_minimize:
        безусловный_переход     .показать_скрыть

  .сообщения_из_трея:
        сравнить      [wparam],команда_трей
        переход_если_не_равно     .конец
        сравнить      [lparam],WM_LBUTTONDOWN
        переход_если_равно      .показать_скрыть
        сравнить      [lparam],WM_RBUTTONDOWN
        переход_если_равно      .show_tray_popup
        безусловный_переход     .конец
  .показать_скрыть:
        сравнить      [видимоели],0
        переход_если_равно      .показать
      .скрыть:
        вызов         ShowWindow, [hWnd],SW_HIDE
        присвоить     [видимоели], 0
        безусловный_переход     .конец
      .показать:
        вызов  ShowWindow, [hWnd],SW_SHOW
        присвоить     [видимоели], 1
        безусловный_переход     .конец
  .show_tray_popup:
        крутая_команда       eax,[pt]
        вызов         GetCursorPos, eax
        вызов         SetForegroundWindow, [hWnd]
        вызов         TrackPopupMenu, [хендл_меню],TPM_RIGHTALIGN,[pt.x],[pt.y], NULL,[hWnd],NULL
        вызов         PostMessage, [hWnd],WM_NULL,0,0
        безусловный_переход     .конец

  .уничтожение_окна:
        вызов         Shell_NotifyIcon, NIM_DELETE,хрень
        вызов         DestroyMenu, [хендл_меню]
        вызов         PostQuitMessage, 0
        искл.или      eax,eax
  .конец:
        вытащить_из_стека     edi esi ebx
        возврат
конец_функции

секция '.импорт' импорт данные можно_читать

библиотека kernel32,"KERNEL32.DLL",\
           user32,"USER32.DLL",\
           shell32,"SHELL32.DLL"

include "api/kernel32.inc"
include "api/user32.inc"
include "api/shell32.inc"

О_о компилиццо
думаю это войдёт, как говорится, в аналы
sorry за оффтоп

[rpy3uH]

JTG, красавчик!
я один исходник видел наподобие, но больше всего меня там улыбнул перевод команды hlt - пздц.

[Alter]

посмотрел 1С асм, такой ужас чего-то на нём писать.

[Altera]

Инглиш более лаконичен. На нём вырожения короче.

[Air]

JTG
Вот Вам новая версия программы FASM, я её перевёл на русский немного, слегка коряво, за то понятно, кому интересно берите, только ещё текст в сообщениях не нашёл и значит не перевёл.

[Skolot]

Надо прожечь видео с wmv файлами на DVD.
Для операционки Vista. Наверное, версия 6 ?
Где бы ее скачать?

[Altera]

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

Надо прожечь видео с wmv файлами на DVD.
Для операционки Vista. Наверное, версия 6 ?
Где бы ее скачать?

Думаю, что на висте шестёрка не пойдёт

[Levsha100]

ЫЫЫ, ээээ
А если у меня бубунта и она сама все обновляет?

[Alter]

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

Надо прожечь видео с wmv файлами на DVD.
Для операционки Vista. Наверное, версия 6 ?
Где бы ее скачать?

Ставьте лучше это Ashampoo Burning Studio 10. Быстро грузится, функций много, весит меньше nеrо. Отличная программа. Windows любая.