Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизРегистрация программы в меню ПУСК Найти похожие ветки
← →
Fil (2003-05-28 16:07) [0]Кто знает как еще можно зарегестрировать свою программу в меню ПУСК, не используя функцию
Function ProgmanCommand(Command:string):boolean;
← →
Sha (2003-05-28 16:28) [1]
procedure CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: string);
var
MyObject: IUnknown; MySLink: IShellLink; MyPFile: IPersistFile;
WideFile: WideString;
begin;
MyObject:=CreateComObject(CLSID_ShellLink);
MySLink :=MyObject as IShellLink;
MyPFile :=MyObject as IPersistFile;
with MySLink do begin;
SetPath(PChar(CmdLine));
SetArguments(PChar(Args));
SetWorkingDirectory(PChar(WorkDir));
end;
WideFile:=LinkFile; MyPFile.Save(PWChar(WideFile),false);
end;
procedure CreateShortcuts(const MenuFolderName, MenuItemName, ExePath: string);
var
ExecDir, PgmMenuDir, DesktopDir: string;
MyReg: TRegIniFile;
begin;
ExecDir:=ExtractFilePath(ExePath);
MyReg:=TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");
PgmMenuDir:=MyReg.ReadString("Shell Folders","Programs","");
DesktopDir:=MyReg.ReadString("Shell Folders","Desktop","");
MyReg.Free;
// Create shortcut in program menu
if MenuFolderName<>"" then begin;
PgmMenuDir:=PgmMenuDir + "\"+ MenuFolderName; ForceDirectories(PgmMenuDir);
end;
CreateShortcut(ExePath,"",ExecDir, PgmMenuDir + "\" + MenuItemName + ".lnk");
// Create shortcut on desktop
CreateShortcut(ExePath,"",ExecDir, DesktopDir + "\" + MenuItemName + ".lnk");
end;
← →
Fil (2003-05-28 16:46) [2]Большое спасибо? А какие доп.модули подключить надо ?
← →
Sha (2003-05-28 20:59) [3]uses Windows, SysUtils, ShlObj, ActiveX, ComObj, Registry;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c