como insertar un icono en el menu de programas

[Neftali [Germán.Estévez]]

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.