Subversion Repositories Kolibri OS

Rev

Rev 5421 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5421 Rev 5472
Line 25... Line 25...
25 
 
 25 
 
26 
 
 26 
 
27 
///////////////////////////
 27 
///////////////////////////
28 
//   Ïàðàìåòðû ôàéëà    //
 28 
//   Ïàðàìåòðû ôàéëà    //
29 
///////////////////////////
 29 
///////////////////////////
30 
f70 getinfo_file_70;
 30 
:f70 getinfo_file_70;
31 
:dword GetFileInfo(dword file_path, bdvk_struct)
 31 
:dword GetFileInfo(dword file_path, bdvk_struct)
32 
{
32 
{
33 
    getinfo_file_70.func = 5;
 33 
    getinfo_file_70.func = 5;
Line 43... Line 43...
43 
}
 43 
}
Line 44... Line 44...
44 
 
 44 
 
45 
///////////////////////////
 45 
///////////////////////////
46 
//   Çàïóñê ïðîãðàììû    //
 46 
//   Çàïóñê ïðîãðàììû    //
47 
///////////////////////////
 47 
///////////////////////////
48 
f70 run_file_70;
 48 
:f70 run_file_70;
49 
signed int RunProgram(dword run_path, run_param)
 49 
:signed int RunProgram(dword run_path, run_param)
50 
{
50 
{
51 
    run_file_70.func = 7;
 51 
    run_file_70.func = 7;
52 
    run_file_70.param1 =
52 
    run_file_70.param1 =
53 
    run_file_70.param3 =
53 
    run_file_70.param3 =
Line 61... Line 61...
61 
}
 61 
}
Line 62... Line 62...
62 
 
 62 
 
63 
///////////////////////////
 63 
///////////////////////////
64 
//    Ñîçäàíèå ïàïêè     //
 64 
//    Ñîçäàíèå ïàïêè     //
65 
///////////////////////////
 65 
///////////////////////////
66 
f70 create_dir_70;
 66 
:f70 create_dir_70;
67 
:int CreateDir(dword new_folder_path)
 67 
:int CreateDir(dword new_folder_path)
68 
{
 68 
{
69 
	create_dir_70.func = 9;
 69 
	create_dir_70.func = 9;
70 
	create_dir_70.param1 =
70 
	create_dir_70.param1 =
Line 79... Line 79...
79 
}
 79 
}
Line 80... Line 80...
80 
 
 80 
 
81 
////////////////////////////
 81 
////////////////////////////
82 
//  Óäàëåíèå ôàéëà/ïàïêè  //
 82 
//  Óäàëåíèå ôàéëà/ïàïêè  //
83 
////////////////////////////
 83 
////////////////////////////
84 
f70 del_file_70;
84 
:f70 del_file_70;
85 
:int DeleteFile(dword del_file_path)
 85 
:int DeleteFile(dword del_file_path)
86 
{
86 
{
87 
	del_file_70.func = 8;
 87 
	del_file_70.func = 8;
88 
	del_file_70.param1 =
88 
	del_file_70.param1 =
Line 97... Line 97...
97 
}
 97 
}
Line 98... Line 98...
98 
 
 98 
 
99 
////////////////////////////
 99 
////////////////////////////
100 
//     Ïðî÷èòàòü ôàéë     //
 100 
//     Ïðî÷èòàòü ôàéë     //
101 
////////////////////////////
 101 
////////////////////////////
102 
f70 read_file_70;
102 
:f70 read_file_70;
103 
:int ReadFile(dword read_pos, read_file_size, read_buffer, read_file_path)
 103 
:int ReadFile(dword read_pos, read_file_size, read_buffer, read_file_path)
104 
{
 104 
{
105 
	read_file_70.func = 0;
 105 
	read_file_70.func = 0;
106 
	read_file_70.param1 = read_pos;
 106 
	read_file_70.param1 = read_pos;
Line 115... Line 115...
115 
}
 115 
}
Line 116... Line 116...
116 
 
 116 
 
117 
////////////////////////////
 117 
////////////////////////////
118 
//     Çàïèñàòü ôàéë      //
 118 
//     Çàïèñàòü ôàéë      //
119 
////////////////////////////
 119 
////////////////////////////
120 
f70 write_file_70;
120 
:f70 write_file_70;
121 
:int WriteFile(dword write_file_size, write_buffer, write_file_path)
 121 
:int WriteFile(dword write_file_size, write_buffer, write_file_path)
122 
{
 122 
{
123 
	write_file_70.func = 2;
 123 
	write_file_70.func = 2;
124 
	write_file_70.param1 = 0;
 124 
	write_file_70.param1 = 0;
Line 133... Line 133...
133 
}
133 
}
Line 134... Line 134...
134 
 
 134 
 
135 
///////////////////////////
 135 
///////////////////////////
136 
//    Ïðî÷èòàòü ïàïêó    //
 136 
//    Ïðî÷èòàòü ïàïêó    //
137 
///////////////////////////
 137 
///////////////////////////
138 
f70 read_dir_70;
 138 
:f70 read_dir_70;
139 
:int ReadDir(dword file_count, read_buffer, dir_path)
 139 
:int ReadDir(dword file_count, read_buffer, dir_path)
140 
{
 140 
{
141 
	read_dir_70.func = 1;
 141 
	read_dir_70.func = 1;
142 
	read_dir_70.param1 =
142 
	read_dir_70.param1 =
Line 148... Line 148...
148 
	$mov eax,70
 148 
	$mov eax,70
149 
	$mov ebx,#read_dir_70.func
 149 
	$mov ebx,#read_dir_70.func
150 
	$int 0x40
 150 
	$int 0x40
151 
}
 151 
}
Line 152... Line 152...
152 
 
 152 
 
153 
char isdir(dword fpath)
 153 
:char isdir(dword fpath)
154 
{
 154 
{
155 
	BDVK fpath_atr;
 155 
	BDVK fpath_atr;
156 
	GetFileInfo(fpath, #fpath_atr);
 156 
	GetFileInfo(fpath, #fpath_atr);
157 
	if (TestBit( fpath_atr.attr, 4)) return 1; else return 0;
 157 
	if (TestBit( fpath_atr.attr, 4)) return 1; else return 0;