forked from KolibriOS/kolibrios
1 line
3.4 KiB
NASM
1 line
3.4 KiB
NASM
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 38 ; required os
|
|
dd STARTAPP ; program start
|
|
dd I_END ; program image size
|
|
dd 0x1000000 ; required amount of memory
|
|
dd 0x1000000 ; stack heap
|
|
dd 0x0
|
|
dd 0x0
|
|
|
|
include '../../../proc32.inc'
|
|
include '../../../macros.inc'
|
|
include '../../../dll.inc'
|
|
|
|
|
|
PATH_MAX equ 255
|
|
|
|
STARTAPP:
|
|
; Initialize heap
|
|
mcall 68, 11
|
|
; Import libraries
|
|
stdcall dll.Load,importTable
|
|
|
|
; Set button style: flat or gradient (3D)
|
|
invoke ini_get_int, aIni, aSection, aButtonStyle, 0
|
|
mov ecx, eax
|
|
mcall 48, 1
|
|
|
|
; Set desktop background
|
|
invoke ini_get_str, aIni, aSection, aBgProgram, sz_app, PATH_MAX, 0
|
|
invoke ini_get_str, aIni, aSection, aBgParam, sz_param, PATH_MAX, 0
|
|
|
|
cmp byte[sz_param], '\' ;detecting KIV param like '\S__/path/to/img'
|
|
jne @f
|
|
|
|
m2m dword [ReadFile.path], sz_param+4
|
|
call check_file_exists
|
|
|
|
@@:
|
|
mcall 70, RunApp
|
|
|
|
; Set system skin
|
|
invoke ini_get_str, aIni, aSection, aSkinPath, sz_param, PATH_MAX, 0
|
|
cmp byte [sz_param], 0 ;no need to set skin if it was not specified
|
|
je @f
|
|
|
|
m2m dword [ReadFile.path], sz_param
|
|
call check_file_exists
|
|
|
|
mcall 48, 8, sz_param
|
|
@@:
|
|
; Exit app
|
|
mcall -1
|
|
|
|
;----------------------------------------------------------------
|
|
; This is fix for files located at /kolibrios and /usbhd drives
|
|
; It checks is the file exists for 5 times with perioud 1 second
|
|
check_file_exists:
|
|
mov edi, 0
|
|
@@:
|
|
mcall 70, ReadFile
|
|
cmp eax,0
|
|
je .exit
|
|
mcall 5, 100
|
|
inc edi
|
|
cmp edi, 5
|
|
jle @b
|
|
.exit:
|
|
ret
|
|
;----------------------------------------------------------------
|
|
|
|
importTable:
|
|
library \
|
|
libini, 'libini.obj'
|
|
|
|
import libini, \
|
|
ini_get_str ,'ini_get_str', \
|
|
ini_get_int ,'ini_get_int'
|
|
|
|
RunApp:
|
|
dd 7 ; subfunction number
|
|
dd 0 ; position in the file in bytes
|
|
dd sz_param ; upper part of the position address
|
|
dd 0 ; number of bytes to read
|
|
dd 0 ; pointer to the buffer to write data
|
|
db 0
|
|
dd sz_app ; pointer to the filename
|
|
|
|
ReadFile:
|
|
dd 0 ; subfunction number
|
|
dd 0 ; position in the file in bytes
|
|
dd 0 ; upper part of the position address
|
|
dd 4 ; number of bytes to read
|
|
dd buf ; pointer to the buffer to write data
|
|
db 0
|
|
.path dd ? ; pointer to the filename
|
|
buf rb 4
|
|
|
|
aIni db '/sys/settings/system.ini',0
|
|
aSection db 'style',0
|
|
|
|
aBgProgram db 'bg_program',0
|
|
aBgParam db 'bg_param',0
|
|
aButtonStyle db 'buttons_gradient',0
|
|
aSkinPath db 'skin',0
|
|
|
|
sz_app:
|
|
rb PATH_MAX
|
|
sz_param:
|
|
rb PATH_MAX
|
|
|
|
I_END: ; End of application code and data marker
|
|
|