Укажите отработанное время

Отработанное время:
Продуктивное время:
Bug 4086 - написать на Delphi тестовую программу на функцию ExpandFileNameEx   Make a simular bug
Summary: написать на Delphi тестовую программу на функцию ExpandFileNameEx
Status: CLOSED FIXED
Alias: None
Product: WINE@Etersoft
Classification: Продукты (Products)
Component: Delphi (show other bugs)
Version: 1.0.10
Hardware: PC Linux
: P4 minor
Target Milestone: ---
Assignee: Виталий Перов
QA Contact: Денис Баранов
URL:
Whiteboard:
Keywords:
Depends on:
Blocks: 4004
  Show dependency tree / graph
 
In work:
Reported: 2009-07-06 18:49 MSD by Виталий Перов
Modified: 2010-09-01 17:07 MSD (History)
0 users

See Also:
Заявки RT:
Связано с:
Дата напоминания:

Attachments
Исходники и бинарник теста. (24.28 KB, application/octet-stream)
2010-11-18 03:58 MSK, Виталий Перов 		Details
View All Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
Description Виталий Перов 2009-07-06 18:49:22 MSD 
написать на Delphi тестовую программу на функцию ExpandFileNameEx
Comment 1 Виталий Перов 2010-05-27 14:17:07 MSD 
Установил Delphi7 на WinXP SP3 (в VirtualBox)
Comment 2 Виталий Перов 2010-05-27 14:38:17 MSD 
Created attachment 1709 [details]
Исходники и бинарник теста.
Comment 3 Виталий Перов 2010-05-27 14:39:28 MSD 
Написал тест на ExpandFileName. Функции Ex в Delphi нет.
Comment 4 Виталий Перов 2010-05-27 15:01:30 MSD 
Такой функции в wine нет. Похоже, что вместо неё вызывается GetFullPathNameA

0014:Call KERNEL32.GetFullPathNameA(00410830 "1.txt",00000104,0032fd48,0032fd44) ret=00405900
0014:Ret  KERNEL32.GetFullPathNameA() retval=00000008 ret=00405900
0014:Call KERNEL32.GetStdHandle(fffffff5) ret=0040292c
0014:Ret  KERNEL32.GetStdHandle() retval=00000008 ret=0040292c
0014:Call KERNEL32.GetFileType(00000008) ret=00402942
0014:Ret  KERNEL32.GetFileType() retval=00000002 ret=00402942
0014:Call KERNEL32.WriteFile(00000008,0040a360,00000017,0032fe2c,00000000) ret=00402784
Short Name was: 1.txt
0014:Ret  KERNEL32.WriteFile() retval=00000001 ret=00402784
0014:Call KERNEL32.WriteFile(00000008,0040a360,00000022,0032fe2c,00000000) ret=00402784
ExpandFileName returned:C:\1.txt
0014:Ret  KERNEL32.WriteFile() retval=00000001 ret=00402784
Comment 5 Виталий Перов 2010-09-01 17:06:58 MSD 
Тест есть, можно закрывать багу