Насчёт IMEI - не знаю, не искал.
Как получить список:
type
P2KAPI_FileRecord = packed record
Size, Attr: Longword;
Name: array [0..$1F7] of char;
end;
А потом объявляешь массив этимх эелементов:
my_filelist: array of P2KAPI_FileRecord;
При чтении списка файлов, сначала получаешь функцией File_Count количество файлов в телефоне, а потом
SetLength(my_filelist,<количество файлов>)
НО!!!
Индексы начинаются с нуля, поэтому вызов File_List() будет таким:
c:=File_List(my_filelist[0],<количество файлов>);
c - получает результат завершения функции (-1=ошибка, иначе = ОК)
И потом везде используешь my_filelist как массив [0..<количество файлов-1>], например
for c:=0 to Length(my_filelist)-1 do
begin
s:=my_filelist[c].Name;
ShowMessage('Имя файла:'+s);
i:=my_filelist[c].Size;
ShowMessage('Размер: '+IntToStr(i));
i:=my_filelist[c].Attr;
ShowMessage('Атрибуты: '+IntToHex(i,8)+'h');
// ...
end;
Как получить список:
type
P2KAPI_FileRecord = packed record
Size, Attr: Longword;
Name: array [0..$1F7] of char;
end;
А потом объявляешь массив этимх эелементов:
my_filelist: array of P2KAPI_FileRecord;
При чтении списка файлов, сначала получаешь функцией File_Count количество файлов в телефоне, а потом
SetLength(my_filelist,<количество файлов>)
НО!!!
Индексы начинаются с нуля, поэтому вызов File_List() будет таким:
c:=File_List(my_filelist[0],<количество файлов>);
c - получает результат завершения функции (-1=ошибка, иначе = ОК)
И потом везде используешь my_filelist как массив [0..<количество файлов-1>], например
for c:=0 to Length(my_filelist)-1 do
begin
s:=my_filelist[c].Name;
ShowMessage('Имя файла:'+s);
i:=my_filelist[c].Size;
ShowMessage('Размер: '+IntToStr(i));
i:=my_filelist[c].Attr;
ShowMessage('Атрибуты: '+IntToHex(i,8)+'h');
// ...
end;