Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Авг

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

Posted by Chas under c/c++, 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);

}

тема на форуме