ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andy Andreanov                       2:5020/52      07 Mar 2001  17:58:19
 To : All
 Subject : Использование API для определения атрибутов файла
 -------------------------------------------------------------------------------- 
 

 
 Есть Perl Activestate 5.613.
 Хочется получить дату создания файла через API-функцию GetFileAttributesEx.
 
 use Win32::API;
 $GetTime = new Win32::API("kernel32", "GetFileAttributesEx", [P, N, P], P);
 
     $default='имя файла';
     $dir = pack("p", $default);
     $lpPoint = pack("NLLLLLLNN", 0, 0, 0, 0, 0, 0, 0, 0, 0);
     $GetTime->Call($dir, 0, $lpPoint);
     @answer = unpack("NLLLLLLNN", $lpPoint);
 
 При исполнении $GetTime->Call(...) скрипт грохается из-за ошибки
 доступа к памяти. Есть ли решение проблемы?
 
 %%%%%%%%%%%%%%%%%%%%%
 С уважением, Андрианов Андрей
 webmaster@arsis.ru
 --- Microsoft Outlook Express 5.00.2919.6700
  * Origin: Mr. Postman (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор