这个咋写成delphi代码？ 谢谢

[这个咋写成delphi代码？ 谢谢

code=C/C++]
BOOL CheckFile(LPCTSTR szFile)
{
BOOL bFindFile;

ATL::CString cPath = szFile;

cPath.MakeUpper();

if (PathFileExists(cPath.GetString()))
{
return TRUE;
}
else
{
cPath.Remove(L'\"');

if (cPath.Find(L"\\") == -1)
{
return TRUE;
}

if (cPath.Left(1) == L"\\")
{
return TRUE;
}

if (cPath.Find(L"\\") == -1)
{
return TRUE;
}

if (cPath.Find(L"RUNDLL32") != -1)
{
return TRUE;
}

if (cPath.Left(8) == L"SYSTEM32")
{
return TRUE;
}

if (cPath.Find(L"SYSTEM32\\SVCHOST") != -1)
{
return TRUE;
}

int nEmpty = cPath.Find(L".EXE");

if (nEmpty != -1)
{
cPath = cPath.Left(nEmpty + 4);
}

TCHAR szPath[MAX_PATH] = { 0 };

if (ReplaceEnvironmentString(cPath.GetString(), szPath))
{
cPath = szPath;
}

bFindFile = PathFileExists(cPath.GetString());
}

return bFindFile;
}
[/code]

---

function CheckFile(szFile:str