C++ Builder 代码转 Delphi代码
下面的C++ Builder代码，转换为Delphi代码是什么，请指教，谢谢。
//---------------------------------------------------------------------------
#pragma hdrstop
#include
#include
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
DWORD HeadChksum=1,Chksum=0;
char Fn[512];
GetModuleFileName(GetModuleHandle(NULL),Fn,512);
if(MapFileAndCheckSum(Fn,&HeadChksum,&Chksum)!=CHECKSUM_SUCCESS)
{
MessageBox(NULL,"Check error!","Error",MB_OK);
}
else
{
if(HeadChksum!=Chksum)
MessageBox(NULL,"File changed.","Warning",MB_OK);
}
return 0;
}
//---------------------------------------------------------------------------
