forked from KolibriOS/kolibrios
655 lines
21 KiB
NASM
655 lines
21 KiB
NASM
Comment *--------------------+
|
||
| |
|
||
| Run with OpenDialog |
|
||
| UASM + KolibriOS.lib |
|
||
| |
|
||
+----------------------------*
|
||
.586
|
||
.Model Flat, StdCall
|
||
Option CaseMap: None
|
||
|
||
Public @Main
|
||
|
||
FALSE = 0
|
||
TRUE = Not FALSE
|
||
|
||
CStr Macro QuotedText:VarArg
|
||
Local LocalText
|
||
.Const
|
||
LocalText db QuotedText,0
|
||
.Code
|
||
ExitM <Offset LocalText>
|
||
EndM
|
||
|
||
IfDef LANG_IT
|
||
szProgramRunSuccessfully equ <CStr("Programma eseguito correttamente")>
|
||
szFileNotFound equ <CStr("File non trovato")>
|
||
szFileIsNotExecutable equ <CStr("File non eseguibile")>
|
||
szTooManyProcesses equ <CStr("Troppi processi")>
|
||
szAccessDenied equ <CStr("Accesso negato")>
|
||
szOutOfMemory equ <CStr("Memoria esaurita")>
|
||
szUnknownError equ <CStr("Errore sconosciuto")>
|
||
szTypeNameOfProgram equ <CStr("Digita il nome del programma per eseguirlo")>
|
||
szRun equ <CStr("Esegui")>
|
||
szTitle equ <CStr("Esegui")>
|
||
szPressF1 equ <CStr("Premere F1 per visualizzare le informazioni sui tasti di scelta rapida")>
|
||
szHelpInfo equ <CStr("Insert - il percorso da aprire la finestra di dialogo casella di modifica\n",\
|
||
"Ctrl + Insert - aggiungi percorso alla posizione corrente del cursore\n",\
|
||
"Ctrl + Shift + Insert - aggiungi sempre un percorso senza virgolette")>
|
||
ElseIfDef LANG_SP
|
||
szProgramRunSuccessfully equ <CStr("Programa ejecutado con exito")>
|
||
szFileNotFound equ <CStr("Archivo no encontrado")>
|
||
szFileIsNotExecutable equ <CStr("Archivo no es ejecutable")>
|
||
szTooManyProcesses equ <CStr("Muchos procesos")>
|
||
szAccessDenied equ <CStr("Acceso denegado")>
|
||
szOutOfMemory equ <CStr("Memoria insuficiente")>
|
||
szUnknownError equ <CStr("Error desconocido")>
|
||
szTypeNameOfProgram equ <CStr("Tipo nombre del programa a ejecutar")>
|
||
szRun equ <CStr("Ejecutar")>
|
||
szTitle equ <CStr("Ejecutar")>
|
||
szPressF1 equ <CStr("Presione F1 para ver la informacion acerca de las teclas de acceso rapido")>
|
||
szHelpInfo equ <CStr("Insert - establecer la ruta de recuadro de dialogo en el cuadro de edicion\n",\
|
||
"Ctrl + Insert - agregar ruta a la posicion actual del cursor\n",\
|
||
"Ctrl + Shift + Insert - siempre agregar la ruta sin las comillas")>
|
||
ElseIfDef LANG_RU
|
||
szProgramRunSuccessfully equ <CStr("<22>ணࠬ<E0AEA3><E0A0AC> <20><><EFBFBD><EFBFBD>饭<EFBFBD> <20>ᯥ譮")>
|
||
szFileNotFound equ <CStr("<22><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")>
|
||
szFileIsNotExecutable equ <CStr("<22><><EFBFBD><EFBFBD> <20><> <><EFA2AB><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC>")>
|
||
szTooManyProcesses equ <CStr("<22><><EFBFBD>誮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ")>
|
||
szAccessDenied equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>饭")>
|
||
szOutOfMemory equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")>
|
||
szUnknownError equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> <20>訡<EFBFBD><E8A8A1>")>
|
||
szTypeNameOfProgram equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>")>
|
||
szRun equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")>
|
||
szTitle equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>")>
|
||
szPressF1 equ <CStr("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> F1, <20>⮡<EFBFBD> <20><><EFBFBD>ᬮ<EFBFBD><E1ACAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ଠ<EFBFBD><E0ACA0><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")>
|
||
szHelpInfo equ <CStr("Insert - <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>\n",\
|
||
"Ctrl + Insert - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n",\
|
||
"Ctrl + Shift + Insert - <EFBFBD>ᥣ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>祪")>
|
||
ElseIfDef LANG_EN
|
||
szProgramRunSuccessfully equ <CStr("Program run successfully")>
|
||
szFileNotFound equ <CStr("File not found")>
|
||
szFileIsNotExecutable equ <CStr("File is not executable")>
|
||
szTooManyProcesses equ <CStr("Too many processes")>
|
||
szAccessDenied equ <CStr("Access denied")>
|
||
szOutOfMemory equ <CStr("Out of memory")>
|
||
szUnknownError equ <CStr("Unknown error")>
|
||
szTypeNameOfProgram equ <CStr("Type name of program to run")>
|
||
szRun equ <CStr(" Run ")>
|
||
szTitle equ <CStr("Run")>
|
||
szPressF1 equ <CStr("Press F1 to view information about the hot keys")>
|
||
szHelpInfo equ <CStr("Insert - set path from open dialog to edit box\n",\
|
||
"Ctrl + Insert - add path from open dialog into edit box at the current cursor position\n",\
|
||
"Ctrl + Shift + Insert - always add path without quotes")>
|
||
Else
|
||
.Err LANG_??
|
||
EndIf
|
||
|
||
; Events
|
||
REDRAW_EVENT = 1
|
||
KEY_EVENT = 2
|
||
BUTTON_EVENT = 3
|
||
BACKGROUND_EVENT = 5
|
||
MOUSE_EVENT = 6
|
||
IPC_EVENT = 7
|
||
NETWORK_EVENT = 8
|
||
DEBUG_EVENT = 9
|
||
|
||
; Window Style Constants
|
||
WS_SKINNED_FIXED = 4000000H
|
||
WS_COORD_CLIENT = 20000000H
|
||
WS_CAPTION = 10000000H
|
||
|
||
; Caption Style Constants
|
||
CS_MOVABLE = 0
|
||
|
||
; Event Mask Constants
|
||
EM_REDRAW = 001H
|
||
EM_KEY = 002H
|
||
EM_BUTTON = 004H
|
||
EM_BACKGROUND = 010H
|
||
EM_MOUSE = 020H
|
||
EM_IPC = 040H
|
||
EM_NETWORK = 080H
|
||
EM_DEBUG = 100H
|
||
|
||
; Draw zero terminated string for DrawText
|
||
DT_ZSTRING = 080000000H
|
||
|
||
; Charset specifiers for DrawText
|
||
DT_CP866_8X16 = 10000000H
|
||
|
||
; bits for the GetControlKeyState
|
||
LEFT_SHIFT_PRESSED = 1
|
||
RIGHT_SHIFT_PRESSED = 2
|
||
LEFT_CTRL_PRESSED = 4
|
||
RIGHT_CTRL_PRESSED = 8
|
||
|
||
TOpenDialog Struct
|
||
mode Dword ?
|
||
procinfo Dword ?
|
||
com_area_name Dword ?
|
||
com_area Dword ?
|
||
opendir_path Dword ?
|
||
dir_default_path Dword ?
|
||
start_path Dword ?
|
||
draw_Window Dword ?
|
||
status Dword ?
|
||
openfile_path Dword ?
|
||
filename_area Dword ?
|
||
filter_area Dword ?
|
||
x_size Word ?
|
||
x_start SWord ?
|
||
y_size Word ?
|
||
y_start SWord ?
|
||
TOpenDialog EndS
|
||
|
||
TEditBox Struct
|
||
x_size Dword ?
|
||
left SDword ?
|
||
top SDword ?
|
||
color Dword ?
|
||
shift_color Dword ?
|
||
focus_border_color Dword ?
|
||
blur_border_color Dword ?
|
||
text_color Dword ?
|
||
max Dword ?
|
||
text Dword ?
|
||
mouse_variable Dword ?
|
||
flags Dword ?
|
||
count Dword ?
|
||
pos Dword ?
|
||
offs Dword ?
|
||
cl_curs_x SWord ?
|
||
cl_curs_y SWord ?
|
||
shift Word ?
|
||
shift_old Word ?
|
||
height Dword ?
|
||
char_width Dword ?
|
||
TEditBox EndS
|
||
|
||
TStandartColors Struct
|
||
frames Dword ?
|
||
grab Dword ?
|
||
grab_button Dword ?
|
||
grab_button_text Dword ?
|
||
grab_text Dword ?
|
||
work Dword ?
|
||
work_button Dword ?
|
||
work_button_text Dword ?
|
||
work_text Dword ?
|
||
work_graph Dword ?
|
||
TStandartColors EndS
|
||
|
||
TRect Struct
|
||
Left SDword ?
|
||
Top SDword ?
|
||
Right SDword ?
|
||
Bottom SDword ?
|
||
TRect EndS
|
||
|
||
TSize Struct
|
||
SizeY Word ?
|
||
SizeX Word ?
|
||
TSize EndS
|
||
|
||
TKeyboardInput Struct
|
||
Flag Byte ?
|
||
Code Byte ?
|
||
Union
|
||
Scan Byte ?
|
||
Control Word ?
|
||
EndS
|
||
TKeyboardInput EndS
|
||
|
||
TButtonInput Struct
|
||
MouseButton Byte ?
|
||
ID Word ?
|
||
HiID Byte ?
|
||
TButtonInput EndS
|
||
|
||
; Button identifiers
|
||
BUTTON_RUN = 10
|
||
BUTTON_BROWSE = 20
|
||
|
||
KEY_SCAN_ENTER = 01CH
|
||
KEY_SCAN_INSERT = 052H
|
||
KEY_SCAN_F1 = 03BH
|
||
|
||
KEY_CODE_0 = 030H
|
||
|
||
PROC_INFO_BUFFER_SIZE = 1024
|
||
OPEN_FILE_PATH_BUFFER_SIZE = 4096
|
||
FILE_NAME_AREA_BUFFER_SIZE = 1024
|
||
OPEN_DIR_PATH_BUFFER_SIZE = OPEN_FILE_PATH_BUFFER_SIZE - FILE_NAME_AREA_BUFFER_SIZE
|
||
|
||
EDIT1_TEXT_BUFFER_SIZE = 4096
|
||
TMP_BUFFER_SIZE = 4096
|
||
|
||
GetButton Proto
|
||
GetKey Proto
|
||
WaitEvent Proto
|
||
BeginDraw Proto
|
||
EndDraw Proto
|
||
DrawWindow Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, Caption:Ptr, BackColor:Dword, Style:Dword, CapStyle:Dword
|
||
ThreadTerminate Proto
|
||
LoadLibrary Proto Path:Ptr
|
||
GetProcAddress Proto hLib:Ptr, ProcName:Ptr
|
||
SetEventMask Proto EventMask:Dword
|
||
GetScreenSize Proto
|
||
GetSkinHeight Proto
|
||
HeapAllocate Proto Bytes:Dword
|
||
DrawButton Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, BackColor:Dword, Style:Dword, ID:Dword
|
||
RunFile Proto Path:Ptr, CmdLine:Ptr
|
||
GetStandardColors Proto ColorTable:Ptr, TableSize:Dword
|
||
DrawText Proto X:SDword, Y:SDword, Text:Ptr, ForeColor:Dword, BackColor:Dword, Flags:Dword, Count:Dword
|
||
GetControlKeyState Proto
|
||
|
||
EditBoxDraw_proto TypeDef Proto :Ptr
|
||
EditBoxKey_proto TypeDef Proto :Ptr
|
||
EditBoxMouse_proto TypeDef Proto :Ptr
|
||
EditBoxSetText_proto TypeDef Proto :Ptr, :Ptr
|
||
|
||
OpenDialogInit_proto TypeDef Proto :Ptr
|
||
OpenDialogStart_proto TypeDef Proto :Ptr
|
||
|
||
OpenDialogInit_proc TypeDef Ptr OpenDialogInit_proto
|
||
OpenDialogStart_proc TypeDef Ptr OpenDialogStart_proto
|
||
|
||
EditBoxDraw_proc TypeDef Ptr EditBoxDraw_proto
|
||
EditBoxKey_proc TypeDef Ptr EditBoxKey_proto
|
||
EditBoxMouse_proc TypeDef Ptr EditBoxMouse_proto
|
||
EditBoxSetText_proc TypeDef Ptr EditBoxSetText_proto
|
||
; -------------------------------------------------------- ;
|
||
.Const; -------------------------------------------------- ;
|
||
; -------------------------------------------------------- ;
|
||
szFFFFFFFFOpenDialog db "FFFFFFFF_open_dialog",0
|
||
szSYS db "/sys",0
|
||
szOpenDialPath db "/sys/File managers/opendial",0
|
||
szEmpty db 0
|
||
; -------------------------------------------------------- ;
|
||
.Data; --------------------------------------------------- ;
|
||
; -------------------------------------------------------- ;
|
||
FileFilter Dword 0
|
||
|
||
OD TOpenDialog <\
|
||
0,\
|
||
Offset ProcInfoBuffer,\
|
||
Offset szFFFFFFFFOpenDialog,\
|
||
0,\
|
||
Offset OpenDirPathBuffer,\
|
||
Offset szSYS,\
|
||
Offset szOpenDialPath,\
|
||
Offset OnRedraw,\
|
||
0,\
|
||
0,\
|
||
Offset FileNameAreaBuffer,\
|
||
Offset FileFilter,\
|
||
414,\
|
||
0,\
|
||
414,\
|
||
0\
|
||
>
|
||
|
||
Edit1 TEditBox <\
|
||
0,\
|
||
5,\
|
||
26,\
|
||
00FFFFFFH,\
|
||
00A4C4E4H,\
|
||
0,\
|
||
0,\
|
||
DT_CP866_8X16,\
|
||
EDIT1_TEXT_BUFFER_SIZE,\
|
||
Offset Edit1TextBuffer,\
|
||
Offset Edit1MouseVariable,\
|
||
4002H,\
|
||
0,\
|
||
0,\
|
||
0,\
|
||
0,\
|
||
0,\
|
||
0,\
|
||
0\
|
||
>
|
||
; -------------------------------------------------------- ;
|
||
.Data? ; ------------------------------------------------- ;
|
||
; -------------------------------------------------------- ;
|
||
BoxLib Dword ?
|
||
ProcLib Dword ?
|
||
|
||
OpenDialogInit OpenDialogInit_proc ?
|
||
OpenDialogStart OpenDialogStart_proc ?
|
||
|
||
EditBoxDraw EditBoxDraw_proc ?
|
||
EditBoxKey EditBoxKey_proc ?
|
||
EditBoxMouse EditBoxMouse_proc ?
|
||
EditBoxSetText EditBoxSetText_proc ?
|
||
|
||
SC TStandartColors <>
|
||
Window TRect <>
|
||
Screen TSize <>
|
||
|
||
RunResult Dword ?
|
||
RunParams Dword ?
|
||
RunPath Dword ?
|
||
|
||
AlwaysWithoutQuote Dword ?
|
||
ClearBeforeInsert Dword ?
|
||
|
||
Key TKeyboardInput <>
|
||
Button TButtonInput <>
|
||
|
||
FileNameAreaBuffer Byte FILE_NAME_AREA_BUFFER_SIZE Dup (?)
|
||
OpenFilePathBuffer Byte OPEN_FILE_PATH_BUFFER_SIZE Dup (?)
|
||
OpenDirPathBuffer Byte OPEN_DIR_PATH_BUFFER_SIZE Dup (?)
|
||
ProcInfoBuffer Byte PROC_INFO_BUFFER_SIZE Dup (?)
|
||
|
||
Edit1MouseVariable Dword ?
|
||
Edit1TextBuffer Byte EDIT1_TEXT_BUFFER_SIZE + 2 Dup (?) ; buffer for Edit1.text
|
||
TmpBuffer Byte TMP_BUFFER_SIZE Dup (?) ; this buffer uses in StrInsert
|
||
; -------------------------------------------------------- ;
|
||
.Code ; -------------------------------------------------- ;
|
||
; -------------------------------------------------------- ;
|
||
OnRedraw Proc
|
||
Invoke BeginDraw
|
||
Invoke GetStandardColors, Offset SC, SizeOf(SC)
|
||
|
||
mov eax, SC.work_graph
|
||
mov Edit1.focus_border_color, eax
|
||
|
||
Invoke DrawWindow, Window.Left, Window.Top, Window.Right, Window.Bottom, szTitle, SC.work, WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CS_MOVABLE
|
||
Invoke DrawText, 5, 5, szTypeNameOfProgram, SC.work_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||
; Browse button
|
||
mov eax, Window.Right
|
||
sub eax, 70
|
||
Invoke DrawButton, eax, 26, 52, 21, SC.work_button, 0, 20
|
||
mov eax, Window.Right
|
||
sub eax, 56
|
||
Invoke DrawText, eax, 29, CStr("..."), SC.work_button_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||
; Run button
|
||
mov eax, Window.Right
|
||
sub eax, 22
|
||
Invoke DrawButton, 5, 52, eax, 21, SC.work_button, 0, 10
|
||
mov eax, Window.Right
|
||
shr eax, 1
|
||
sub eax, 40
|
||
Invoke DrawText, eax, 55, szRun, SC.work_button_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||
; Result text
|
||
Invoke DrawText, 5, 80, RunResult, SC.work_text, 0, DT_ZSTRING + DT_CP866_8X16, 0
|
||
Invoke EditBoxDraw, Offset Edit1
|
||
Invoke EndDraw
|
||
ret
|
||
OnRedraw Endp
|
||
; -------------------------------------------------------- ;
|
||
StrInsert Proc Uses esi edi Src:Ptr, Dst:Ptr, Pos:Dword
|
||
Local TotalLength:Dword
|
||
|
||
mov TotalLength, 0
|
||
|
||
mov esi, Dst
|
||
mov edi, Offset TmpBuffer
|
||
mov ecx, Pos
|
||
add TotalLength, ecx
|
||
rep movsb
|
||
|
||
mov edi, Src
|
||
mov ecx, 0FFFFFFFFH
|
||
xor eax, eax
|
||
repne scasb
|
||
mov eax, 0FFFFFFFEH
|
||
sub eax, ecx
|
||
add TotalLength, eax
|
||
|
||
mov esi, Src
|
||
mov edi, Offset TmpBuffer
|
||
add edi, Pos
|
||
mov ecx, eax
|
||
rep movsb
|
||
|
||
push edi
|
||
|
||
mov edi, Dst
|
||
add edi, Pos
|
||
mov ecx, 0FFFFFFFFH
|
||
xor eax, eax
|
||
repne scasb
|
||
mov eax, 0FFFFFFFEH
|
||
sub eax, ecx
|
||
inc eax
|
||
add TotalLength, eax
|
||
|
||
pop edi
|
||
|
||
mov esi, Dst
|
||
add esi, Pos
|
||
mov ecx, eax
|
||
rep movsb
|
||
|
||
mov esi, Offset TmpBuffer
|
||
mov edi, Dst
|
||
mov ecx, TotalLength
|
||
rep movsb
|
||
|
||
ret
|
||
StrInsert Endp
|
||
; -------------------------------------------------------- ;
|
||
OnButtonRun Proc
|
||
Local TmpChar: Byte
|
||
Local StartWithQuote: Dword
|
||
; need to split path & params
|
||
mov eax, Edit1.text
|
||
; Skip Spaces
|
||
.While Byte Ptr [eax] == ' '
|
||
inc eax
|
||
.EndW
|
||
mov StartWithQuote, 0
|
||
; Skip Possible Quotation Mark
|
||
.If Byte Ptr [eax] == '"'
|
||
mov StartWithQuote, TRUE
|
||
inc eax
|
||
.EndIf
|
||
mov RunPath, eax
|
||
; Find Space Or Quote Or EndOfString
|
||
.Repeat
|
||
.If Byte Ptr [eax] == ' '
|
||
.If !StartWithQuote
|
||
mov TmpChar, ' '
|
||
mov Byte Ptr [eax], 0
|
||
push eax ; save pointer
|
||
inc eax
|
||
; Skip Spaces
|
||
.While Byte Ptr [eax] == ' '
|
||
inc eax
|
||
.EndW
|
||
.Break
|
||
.EndIf
|
||
.ElseIf Byte Ptr [eax] == '"'
|
||
mov TmpChar, '"'
|
||
mov Byte Ptr [eax], 0
|
||
push eax ; save pointer
|
||
inc eax
|
||
; Skip Spaces
|
||
.While Byte Ptr [eax] == ' '
|
||
inc eax
|
||
.EndW
|
||
; params can be written immediately after quotation mark
|
||
; without any spaces
|
||
; like this way: "path"params
|
||
.Break
|
||
.ElseIf Byte Ptr [eax] == 0
|
||
push eax ; save pointer
|
||
mov TmpChar, 0
|
||
.Break
|
||
.EndIf
|
||
inc eax
|
||
.Until 0
|
||
mov RunParams, eax
|
||
Invoke RunFile, RunPath, RunParams
|
||
test eax, eax
|
||
.If SIGN?
|
||
.If eax == -5
|
||
mov RunResult, szFileNotFound
|
||
.ElseIf eax == -31
|
||
mov RunResult, szFileIsNotExecutable
|
||
.ElseIf eax == -32
|
||
mov RunResult, szTooManyProcesses
|
||
.ElseIf eax == -10
|
||
mov RunResult, szAccessDenied
|
||
.ElseIf eax == -30
|
||
mov RunResult, szOutOfMemory
|
||
.Else
|
||
mov RunResult, szUnknownError
|
||
.EndIf
|
||
.Else
|
||
mov RunResult, szProgramRunSuccessfully
|
||
.EndIf
|
||
|
||
pop eax ; restore char changed by 0
|
||
mov cl, TmpChar
|
||
mov Byte Ptr [eax], cl
|
||
|
||
Invoke OnRedraw
|
||
ret
|
||
OnButtonRun Endp
|
||
; -------------------------------------------------------- ;
|
||
OnButtonBrowse Proc
|
||
Local NeedQuote:Dword
|
||
|
||
Invoke OpenDialogStart, Offset OD
|
||
.If OD.status != 0
|
||
|
||
; need to check if spaces are in path and if so then quote path
|
||
mov eax, OD.openfile_path
|
||
; by default assume quote not needed
|
||
mov NeedQuote, 0
|
||
.While Byte Ptr [eax]
|
||
.If Byte Ptr [eax] == ' '
|
||
; need quote
|
||
mov NeedQuote, TRUE
|
||
.EndIf
|
||
inc eax
|
||
.EndW
|
||
; eax -> zero byte
|
||
.If NeedQuote && !AlwaysWithoutQuote
|
||
mov Byte Ptr [eax], '"'
|
||
mov Byte Ptr [eax + 1], 0
|
||
push eax ; save pointer
|
||
mov eax, OD.openfile_path
|
||
dec eax
|
||
.Else
|
||
mov eax, OD.openfile_path
|
||
.EndIf
|
||
|
||
.If ClearBeforeInsert
|
||
Invoke EditBoxSetText, Offset Edit1, Offset szEmpty
|
||
.EndIf
|
||
|
||
Invoke StrInsert, eax, Edit1.text, Edit1.pos
|
||
|
||
.If NeedQuote && !AlwaysWithoutQuote
|
||
pop eax ; restore zero changed by quote
|
||
mov Byte Ptr [eax], 0
|
||
.EndIf
|
||
|
||
Invoke EditBoxSetText, Offset Edit1, Edit1.text
|
||
.EndIf
|
||
ret
|
||
OnButtonBrowse Endp
|
||
; -------------------------------------------------------- ;
|
||
@Main:
|
||
Invoke SetEventMask, EM_REDRAW + EM_KEY + EM_BUTTON + EM_MOUSE
|
||
Invoke LoadLibrary, CStr("/sys/lib/box_lib.obj")
|
||
mov BoxLib, eax
|
||
Invoke LoadLibrary, CStr("/sys/lib/proc_lib.obj")
|
||
mov ProcLib, eax
|
||
Invoke GetProcAddress, BoxLib, CStr("edit_box")
|
||
mov EditBoxDraw, eax
|
||
Invoke GetProcAddress, BoxLib, CStr("edit_box_key")
|
||
mov EditBoxKey, eax
|
||
Invoke GetProcAddress, BoxLib, CStr("edit_box_mouse")
|
||
mov EditBoxMouse, eax
|
||
Invoke GetProcAddress, BoxLib, CStr("edit_box_set_text")
|
||
mov EditBoxSetText, eax
|
||
Invoke GetProcAddress, ProcLib, CStr("OpenDialog_init")
|
||
mov OpenDialogInit, eax
|
||
Invoke GetProcAddress, ProcLib, CStr("OpenDialog_start")
|
||
mov OpenDialogStart, eax
|
||
|
||
; it need for case if spaces are present in filepath
|
||
lea eax, [OpenFilePathBuffer + 1]
|
||
mov OD.openfile_path, eax
|
||
mov OpenFilePathBuffer, '"'
|
||
|
||
Invoke OpenDialogInit, Offset OD
|
||
|
||
Invoke GetScreenSize
|
||
mov Screen, eax
|
||
shr eax, 17
|
||
add eax, 90
|
||
mov Window.Right, eax
|
||
|
||
Invoke GetSkinHeight
|
||
add eax, 100
|
||
mov Window.Bottom, eax
|
||
|
||
movzx eax, Screen.SizeX
|
||
sub eax, Window.Right
|
||
shr eax, 1
|
||
mov Window.Left, eax
|
||
|
||
movzx eax, Screen.SizeY
|
||
sub eax, Window.Bottom
|
||
sub eax, 100
|
||
mov Window.Top, eax
|
||
|
||
mov eax, Window.Right
|
||
sub eax, 80
|
||
mov Edit1.x_size, eax
|
||
|
||
mov RunResult, szPressF1
|
||
|
||
.Repeat
|
||
Invoke WaitEvent
|
||
.If eax == REDRAW_EVENT
|
||
Invoke OnRedraw
|
||
.ElseIf eax == KEY_EVENT
|
||
Invoke GetControlKeyState
|
||
.If eax & (RIGHT_SHIFT_PRESSED Or LEFT_SHIFT_PRESSED)
|
||
mov AlwaysWithoutQuote, TRUE
|
||
.Else
|
||
mov AlwaysWithoutQuote, FALSE
|
||
.EndIf
|
||
.If eax & (RIGHT_CTRL_PRESSED Or LEFT_CTRL_PRESSED)
|
||
mov ClearBeforeInsert, FALSE
|
||
.Else
|
||
mov ClearBeforeInsert, TRUE
|
||
.EndIf
|
||
Invoke GetKey
|
||
mov Key, eax
|
||
.If Key.Scan == KEY_SCAN_ENTER
|
||
Invoke OnButtonRun
|
||
; need check Code cause numpad0.Scan = Insert.Scan
|
||
.ElseIf (Key.Scan == KEY_SCAN_INSERT) && \
|
||
(Key.Code != KEY_CODE_0)
|
||
Invoke OnButtonBrowse
|
||
.ElseIf Key.Scan == KEY_SCAN_F1
|
||
Invoke RunFile, CStr("/SYS/@NOTIFY"), szHelpInfo
|
||
.Else
|
||
Invoke EditBoxKey, Offset Edit1
|
||
.EndIf
|
||
.ElseIf eax == BUTTON_EVENT
|
||
Invoke GetButton
|
||
mov Button, eax
|
||
.If Button.ID == 1
|
||
Invoke ThreadTerminate
|
||
.ElseIf Button.ID == BUTTON_RUN
|
||
Invoke OnButtonRun
|
||
.ElseIf Button.ID == BUTTON_BROWSE
|
||
Invoke OnButtonBrowse
|
||
.EndIf
|
||
.ElseIf eax == MOUSE_EVENT
|
||
Invoke EditBoxMouse, Offset Edit1
|
||
.EndIf
|
||
.Until 0
|
||
END |