这一段代码用Delphi如何实现？

Question

void RemovePathFromFileName(LPSTR fullPath, LPWSTR fileName)
{
//先将fullPath的类型变换为LPWSTR
WCHAR wszBuf[MAX_PATH];
MultiByteToWideChar( CP_ACP, 0, fullPath, -1, wszBuf, MAX_PATH );
wszBuf[MAX_PATH-1] = L'\0'; WCHAR* wszFullPath = wszBuf; //从绝对路径中提取文件名
LPWSTR pch=wcsrchr(wszFullPath,'\\');
if (pch)
lstrcpy(fileName, ++pch);
else
lstrcpy(fileName, wszFullPath);
}

Answer 1

fileName := ExtractFilePath(fullPath);

Answer 2

搞这么复杂，如果只是提取文件名，那么delphi中有ExtractFileName('c:\1.txt')