Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Регистрация программы в меню ПУСК   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c