|
procedure FindAndLaunchByName(Name: PChar; launchCode: Word; CmdPBP : Pointer);
var
CardNo : UInt16;
// ListPrefs : ListPrefsPtr;
DBid: LocalID;
//Status : Err;
begin
//
CardNo := 0;
DBid := DmFindDatabase(CardNo, Name);
if DBid <> 0 then
begin
if CmdPBP <> nil then
SysUIAppSwitch (0, DBid, launchCode, CmdPBP)
else
SysUIAppSwitch (0, DBid, launchCode, nil);
end
else
begin
showmessage('could not find app fallback');
if FindAppDB(SFACreator,Name,DBid) then
SysUIAppSwitch (0, DBid, sysAppLaunchCmdNormalLaunch, mPowerCtx);
end;
end;
|