forked from KolibriOS/kolibrios
1510 lines
40 KiB
NASM
1510 lines
40 KiB
NASM
format PE GUI 4.0 at 400000h
|
|
section '.text' code readable executable
|
|
entry start
|
|
|
|
include 'config_resource.inc'
|
|
|
|
start:
|
|
call [GetProcessHeap]
|
|
mov [hHeap], eax
|
|
xor ebx, ebx
|
|
; SHBrowseForFolder requires CoInitialize (according to docs)
|
|
push 2
|
|
push ebx
|
|
call [CoInitializeEx]
|
|
mov edi, full_ini_name
|
|
push 1000
|
|
push edi
|
|
push ebx
|
|
call [GetModuleFileNameA]
|
|
@@:
|
|
inc edi
|
|
cmp byte [edi-1], 0
|
|
jnz @b
|
|
@@:
|
|
dec edi
|
|
cmp byte [edi-1], '\'
|
|
jnz @b
|
|
mov [pathzeroptr], edi
|
|
mov esi, IniFileName
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
push ebx ; hTemplateFile
|
|
push 80h ; dwFlagsAndAttributes = FILE_ATTRIBUTE_NORMAL
|
|
push 1 ; dwCreationDisposition = CREATE_NEW
|
|
push ebx ; lpSecurityAttributes
|
|
push ebx ; dwShareMode
|
|
push 40000000h ; dwDesiredAccess = GENERIC_WRITE
|
|
push full_ini_name ; lpFileName
|
|
call [CreateFileA]
|
|
mov esi, eax
|
|
inc eax
|
|
jz .ini_exists
|
|
push eax
|
|
mov eax, esp
|
|
push ebx ; lpOverlapped
|
|
push eax ; lpNumberOfBytesWritten
|
|
push ini_size ; nNumberOfBytesToWrite
|
|
push ini ; lpBuffer
|
|
push esi ; hFile
|
|
call [WriteFile]
|
|
pop eax
|
|
push esi
|
|
call [CloseHandle]
|
|
.ini_exists:
|
|
push ebx
|
|
push DlgProc
|
|
push ebx
|
|
push IDD_DIALOG1
|
|
push 400000h
|
|
call [DialogBoxParamA]
|
|
push eax
|
|
call [CoUninitialize]
|
|
call [ExitProcess]
|
|
|
|
DlgProc:
|
|
push ebx
|
|
mov ebx, [esp+8]
|
|
mov eax, [esp+12]
|
|
cmp eax, 10h ; WM_CLOSE
|
|
jz .close
|
|
sub eax, 110h ; WM_INITDIALOG
|
|
jz .init
|
|
dec eax ; WM_COMMAND
|
|
jz .command
|
|
pop ebx
|
|
xor eax, eax
|
|
ret 16
|
|
.close:
|
|
push 0
|
|
push ebx
|
|
call [EndDialog]
|
|
.true:
|
|
pop ebx
|
|
xor eax, eax
|
|
inc eax
|
|
ret 16
|
|
.command:
|
|
cmp word [esp+16], 2 ; IDCANCEL
|
|
jz .close
|
|
cmp word [esp+16], IDC_HD_DEV
|
|
jnz .no_hd_dev
|
|
cmp word [esp+18], 1 ; LBN_SELCHANGE
|
|
jnz .true
|
|
.lastdel:
|
|
call OnSelectHdDev
|
|
jmp .true
|
|
.no_hd_dev:
|
|
cmp word [esp+16], IDC_HD_PART
|
|
jnz .no_hd_part
|
|
cmp word [esp+18], 1
|
|
jnz .true
|
|
cmp [cur_hd_dev], -1
|
|
jz .true
|
|
call OnSelectHdPart
|
|
jmp .true
|
|
.no_hd_part:
|
|
mov eax, IDC_SKIN
|
|
mov [filter], skn_filter
|
|
cmp word [esp+16], IDC_SKIN_BROWSE
|
|
jz @f
|
|
mov eax, IDC_FONT1
|
|
mov [filter], mt_filter
|
|
cmp word [esp+16], IDC_FONT1_BROWSE
|
|
jz @f
|
|
mov eax, IDC_FONT2
|
|
cmp word [esp+16], IDC_FONT2_BROWSE
|
|
jnz .nofilebrowse
|
|
@@:
|
|
push eax
|
|
push 512
|
|
push cur_ini_param
|
|
push eax
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push ofn
|
|
call [GetOpenFileNameA]
|
|
test eax, eax
|
|
pop eax
|
|
jz .true
|
|
push cur_ini_param
|
|
push eax
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
jmp .true
|
|
.nofilebrowse:
|
|
mov eax, IDC_RAMDISK
|
|
cmp word [esp+16], IDC_RAMDISK_BROWSE
|
|
jz @f
|
|
mov eax, IDC_PARTITION
|
|
cmp word [esp+16], IDC_PARTITION_BROWSE
|
|
jnz .nodirbrowse
|
|
@@:
|
|
push eax
|
|
push 512
|
|
push cur_ini_param
|
|
push eax
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push bi
|
|
call [SHBrowseForFolder]
|
|
test eax, eax
|
|
pop ecx
|
|
jz .true
|
|
push ecx eax
|
|
push cur_ini_param
|
|
push eax
|
|
call [SHGetPathFromIDList]
|
|
test eax, eax
|
|
pop eax ecx
|
|
jz .nodir
|
|
push eax
|
|
push cur_ini_param
|
|
push ecx
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
pop eax
|
|
.nodir:
|
|
push eax
|
|
push eax
|
|
push esp
|
|
call [SHGetMalloc]
|
|
pop eax
|
|
pop edx
|
|
push eax
|
|
push edx
|
|
push eax
|
|
mov eax, [eax]
|
|
call dword [eax+20]
|
|
pop eax
|
|
push eax
|
|
mov eax, [eax]
|
|
call dword [eax+8]
|
|
jmp .true
|
|
.nodirbrowse:
|
|
cmp word [esp+16], IDC_ADD_PARTITION
|
|
jnz .noadd
|
|
cmp [cur_hd_dev], -1
|
|
jz .true
|
|
push eax
|
|
call set_cur_part
|
|
pop eax
|
|
mov eax, [cur_hd_dev]
|
|
mov ecx, [hdns+eax*4]
|
|
inc cl
|
|
jnz @f
|
|
push 10h
|
|
push 0
|
|
push aTooManyPartitions
|
|
push ebx
|
|
call [MessageBoxA]
|
|
jmp .true
|
|
@@:
|
|
mov [hdns+eax*4], ecx
|
|
push eax
|
|
shl ecx, 9
|
|
mov edx, [hdpart+eax*4]
|
|
test edx, edx
|
|
jz .alloc
|
|
push ecx
|
|
push [hdpart+eax*4]
|
|
push 0
|
|
push [hHeap]
|
|
call [HeapReAlloc]
|
|
jmp @f
|
|
.alloc:
|
|
push ecx
|
|
push 0
|
|
push [hHeap]
|
|
call [HeapAlloc]
|
|
@@:
|
|
pop ecx
|
|
mov [hdpart+ecx*4], eax
|
|
call OnSelectHdDev
|
|
mov eax, [cur_hd_dev]
|
|
mov ecx, [hdns+eax*4]
|
|
dec ecx
|
|
mov eax, [hdpart+eax*4]
|
|
push 0
|
|
push ecx
|
|
shl ecx, 9
|
|
mov byte [eax+ecx], 0
|
|
mov byte [eax+ecx+511], 0
|
|
push 186h ; LB_SETCURSEL
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
call OnSelectHdPart
|
|
jmp .true
|
|
.noadd:
|
|
cmp word [esp+16], IDC_DEL_PARTITION
|
|
jnz .nodel
|
|
mov eax, [cur_hd_dev]
|
|
cmp eax, -1
|
|
jz .true
|
|
mov ecx, [hdns+eax*4]
|
|
dec ecx
|
|
js .true
|
|
mov [hdns+eax*4], ecx
|
|
push eax ecx
|
|
push 0
|
|
push ecx
|
|
push 182h ; LB_DELETESTRING
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
pop ecx eax
|
|
push eax
|
|
shl ecx, 9
|
|
push ecx
|
|
push [hdpart+eax*4]
|
|
push 0
|
|
push [hHeap]
|
|
call [HeapReAlloc]
|
|
pop ecx
|
|
mov [hdpart+ecx*4], eax
|
|
mov eax, [hdns+ecx*4]
|
|
test eax, eax
|
|
jz .lastdel
|
|
cmp [cur_hd_part], eax
|
|
jnz @f
|
|
or [cur_hd_part], -1
|
|
push 0
|
|
push eax
|
|
push 186h
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
@@:
|
|
call OnSelectHdPart
|
|
jmp .true
|
|
.nodel:
|
|
cmp word [esp+16], IDC_NOTEMPTY_EXT
|
|
jnz .noassoc
|
|
push 0
|
|
push 0
|
|
push 0F0h ; BM_GETCHECK
|
|
push IDC_NOTEMPTY_EXT
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push eax
|
|
mov ecx, IDC_EXTENSIONS
|
|
call enable_part_items.1
|
|
pop eax
|
|
jmp .true
|
|
.noassoc:
|
|
cmp word [esp+16], 1 ; IDOK
|
|
jnz .true
|
|
call set_cur_part
|
|
; check input parameters
|
|
push esi
|
|
mov esi, [pathzeroptr]
|
|
mov byte [esi-1], 0
|
|
push full_ini_name
|
|
call [SetCurrentDirectoryA]
|
|
mov byte [esi-1], '\'
|
|
pop esi
|
|
mov ecx, IDC_RAMDISK
|
|
call check_file_exists
|
|
mov ecx, IDC_SKIN
|
|
call check_file_exists
|
|
mov ecx, IDC_FONT1
|
|
call check_file_exists
|
|
mov ecx, IDC_FONT2
|
|
call check_file_exists
|
|
; ramdisk
|
|
push 512
|
|
push cur_ini_param
|
|
push IDC_RAMDISK
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
mov ecx, cur_ini_param
|
|
call add_trailing_slash
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push ramdisk_keyname
|
|
push aDisk
|
|
call [WritePrivateProfileStringA]
|
|
; hard disks - delete old values
|
|
push esi
|
|
xor esi, esi
|
|
mov [aHdNn+2], '0'
|
|
.readhd_del:
|
|
push full_ini_name ; lpFileName
|
|
push 0 ; nDefault
|
|
push aHdNn ; lpKeyName
|
|
push aDisk ; lpAppName
|
|
call [GetPrivateProfileIntA]
|
|
push eax
|
|
push full_ini_name
|
|
push 0
|
|
push aHdNn
|
|
push aDisk
|
|
call [WritePrivateProfileStringA]
|
|
pop eax
|
|
inc [aHdNn+2]
|
|
test eax, eax
|
|
jz .3
|
|
push eax
|
|
push 1
|
|
.2:
|
|
push dword [esp]
|
|
push esi
|
|
push aHdNM
|
|
push cur_ini_name
|
|
call [wsprintfA]
|
|
add esp, 10h
|
|
push full_ini_name
|
|
push 0
|
|
push cur_ini_name
|
|
push aDisk
|
|
call [WritePrivateProfileStringA]
|
|
pop ecx
|
|
inc ecx
|
|
cmp ecx, [esp]
|
|
ja @f
|
|
push ecx
|
|
jmp .2
|
|
@@:
|
|
pop eax
|
|
.3:
|
|
inc esi
|
|
cmp esi, 4
|
|
jb .readhd_del
|
|
; hard disks - write new values
|
|
xor esi, esi
|
|
mov [aHdNn+2], '0'
|
|
.writehd:
|
|
mov eax, [hdns+esi*4]
|
|
test eax, eax
|
|
jz .writehd_next
|
|
push edi
|
|
push -'0'
|
|
@@:
|
|
xor edx, edx
|
|
mov ecx, 10
|
|
div ecx
|
|
push edx
|
|
test eax, eax
|
|
jnz @b
|
|
@@:
|
|
mov edi, cur_ini_param
|
|
@@:
|
|
pop eax
|
|
add al, '0'
|
|
stosb
|
|
jnz @b
|
|
pop edi
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push aHdNn
|
|
push aDisk
|
|
call [WritePrivateProfileStringA]
|
|
push 1
|
|
.4:
|
|
push dword [esp]
|
|
push esi
|
|
push aHdNM
|
|
push cur_ini_name
|
|
call [wsprintfA]
|
|
add esp, 10h
|
|
pop eax
|
|
push eax
|
|
dec eax
|
|
shl eax, 9
|
|
push esi edi
|
|
mov esi, [hdpart+esi*4]
|
|
add esi, eax
|
|
mov edi, cur_ini_param
|
|
push esi
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
pop esi
|
|
cmp byte [esi+511], 0
|
|
jz @f
|
|
mov byte [edi-1], ','
|
|
mov dword [edi], 'read'
|
|
mov dword [edi+4], 'only'
|
|
mov byte [edi+8], 0
|
|
@@:
|
|
pop edi esi
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push cur_ini_name
|
|
push aDisk
|
|
call [WritePrivateProfileStringA]
|
|
pop ecx
|
|
inc ecx
|
|
cmp ecx, [hdns+esi*4]
|
|
ja .writehd_next
|
|
push ecx
|
|
jmp .4
|
|
.writehd_next:
|
|
inc [aHdNn+2]
|
|
inc esi
|
|
cmp esi, 4
|
|
jb .writehd
|
|
; skin file
|
|
push 512
|
|
push cur_ini_param
|
|
push IDC_SKIN
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push aSkin
|
|
push aMain
|
|
call [WritePrivateProfileStringA]
|
|
; system fonts
|
|
push 512
|
|
push cur_ini_param
|
|
push IDC_FONT1
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push aFont1
|
|
push aMain
|
|
call [WritePrivateProfileStringA]
|
|
push 512
|
|
push cur_ini_param
|
|
push IDC_FONT2
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push full_ini_name
|
|
push cur_ini_param
|
|
push aFont2
|
|
push aMain
|
|
call [WritePrivateProfileStringA]
|
|
; associations
|
|
push 0
|
|
push 0
|
|
push 0F0h
|
|
push IDC_EMPTY_EXT
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
cmp eax, [bWasEmptyAssoc]
|
|
jz .nomodify_empty_assoc
|
|
test eax, eax
|
|
jz .del_empty_assoc
|
|
mov esi, null
|
|
call add_assoc
|
|
jmp .nomodify_empty_assoc
|
|
.del_empty_assoc:
|
|
mov esi, null
|
|
call del_assoc
|
|
.nomodify_empty_assoc:
|
|
push edi
|
|
mov esi, cur_ext
|
|
mov byte [esi], 0
|
|
push 0
|
|
push 0
|
|
push 0F0h
|
|
push IDC_NOTEMPTY_EXT
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
test eax, eax
|
|
jz @f
|
|
push 1024
|
|
push esi
|
|
push IDC_EXTENSIONS
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
@@:
|
|
.scan1loop:
|
|
mov edi, assoc_ext
|
|
call find_ext
|
|
jz @f
|
|
call add_assoc
|
|
@@:
|
|
lodsb
|
|
call is_ext_delim
|
|
jnz @b
|
|
test al, al
|
|
jz @f
|
|
cmp byte [esi], 0
|
|
jnz .scan1loop
|
|
@@:
|
|
mov esi, assoc_ext
|
|
cmp byte [esi], 0
|
|
jz .scan2done
|
|
.scan2loop:
|
|
mov edi, cur_ext
|
|
call find_ext
|
|
jz @f
|
|
call del_assoc
|
|
@@:
|
|
lodsb
|
|
call is_ext_delim
|
|
jnz @b
|
|
test al, al
|
|
jz @f
|
|
cmp byte [esi], 0
|
|
jnz .scan2loop
|
|
@@:
|
|
.scan2done:
|
|
pop edi
|
|
.nomodify_notempty_assoc:
|
|
pop esi
|
|
jmp .close
|
|
|
|
.init:
|
|
; window icons
|
|
push 0
|
|
push 16
|
|
push 16
|
|
push 1
|
|
push IDI_ICON1
|
|
push 400000h
|
|
call [LoadImageA]
|
|
push eax
|
|
push 0
|
|
push 80h
|
|
push ebx
|
|
call [SendMessageA]
|
|
push 0
|
|
push 32
|
|
push 32
|
|
push 1
|
|
push IDI_ICON1
|
|
push 400000h
|
|
call [LoadImageA]
|
|
push eax
|
|
push 1
|
|
push 80h
|
|
push ebx
|
|
call [SendMessageA]
|
|
; ramdisk
|
|
push full_ini_name ; lpFileName
|
|
push 512 ; nSize
|
|
push cur_ini_param ; lpReturnedString
|
|
push null ; lpDefault
|
|
push ramdisk_keyname ; lpKeyName
|
|
push aDisk ; lpAppName
|
|
call [GetPrivateProfileStringA]
|
|
push cur_ini_param
|
|
push IDC_RAMDISK
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
; hard disks
|
|
push 4
|
|
pop ecx
|
|
@@:
|
|
push ecx
|
|
push aHdN
|
|
push 0
|
|
push 180h ; LB_ADDSTRING
|
|
push IDC_HD_DEV
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
inc [aHdN+3]
|
|
pop ecx
|
|
loop @b
|
|
push esi
|
|
xor esi, esi
|
|
.readhd:
|
|
push full_ini_name ; lpFileName
|
|
push 0 ; nDefault
|
|
push aHdNn ; lpKeyName
|
|
push aDisk ; lpAppName
|
|
call [GetPrivateProfileIntA]
|
|
inc [aHdNn+2]
|
|
mov [hdns+esi*4], eax
|
|
and [hdpart+esi*4], 0
|
|
push edi
|
|
test eax, eax
|
|
jz .nopart
|
|
shl eax, 9
|
|
push eax
|
|
push 0
|
|
push [hHeap]
|
|
call [HeapAlloc]
|
|
mov edi, eax
|
|
mov [hdpart+esi*4], eax
|
|
push 1
|
|
.1:
|
|
push dword [esp]
|
|
push esi
|
|
push aHdNM
|
|
push cur_ini_name
|
|
call [wsprintfA]
|
|
add esp, 10h
|
|
mov byte [edi+511], 0
|
|
push full_ini_name
|
|
push 511
|
|
push edi
|
|
push null
|
|
push cur_ini_name
|
|
push aDisk
|
|
call [GetPrivateProfileStringA]
|
|
mov eax, edi
|
|
@@:
|
|
inc eax
|
|
cmp byte [eax], 0
|
|
jnz @b
|
|
sub eax, 9
|
|
cmp eax, edi
|
|
jbe @f
|
|
cmp byte [eax], ','
|
|
jnz @f
|
|
cmp dword [eax+1], 'read'
|
|
jnz @f
|
|
cmp dword [eax+5], 'only'
|
|
jnz @f
|
|
mov byte [eax], 0
|
|
mov byte [edi+511], 1
|
|
@@:
|
|
add edi, 512
|
|
pop ecx
|
|
inc ecx
|
|
cmp ecx, [hdns+esi*4]
|
|
ja .nopart
|
|
push ecx
|
|
jmp .1
|
|
.nopart:
|
|
pop edi
|
|
inc esi
|
|
cmp esi, 4
|
|
jb .readhd
|
|
pop esi
|
|
push 0
|
|
push 0
|
|
push 186h ; LB_SETCURSEL
|
|
push IDC_HD_DEV
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
call OnSelectHdDev
|
|
; skin
|
|
push full_ini_name ; lpFileName
|
|
push 512 ; nSize
|
|
push cur_ini_param ; lpReturnedString
|
|
push null ; lpDefault
|
|
push aSkin ; lpKeyName
|
|
push aMain ; lpAppName
|
|
call [GetPrivateProfileStringA]
|
|
push cur_ini_param
|
|
push IDC_SKIN
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
; fonts
|
|
push full_ini_name ; lpFileName
|
|
push 512 ; nSize
|
|
push cur_ini_param ; lpReturnedString
|
|
push null ; lpDefault
|
|
push aFont1 ; lpKeyName
|
|
push aMain ; lpAppName
|
|
call [GetPrivateProfileStringA]
|
|
push cur_ini_param
|
|
push IDC_FONT1
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
push full_ini_name ; lpFileName
|
|
push 512 ; nSize
|
|
push cur_ini_param ; lpReturnedString
|
|
push null ; lpDefault
|
|
push aFont2 ; lpKeyName
|
|
push aMain ; lpAppName
|
|
call [GetPrivateProfileStringA]
|
|
push cur_ini_param
|
|
push IDC_FONT2
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
push emptyExt
|
|
call check_association
|
|
mov [bWasEmptyAssoc], eax
|
|
push 0
|
|
push eax
|
|
push 0F1h ; BM_SETCHECK
|
|
push IDC_EMPTY_EXT
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push esi edi
|
|
xor esi, esi
|
|
mov edi, assoc_ext
|
|
.enum:
|
|
push 1024
|
|
mov eax, esp
|
|
push 0
|
|
push 0
|
|
push 0
|
|
push 0
|
|
push eax
|
|
push cur_ext
|
|
push esi
|
|
push 80000000h
|
|
call [RegEnumKeyExA]
|
|
test eax, eax
|
|
pop eax
|
|
jnz .enum_done
|
|
cmp byte [cur_ext], '.'
|
|
jnz .next
|
|
cmp byte [cur_ext+1], 0
|
|
jz .next
|
|
push cur_ext
|
|
call check_association
|
|
jz .next
|
|
push esi
|
|
mov esi, cur_ext+1
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
mov byte [edi-1], ';'
|
|
pop esi
|
|
.next:
|
|
inc esi
|
|
jmp .enum
|
|
.enum_done:
|
|
mov byte [edi], 0
|
|
pop edi esi
|
|
xor eax, eax
|
|
cmp byte [assoc_ext], 0
|
|
setnz al
|
|
push 0
|
|
push eax
|
|
push 0F1h
|
|
push IDC_NOTEMPTY_EXT
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
cmp byte [assoc_ext], 0
|
|
jz .no_custom
|
|
push assoc_ext
|
|
push IDC_EXTENSIONS
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
jmp .assoc_done
|
|
.no_custom:
|
|
push def_custom_assoc
|
|
push IDC_EXTENSIONS
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
push 0
|
|
mov ecx, IDC_EXTENSIONS
|
|
call enable_part_items.1
|
|
pop eax
|
|
.assoc_done:
|
|
pop ebx
|
|
xor eax, eax
|
|
ret 16
|
|
|
|
set_cur_part:
|
|
cmp [cur_hd_dev], -1
|
|
jz .ret
|
|
cmp [cur_hd_part], -1
|
|
jnz @f
|
|
.ret:
|
|
ret
|
|
@@:
|
|
push eax ecx
|
|
mov ecx, [cur_hd_part]
|
|
mov eax, [cur_hd_dev]
|
|
shl ecx, 9
|
|
add ecx, [hdpart+eax*4]
|
|
push ecx
|
|
push 510
|
|
push ecx
|
|
push IDC_PARTITION
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push dword [esp]
|
|
call [GetFileAttributesA]
|
|
cmp eax, -1
|
|
jz .err
|
|
test al, 10h
|
|
jz .err
|
|
push 0
|
|
push 0
|
|
push 0F0h ; BM_GETCHECK
|
|
push IDC_CHECK1
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
pop ecx
|
|
mov [ecx+511], al
|
|
call add_trailing_slash
|
|
pop ecx eax
|
|
ret
|
|
.err:
|
|
push 10h
|
|
push 0
|
|
push aInvalidPath
|
|
push ebx
|
|
call [MessageBoxA]
|
|
pop ecx
|
|
pop ecx eax
|
|
pop eax eax
|
|
push 0
|
|
push [cur_hd_dev]
|
|
push 186h
|
|
push IDC_HD_DEV
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push 0
|
|
push [cur_hd_part]
|
|
push 186h
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
call focus_on_path
|
|
jmp DlgProc.true
|
|
|
|
focus_on_path:
|
|
push IDC_PARTITION
|
|
push ebx
|
|
call [GetDlgItem]
|
|
push eax
|
|
call [SetFocus]
|
|
ret
|
|
|
|
add_trailing_slash:
|
|
inc ecx
|
|
cmp byte [ecx], 0
|
|
jnz add_trailing_slash
|
|
cmp byte [ecx-1], '\'
|
|
jz @f
|
|
mov word [ecx], '\'
|
|
@@:
|
|
ret
|
|
|
|
enable_part_items:
|
|
push eax
|
|
mov ecx, IDC_PATH_STRING
|
|
call .1
|
|
mov ecx, IDC_PARTITION
|
|
call .1
|
|
mov ecx, IDC_PARTITION_BROWSE
|
|
call .1
|
|
mov ecx, IDC_CHECK1
|
|
call .1
|
|
pop eax
|
|
ret
|
|
|
|
.1:
|
|
push ecx
|
|
push ebx
|
|
call [GetDlgItem]
|
|
push dword [esp+4]
|
|
push eax
|
|
call [EnableWindow]
|
|
ret
|
|
|
|
OnSelectHdDev:
|
|
push 0
|
|
push 0
|
|
push 188h ; LB_GETCURSEL
|
|
push IDC_HD_DEV
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
cmp eax, 4
|
|
jae .ret
|
|
call set_cur_part
|
|
mov [cur_hd_dev], eax
|
|
or [cur_hd_part], -1
|
|
push eax
|
|
xor eax, eax
|
|
call enable_part_items
|
|
push null
|
|
push IDC_PARTITION
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
push 0
|
|
push 0
|
|
push 0F1h ; BM_SETCHECK
|
|
push IDC_CHECK1
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push 0
|
|
push 0
|
|
push 184h ; LB_RESETCONTENT
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
pop eax
|
|
cmp dword [hdns+eax*4], 0
|
|
jnz .haspart
|
|
push aNone
|
|
push 0
|
|
push 180h ; LB_ADDSTRING
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push 0
|
|
.done:
|
|
mov ecx, IDC_HD_PART
|
|
call enable_part_items.1
|
|
mov ecx, IDC_DEL_PARTITION
|
|
call enable_part_items.1
|
|
pop eax
|
|
.ret:
|
|
ret
|
|
.haspart:
|
|
push esi
|
|
mov esi, eax
|
|
push 1
|
|
@@:
|
|
push dword [esp]
|
|
push esi
|
|
push aHdNM2
|
|
push cur_ini_name
|
|
call [wsprintfA]
|
|
add esp, 10h
|
|
push cur_ini_name
|
|
push 0
|
|
push 180h
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
pop ecx
|
|
inc ecx
|
|
cmp ecx, [hdns+esi*4]
|
|
ja @f
|
|
push ecx
|
|
jmp @b
|
|
@@:
|
|
pop esi
|
|
push 1
|
|
jmp .done
|
|
|
|
OnSelectHdPart:
|
|
push 0
|
|
push 0
|
|
push 188h
|
|
push IDC_HD_PART
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
mov ecx, [cur_hd_dev]
|
|
cmp eax, [hdns+ecx*4]
|
|
jae .ret
|
|
call set_cur_part
|
|
mov [cur_hd_part], eax
|
|
mov ecx, [hdpart+ecx*4]
|
|
shl eax, 9
|
|
add ecx, eax
|
|
push ecx
|
|
movzx eax, byte [ecx+511]
|
|
push 0
|
|
push eax
|
|
push 0F1h ; BM_SETCHECK
|
|
push IDC_CHECK1
|
|
push ebx
|
|
call [SendDlgItemMessageA]
|
|
push IDC_PARTITION
|
|
push ebx
|
|
call [SetDlgItemTextA]
|
|
xor eax, eax
|
|
inc eax
|
|
call enable_part_items
|
|
call focus_on_path
|
|
.ret:
|
|
ret
|
|
|
|
check_association:
|
|
push hkey
|
|
push 1 ; KEY_QUERY_VALUE
|
|
push 0
|
|
push dword [esp+16]
|
|
push 80000000h ; HKEY_CLASSES_ROOT
|
|
call [RegOpenKeyExA]
|
|
test eax, eax
|
|
jnz .not
|
|
push 1000
|
|
push esp
|
|
push cur_ini_param
|
|
push 0
|
|
push 0
|
|
push 0
|
|
push [hkey]
|
|
call [RegQueryValueExA]
|
|
mov [esp], eax
|
|
push [hkey]
|
|
call [RegCloseKey]
|
|
pop eax
|
|
test eax, eax
|
|
jnz .not
|
|
push esi edi
|
|
mov edi, cur_ini_param
|
|
@@:
|
|
inc edi
|
|
cmp byte [edi-1], 0
|
|
jnz @b
|
|
dec edi
|
|
mov esi, aShellOpenCommand
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
pop edi esi
|
|
push hkey
|
|
push 1
|
|
push 0
|
|
push cur_ini_param
|
|
push 80000000h
|
|
call [RegOpenKeyExA]
|
|
test eax, eax
|
|
jnz .not
|
|
push 1024
|
|
push esp
|
|
push cur_ini_param
|
|
push 0
|
|
push 0
|
|
push 0
|
|
push [hkey]
|
|
call [RegQueryValueExA]
|
|
mov [esp], eax
|
|
push [hkey]
|
|
call [RegCloseKey]
|
|
pop eax
|
|
test eax, eax
|
|
jnz .not
|
|
push esi edi
|
|
mov edi, cur_ini_param
|
|
.scan:
|
|
cmp byte [edi], 0
|
|
jz .scanno
|
|
mov esi, ExeFileName
|
|
mov ecx, ExeFileNameLen
|
|
push edi
|
|
repz cmpsb
|
|
pop edi
|
|
jz .scanok
|
|
inc edi
|
|
jmp .scan
|
|
.scanno:
|
|
pop edi esi
|
|
.not:
|
|
xor eax, eax
|
|
ret 4
|
|
.scanok:
|
|
pop edi esi
|
|
xor eax, eax
|
|
inc eax
|
|
ret 4
|
|
|
|
add_assoc:
|
|
call form_ext_name
|
|
push ebx
|
|
xor ebx, ebx
|
|
push ebx
|
|
push hkey
|
|
push ebx
|
|
push 2 ; KEY_SET_VALUE
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push edi
|
|
push 80000000h
|
|
call [RegCreateKeyExA]
|
|
test eax, eax
|
|
jnz .ret
|
|
push aKolibriExecutable.size
|
|
push aKolibriExecutable
|
|
push 1 ; REG_SZ
|
|
push ebx
|
|
push ebx
|
|
push [hkey]
|
|
call [RegSetValueExA]
|
|
push eax
|
|
push [hkey]
|
|
call [RegCloseKey]
|
|
pop eax
|
|
test eax, eax
|
|
jnz .ret
|
|
push ebx
|
|
push hkey
|
|
push ebx
|
|
push 6 ; KEY_SET_VALUE + KEY_CREATE_SUB_KEY
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push aKolibriExecutable
|
|
push 80000000h
|
|
call [RegCreateKeyExA]
|
|
test eax, eax
|
|
jnz .ret
|
|
push edi
|
|
mov edi, cur_ini_param
|
|
mov al, '"'
|
|
stosb
|
|
call get_exe_name
|
|
mov al, '"'
|
|
stosb
|
|
mov eax, ' "%1'
|
|
stosd
|
|
mov al, '"'
|
|
stosb
|
|
mov al, 0
|
|
stosb
|
|
push [hkey]
|
|
push ebx
|
|
push hkey
|
|
push ebx
|
|
push 2 ; KEY_SET_VALUE
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push aShellOpenCommand2
|
|
push [hkey]
|
|
call [RegCreateKeyExA]
|
|
test eax, eax
|
|
jnz .ret2
|
|
mov eax, cur_ini_param
|
|
sub edi, eax
|
|
push edi
|
|
push eax
|
|
push 1
|
|
push ebx
|
|
push ebx
|
|
push [hkey]
|
|
call [RegSetValueExA]
|
|
push [hkey]
|
|
call [RegCloseKey]
|
|
mov edi, cur_ini_param
|
|
call get_exe_name
|
|
mov al, 0
|
|
stosb
|
|
pop eax
|
|
push eax
|
|
push ebx
|
|
push hkey
|
|
push ebx
|
|
push 2
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push aDefaultIcon
|
|
push eax
|
|
call [RegCreateKeyExA]
|
|
test eax, eax
|
|
jnz .ret2
|
|
mov eax, cur_ini_param
|
|
sub edi, eax
|
|
push edi
|
|
push eax
|
|
push 1
|
|
push ebx
|
|
push ebx
|
|
push [hkey]
|
|
call [RegSetValueExA]
|
|
push [hkey]
|
|
call [RegCloseKey]
|
|
.ret2:
|
|
call [RegCloseKey]
|
|
pop edi
|
|
.ret:
|
|
pop ebx
|
|
ret
|
|
|
|
del_assoc:
|
|
call form_ext_name
|
|
push edi
|
|
push 80000000h
|
|
call [RegDeleteKeyA]
|
|
ret
|
|
|
|
form_ext_name:
|
|
push esi
|
|
mov edi, cur_ini_param
|
|
push edi
|
|
mov al, '.'
|
|
stosb
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
call is_ext_delim
|
|
jnz @b
|
|
mov byte [edi-1], 0
|
|
pop edi esi
|
|
ret
|
|
|
|
get_exe_name:
|
|
push esi
|
|
mov esi, full_ini_name
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
@@:
|
|
dec edi
|
|
cmp byte [edi-1], '\'
|
|
jnz @b
|
|
mov esi, ExeFileName
|
|
mov ecx, ExeFileNameLen
|
|
rep movsb
|
|
pop esi
|
|
ret
|
|
|
|
check_file_exists:
|
|
push ecx
|
|
push 512
|
|
push cur_ini_param
|
|
push ecx
|
|
push ebx
|
|
call [GetDlgItemTextA]
|
|
push cur_ini_param
|
|
call [GetFileAttributesA]
|
|
inc eax
|
|
jz .err
|
|
pop ecx
|
|
ret
|
|
.err:
|
|
push 10h
|
|
push 0
|
|
push aInvalidFile
|
|
push ebx
|
|
call [MessageBoxA]
|
|
push ebx
|
|
call [GetDlgItem]
|
|
push eax
|
|
call [SetFocus]
|
|
pop eax
|
|
jmp DlgProc.true
|
|
|
|
find_ext:
|
|
push esi
|
|
@@:
|
|
lodsb
|
|
scasb
|
|
jnz @f
|
|
call is_ext_delim
|
|
jnz @b
|
|
.ret:
|
|
pop esi
|
|
ret
|
|
@@:
|
|
call is_ext_delim
|
|
jnz .next
|
|
mov al, byte [edi-1]
|
|
call is_ext_delim
|
|
jz .ret
|
|
.next:
|
|
pop esi
|
|
dec edi
|
|
@@:
|
|
inc edi
|
|
mov al, byte [edi-1]
|
|
call is_ext_delim
|
|
jnz @b
|
|
test al, al
|
|
jz @f
|
|
cmp byte [edi], 0
|
|
jnz find_ext
|
|
@@:
|
|
inc edi
|
|
ret
|
|
|
|
is_ext_delim:
|
|
test al, al
|
|
jz @f
|
|
cmp al, ','
|
|
jz @f
|
|
cmp al, ';'
|
|
@@: ret
|
|
|
|
align 4
|
|
data import
|
|
macro thunk a {
|
|
a#_thunk:dw 0
|
|
db `a,0}
|
|
dd 0,0,0, rva kernel32_name, rva kernel32_thunks
|
|
dd 0,0,0, rva user32_name, rva user32_thunks
|
|
dd 0,0,0, rva advapi32_name, rva advapi32_thunks
|
|
dd 0,0,0, rva shell32_name, rva shell32_thunks
|
|
dd 0,0,0, rva ole32_name, rva ole32_thunks
|
|
dd 0,0,0, rva comdlg32_name, rva comdlg32_thunks
|
|
dd 0,0,0,0,0
|
|
kernel32_name db 'kernel32.dll',0
|
|
user32_name db 'user32.dll',0
|
|
advapi32_name db 'advapi32.dll',0
|
|
comdlg32_name db 'comdlg32.dll',0
|
|
shell32_name db 'shell32.dll',0
|
|
ole32_name db 'ole32.dll',0
|
|
kernel32_thunks:
|
|
GetFileAttributesA dd rva GetFileAttributesA_thunk
|
|
CreateFileA dd rva CreateFileA_thunk
|
|
WriteFile dd rva WriteFile_thunk
|
|
CloseHandle dd rva CloseHandle_thunk
|
|
SetCurrentDirectoryA dd rva SetCurrentDirectoryA_thunk
|
|
GetPrivateProfileIntA dd rva GetPrivateProfileIntA_thunk
|
|
GetPrivateProfileStringA dd rva GetPrivateProfileStringA_thunk
|
|
WritePrivateProfileStringA dd rva WritePrivateProfileStringA_thunk
|
|
GetModuleFileNameA dd rva GetModuleFileNameA_thunk
|
|
GetProcessHeap dd rva GetProcessHeap_thunk
|
|
HeapAlloc dd rva HeapAlloc_thunk
|
|
HeapReAlloc dd rva HeapReAlloc_thunk
|
|
ExitProcess dd rva ExitProcess_thunk
|
|
dw 0
|
|
thunk GetFileAttributesA
|
|
thunk CreateFileA
|
|
thunk WriteFile
|
|
thunk CloseHandle
|
|
thunk SetCurrentDirectoryA
|
|
thunk GetPrivateProfileIntA
|
|
thunk GetPrivateProfileStringA
|
|
thunk WritePrivateProfileStringA
|
|
thunk GetModuleFileNameA
|
|
thunk GetProcessHeap
|
|
thunk HeapAlloc
|
|
thunk HeapReAlloc
|
|
thunk ExitProcess
|
|
user32_thunks:
|
|
DialogBoxParamA dd rva DialogBoxParamA_thunk
|
|
EndDialog dd rva EndDialog_thunk
|
|
GetDlgItem dd rva GetDlgItem_thunk
|
|
GetDlgItemTextA dd rva GetDlgItemTextA_thunk
|
|
SetDlgItemTextA dd rva SetDlgItemTextA_thunk
|
|
EnableWindow dd rva EnableWindow_thunk
|
|
SendDlgItemMessageA dd rva SendDlgItemMessageA_thunk
|
|
wsprintfA dd rva wsprintfA_thunk
|
|
MessageBoxA dd rva MessageBoxA_thunk
|
|
SetFocus dd rva SetFocus_thunk
|
|
LoadImageA dd rva LoadImageA_thunk
|
|
SendMessageA dd rva SendMessageA_thunk
|
|
dw 0
|
|
thunk DialogBoxParamA
|
|
thunk EndDialog
|
|
thunk GetDlgItem
|
|
thunk GetDlgItemTextA
|
|
thunk SetDlgItemTextA
|
|
thunk EnableWindow
|
|
thunk SendDlgItemMessageA
|
|
thunk wsprintfA
|
|
thunk MessageBoxA
|
|
thunk SetFocus
|
|
thunk LoadImageA
|
|
thunk SendMessageA
|
|
advapi32_thunks:
|
|
RegOpenKeyExA dd rva RegOpenKeyExA_thunk
|
|
RegQueryValueExA dd rva RegQueryValueExA_thunk
|
|
RegCloseKey dd rva RegCloseKey_thunk
|
|
RegEnumKeyExA dd rva RegEnumKeyExA_thunk
|
|
RegDeleteKeyA dd rva RegDeleteKeyA_thunk
|
|
RegCreateKeyExA dd rva RegCreateKeyExA_thunk
|
|
RegSetValueExA dd rva RegSetValueExA_thunk
|
|
dw 0
|
|
thunk RegOpenKeyExA
|
|
thunk RegQueryValueExA
|
|
thunk RegCloseKey
|
|
thunk RegEnumKeyExA
|
|
thunk RegDeleteKeyA
|
|
thunk RegCreateKeyExA
|
|
thunk RegSetValueExA
|
|
comdlg32_thunks:
|
|
GetOpenFileNameA dd rva GetOpenFileNameA_thunk
|
|
dw 0
|
|
thunk GetOpenFileNameA
|
|
ole32_thunks:
|
|
CoInitializeEx dd rva CoInitializeEx_thunk
|
|
CoUninitialize dd rva CoUninitialize_thunk
|
|
dw 0
|
|
thunk CoInitializeEx
|
|
thunk CoUninitialize
|
|
shell32_thunks:
|
|
SHGetMalloc dd rva SHGetMalloc_thunk
|
|
SHBrowseForFolder dd rva SHBrowseForFolder_thunk
|
|
SHGetPathFromIDList dd rva SHGetPathFromIDList_thunk
|
|
dw 0
|
|
thunk SHGetMalloc
|
|
thunk SHBrowseForFolder
|
|
thunk SHGetPathFromIDList
|
|
end data
|
|
|
|
align 10h
|
|
data resource from 'config.res'
|
|
end data
|
|
|
|
section '.data' data readable writable
|
|
|
|
IniFileName db 'KlbrInWin.ini',0
|
|
ExeFileName db 'KlbrInWin.exe'
|
|
ExeFileNameLen = $ - ExeFileName
|
|
null db 0
|
|
aDisk db 'Disk',0
|
|
aMain db 'Main',0
|
|
ramdisk_keyname db 'RamDisk',0
|
|
aSkin db 'Skin',0
|
|
aFont1 db 'Font1',0
|
|
aFont2 db 'Font2',0
|
|
aHdN db '/hd0',0
|
|
aHdNn db 'hd0n',0
|
|
aHdNM db 'hd%d_%d',0
|
|
aHdNM2 db '/hd%d/%d',0
|
|
aNone db '(none)',0
|
|
emptyExt db '.',0
|
|
def_custom_assoc db 'kex;',0
|
|
aShellOpenCommand db '\'
|
|
aShellOpenCommand2 db 'shell\open\command',0
|
|
aKolibriExecutable db 'KolibriExecutable',0
|
|
.size = $ - aKolibriExecutable
|
|
aDefaultIcon db 'DefaultIcon',0
|
|
ini:
|
|
file 'config.ini'
|
|
ini_size = $ - ini
|
|
|
|
align 4
|
|
ofn:
|
|
dd 76 ; lStructSize
|
|
dd 0 ; hWndOwner
|
|
dd 0 ; hInstance
|
|
filter dd 0 ; lpstrFilter
|
|
dd 0 ; lpstrCustomFilter
|
|
dd 0 ; nMaxCustFilter
|
|
dd 0 ; nFilterIndex
|
|
dd cur_ini_param ; lpstrFile
|
|
dd 512 ; nMaxFile
|
|
dd 0 ; lpstrFileTitle
|
|
dd 0 ; nMaxFileTitle
|
|
dd 0 ; lpstrInitialDir
|
|
; dd ofn_title ; lpstrTitle
|
|
dd 0
|
|
dd 81804h ; flags
|
|
dw 0 ; nFileOffset
|
|
dw 0 ; nFileExtension
|
|
dd 0 ; lpstrDefExt
|
|
dd 0 ; lCustData
|
|
dd 0 ; lpfnHook
|
|
dd 0 ; lpTemplateName
|
|
|
|
bi:
|
|
dd 0 ; hwndOwner
|
|
dd 0 ; pidlRoot
|
|
dd cur_ini_param ; pszDisplayName
|
|
dd bi_title; lpszTitle
|
|
dd 1 ; BIF_RETURNONLYFSDIRS
|
|
dd 0 ; lpfn
|
|
dd 0 ; lParam
|
|
dd 0 ; iImage
|
|
|
|
cur_hd_dev dd -1
|
|
cur_hd_part dd -1
|
|
|
|
bWasEmptyAssoc dd 0
|
|
|
|
skn_filter db 'Skin files (*.skn)',0,'*.skn',0,'All files (*.*',0,'*.*',0,0
|
|
mt_filter db 'Files *.mt',0,'*.mt',0,'All files (*.*)',0,'*.*',0,0
|
|
|
|
bi_title db 'Select folder for root of emulated file system:',0
|
|
|
|
aInvalidPath db 'Entered path is invalid or does not specify a directory',0
|
|
aInvalidFile db 'The mentioned file does not exist',0
|
|
aTooManyPartitions db 'Too many partitions! (maximum 255 per device is allowed)',0
|
|
|
|
align 4
|
|
hHeap dd ?
|
|
hkey dd ?
|
|
pathzeroptr dd ?
|
|
full_ini_name rb 1024
|
|
cur_ini_param rb 1024
|
|
cur_ini_name rb 32
|
|
hdns rd 4
|
|
hdpart rd 4
|
|
cur_ext rb 1024
|
|
assoc_ext rb 1024
|