function tcDefDir: string;
begin
//поправка SAM-а, чтобы путь брался из запущенного TC
Result:= SProc.SExpandVars('%COMMANDER_PATH%');
//брать из реестра
if Pos(':\', Result)=0 then
Result:=
GetRegKeyStr(HKEY_CURRENT_USER, 'Software\Ghisler\Total Commander', 'InstallDir',
GetRegKeyStr(HKEY_LOCAL_MACHINE, 'Software\Ghisler\Total Commander', 'InstallDir',
'C:\TotalCmd'));
end;
function tcDefExe: string;
begin
Result:= tcDefDir+'\Totalcmd.exe';
end;
function tcDefIni: string;
begin
Result:=
GetRegKeyStr(HKEY_CURRENT_USER, 'SOFTWARE\Ghisler\Total Commander', 'IniFileName',
GetRegKeyStr(HKEY_LOCAL_MACHINE, 'SOFTWARE\Ghisler\Total Commander', 'IniFileName',
'wincmd.ini'));
if Pos('\', Result)=0 then Insert('%windir%\', Result, 1);
//если путь записан как ".\Wincmd.ini":
if Pos('.\', Result)=1 then
SReplace(Result, '.', tcDefDir);
Result:= SExpandVars(Result);
end;
function tcDefIniFtp: string;
begin
Result:=
GetRegKeyStr(HKEY_CURRENT_USER, 'SOFTWARE\Ghisler\Total Commander', 'FtpIniName',
GetRegKeyStr(HKEY_LOCAL_MACHINE, 'SOFTWARE\Ghisler\Total Commander', 'FtpIniName',
'wcx_ftp.ini'));
if Pos('\', Result)=0 then Insert('%windir%\', Result, 1);
//если путь записан как ".\Wincmd.ini":
if Pos('.\', Result)=1 then
SReplace(Result, '.', tcDefDir);
Result:= SExpandVars(Result);
end; |