Имя приложения

[Романнн]

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

[Alex Cones]

Тебе нужно имя ярлыка или заголовок программы или имя exe? Ярлык - тот же файл с параметрами: ИМЯЯРЛЫКА.ink

[raxp]

недоходчиво...

если вы хотите при создании ярлыка назначить ему ссылку на имя приложения которое он должен запустить вне зависимости от того как оно названо... и если этот ярлык создает само приложение, то тогда ответ на ваш вопрос будет таким:

application.ExeName

- заметьте, ответ основан на допущениях

[Романнн]

да, заголовок программы) не додумался его так назвать)
у меня есть полный путь к ехе-файлу, и менно из него мне надо вытащить заголовок программы... как-то так

чтобы конкретизировать: делаю программу с большим количеством ссылок на сторонние программы, типа панели быстрого доступа, и вручную название для каждой программы прописывать как-то неэстетично

[Пепел Феникса]

в установщик вводится имя приложения. и он знает как назвать ярлык.

[Романнн]

Пепел Феникса, да, но ведь в ехе-шники вшиты названия программ

[raxp]

вам надо читать тогда свойства файла

[Романнн]

мне почему-то кажется что это должно быть в API, но даже если и нет, то есть ж стандарт, как у ID3 в случае с мр3 файлами, то есть считать название напрямую из файла

F i l e D e s c r i p t i o n     Q I P   I n f i u m     0   
F i l e V e r s i o n     9 . 0 . 3 . 0   "   
I n t e r n a l N a m e       &   L e g a l C o p y r i g h t       *   
L e g a l T r a d e m a r k s         *   
O r i g i n a l F i l e n a m e       6   
P r o d u c t N a m e     Q I P   I n f i u m     
(   P r o d u c t V e r s i o n   2      C o m m e n t s       D     
V a r F i l e I n f o     $

вот пример инфиума, открытого блокнотом

[Романнн]

вот, собсна, нашел код:

...
const
  InfoNum = 10;
  InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
  S, StrOut: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then
  begin

    Buf := AllocMem(n);
    StrOut := StrOut + 'Размер буфера = ' + IntToStr(n);
    GetFileVersionInfo(PChar(S), 0, n, Buf);
    for i := 1 to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
    StrOut := #10#12+ StrOut + InfoStr[i] + ' = ' + Value;
    FreeMem(Buf, n);
  end
  else
    StrOut := ' Нет информации о версии ' ;

  ShowMessage(StrOut)
end;

но в предназначение его сам не въехал)))

а всё, разобрался)
спасибо всем участвовавшим, тему закрывать, наверное, можно