(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

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

Источник: programmersclub
programmersclub

Кто может подсказать, каким образом можно определить имя запускаемого 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);

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


 Распечатать »
 Правила публикации »
  Обсудить материал в конференции Embarcadero »
Написать редактору 
 Рекомендовать » Дата публикации: 05.10.2012 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Delphi Professional Named User
Enterprise Connectors (1 Year term)
Allround Automation PL/SQL Developer - Unlimited license
VMware Horizon Apps Standard, v7 : 10 Pack (Named User)
FastReport FMX 2 Single
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Вопросы и ответы по MS SQL Server
Проект mic-hard - все об XP - новости, статьи, советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Требуется Краснодар: Java -разрабочик (2)
Обязанности: Разработка корпоративных backend-приложений для автоматизации розничных продаж...
 
Рабочее зеркало БК Мостбет - как найти? (3)
Узнайте обо всех особенностях по поиску рабочего зеркала БК Мостбет из нашей статьи...
 
Ставки на спорт (7)
Добрый вечер! Давно хочу попробовать зарабатывать на ставках. Что посоветуете? Стоит пробовать?
 
Поиск рабочих зеркал МарафонБет (2)
На сегодняшний день, просторы интернета позволяют нам легко найти зеркало на Марафон для входа в...
 
Слот Биг Бэнг (5)
Большой взрыв как правящая теория сотворения мира. Теперь вы можете поиграть слот Big Bang в...
 
 
 



    
rambler's top100 Rambler's Top100