Вопрос Записать короткий путь к файлу

[Хамик]

Как с помощью inno записать короткий путь к файлу такого типа

C:\PROGRA~1\EXAMDI~1\ExeName.exe

 

[Tidro]

Для последующего использования или с какой то другой целью?
Можно в реестр или в текстовый файл рядом с инсталлом или же в .ini
TEXT
Чтение
FileOpen
FileRead
FileClose
Запись
SaveStringToFile
REG
RegWriteStringValue
RegQueryStringValue
INI
WriteIni
ReadIni
Если же интересует как прописать путь то для замены PROGRA~1 можно использовать {pf}
Подробнее

 

[Krinkels]

Ежели вдруг возникнет вопрос как получить такой "короткий" путь, то смотри в сторону API функции GetShortPathName

 

[Хамик]

Ежели вдруг возникнет вопрос как получить такой "короткий" путь, то смотри в сторону API функции GetShortPathName

Пример использования можете привести?

 

[Krinkels]

Могу только на С++, что то типа такого

wchar_t *GetShortFileName( wchar_t *FileNames )
{
   static wchar_t aTmp[ _MAX_PATH ] = {0};

   if ( GetShortPathName( FileNames, aTmp, sizeof( aTmp ) / sizeof( wchar_t ) ) )
     return ( wchar_t * )aTmp;
   else
     return ( wchar_t * )FileNames;
}

 

[Хамик]

Krinkels, спасибо, но я не смогу переделать для inno

 

[Snoopak96]

Хамик,
Кури справку хоть иногда
GetShortName(ExpandConstant('{pf}'))

 

[Хамик]

Snoopak96, как создать функцию для использования в секции [registry]? Типа такого:

[Setup]
AppName=My Programm
AppVersion=1.0
DefaultDirName={pf}\My Programm
OutputDir=.

[Registry]
Root: HKLM; Subkey: "Software\test"; ValueType: String; ValueData: "{code:GetExeShortPath},0"; Flags: uninsdeletekey

 

[Snoopak96]

Хамик,

function ShortPath(String:String): String;
begin
Result := GetShortName(ExpandConstant('{pf}'))
end;

[Registry]
Root: HKLM; Subkey: "Software\test"; ValueType: String; ValueData: "{code:ShortPath},0"; Flags: uninsdeletekey

 

[Хамик]

Snoopak96, а exe файл как? Так не укарачивает:

[Setup]
AppName=My Programm
AppVersion=1.0
DefaultDirName={pf}\My Programm
OutputDir=.

[Registry]
Root: HKLM; Subkey: "Software\test"; ValueType: String; ValueData: "{code:GetExeShortPath},0"; Flags: uninsdeletekey

[Code]
function GetExeShortPath(String:String): String;
begin
Result := GetShortName(ExpandConstant('{app}\MyProg.exe'));
end;

 

[Snoopak96]

Хамик,
Ёшкин кот, давай разбирайся сам уже:

function GetExeShortPath(String:String): String;
begin
Result := GetShortName(ExtractFilePath(ExpandConstant('{app}\MyProg.exe'))) + ExtractFileName(ExpandConstant('{app}\MyProg.exe'));
end;

 

[Хамик]

Snoopak96, разбирался, получилось такое:

function GetExeShortPath(const pt:string): string;
begin
   pt := GetShortName(AddBackslash( ExpandConstant( '{app}' )));
   Result := pt +'MyProg.exe';
end;

Вроде тоже работает. Спасибо!