Cita:
|
Empezado por edgusano
Mi pregunta es si se puede agregar una nueva entrada en el menu inicio - programas.
|
Puedes acceder a ese menu a través de la configuración del ordenador para cada usuario. Por ejemplo en un sistema con WinNT o WinXP tienes las configuraciones en:
"c:\Documents and Settings\USUARIO1\Menú Inicio\Programas\"
Por ejemplo para crear una nueva carpeta en el menu de programas, basta con que crees un directorio en ésta ubicación.
Para crear una nueva entrada a un programa puedes crear un acceso directo en esa ubicación.
Puedes utilizar la función siguiente para crear un acceso directro:
Código Delphi
[-]
procedure CreateShortCut(ShortCut, Application, Parameters, WorkDir:
string; SW_State: Integer; IconFile: string; IconIndex: Byte);
var
SCObject: IUnknown;
SCSLink: IShellLink;
SCPFile: IPersistFile;
WFName: WideString;
begin
SCObject := CreateComObject(CLSID_ShellLink);
SCSLink := SCObject as IShellLink;
SCPFile := SCObject as IPersistFile;
SCSLink.SetPath(PChar(Application));
SCSLink.SetArguments(PChar(Parameters));
SCSLink.SetWorkingDirectory(PChar(WorkDir));
SCSLink.SetShowCmd(SW_State);
SCSLink.SetIconLocation(PChar(IconFile), IconIndex);
WFName := ShortCut;
SCPFile.Save(PWChar(WFName), False);
end;
Para utilizarla podrías utilizar un código como éste:
Código Delphi
[-]
CreateShortCut('c:\Documents and Settings\USUARIO1\Menú Inicio\Programas\Notepad.lnk',
'c:\WINNT\NOTEPAD.EXE', '', 'C:\winnt', 0,
'c:\Glyphs_Images_Icons\dialogs\70.ico', 0);
Te creará un acceso directo al notepad con el icono que se le pasa como parámetro.