Bug 4086

Summary:	написать на Delphi тестовую программу на функцию ExpandFileNameEx
Product:	WINE@Etersoft	Reporter:	Виталий Перов <vitperov>
Component:	Delphi	Assignee:	Виталий Перов <vitperov>
Status:	CLOSED FIXED	QA Contact:	Денис Баранов <baraka>
Severity:	minor
Priority:	P4
Version:	1.0.10
Target Milestone:	---
Hardware:	PC
OS:	Linux
Whiteboard:
Заявки RT:		Связано с:
Дата напоминания:
Bug Depends on:
Bug Blocks:	4004
Attachments:	Исходники и бинарник теста.

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

Тест есть, можно закрывать багу