
28-06-2012, 20:06
|
|
Registered User
|
|
Join Date: Oct 2011
Location: usa
Posts: 24
Thanks: 2
Thanked 0 Times in 0 Posts
|
|
Quote:
Originally Posted by quake4
Edit: Setup.ini and change
MyExecutableName=satinav.exe
|
work good but the shortcut in the desktop not working
where i can edit iti cant find it i just find this can you fix it
thk damr15
Quote:
function GetAppName(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'ApplicationName', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function GetAppPublisher(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'Publisher', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function GetMyAppExeName(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'MyExecutableName', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function GetMyAppExeName2(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'MyExecutableName2', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function MyExecutableIconName2(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'MyExecutableIconName2', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function GetMyAppExePath(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'MyExecutablePath', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function GetMyAppExePath2(Default:String):String;
begin
Result:=GetIniString('InstallOptions', 'MyExecutablePath2', '', ExpandConstant('{tmp}\' + SetupInfoLoc))
end;
function SecondExecCheck1: Boolean;
begin
if (MyExecutableIconName2('') = '') or (UpperCase(MyExecutableIconName2('')) = 'CONFIG') then
REsult := False
else
Result := True;
end;
|
|