Получить имя программы в Delphi

Кто может подсказать, каким образом можно определить имя запускаемого exe-шника ? Т.е. хочу сделать проверку, переименовывается запускаемый мой exe файл пользователем или нет

QunneD

var

  lpBuffer : array[0..MAX_PATH] of char;

  hr : _SHFILEINFO;

begin

  GetModuleFileName(GetModuleHandle(nil), @lpBuffer, MAX_PATH);

  SHGetFileInfo(@lpBuffer, 0, hr, sizeof(hr), SHGFI_DISPLAYNAME);

  MessageBoxA(0, hr.szDisplayName, '', 0);

end;

#include 

#include 
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)

{

	char lpBuffer[MAX_PATH];

	SHFILEINFO hr;

	GetModuleFileName(hInstance, lpBuffer, MAX_PATH);

	SHGetFileInfo(lpBuffer, 0, &hr, sizeof(hr), SHGFI_DISPLAYNAME);

	MessageBox(0, hr.szDisplayName, "", 0);

Ссылки по теме

• Купить C++Builder XE3 Architect
• Купить C++Builder XE3 Enterprise
• Купить C++Builder XE3 Professional
• Купить C++Builder XE3 Starter
• Купить Delphi XE3 Enterprise
• Купить Embarcadero Delphi XE3 Professional
• Купить Delphi XE3 Ultimate
• Купить RAD Studio XE3 Professional
• Купить RAD Studio XE3 Enterprise