Algo sobre taskbar y systray

En las claves:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run Y HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Tienes los programas que se ejecutan al iniciar el Windows. La mayoría de ellos son los que luego aparecen en el systray.
Lo de la barra de tareas y menú de inicio se puede modificar simplemente creando accesos directos en la carpeta "C:\Documents and Settings\All Users\Menú Inicio". Modelando esta carpeta tendrás tu menú de inicio personalizado. Esto es válido para Win2000/XP. En Win95/98/Me la ubicación de las carpetas del menú de Inicio es diferente pero el funcionamiento es análogo.
Para crear un acceso directo por programa puedes utilizar la API:
procedure TForm1.Button1Click(Sender: TObject);
procedure CreaLnk( Exe,
Argumentos,
DirTrabajo,
NombreLnk,
DirDestino:string);
var
Objeto: IUnknown;
UnSlink: IShellLink;
FicheroP: IPersistFile;
WFichero: WideString;
begin
Objeto := CreateComObject(CLSID_ShellLink);
UnSlink := Objeto as IShellLink;
FicheroP := Objeto as IPersistFile;
with UnSlink do
begin
SetArguments( PChar(Argumentos) );
SetPath( PChar(Exe) );
SetWorkingDirectory( PChar(DirTrabajo) );
end;
WFichero := DirDestino + '\' + NombreLnk;
FicheroP.Save(PWChar(WFichero),False);
end;
begin
CreaLnk( 'c:\windows\Notepad.exe', {Ejecutable}
'c:\Autoexec.bat', {Argumentos}
'c:\', {Diretorio de trabajo}
'Editar Autoexec.lnk', {Nombre del Acceso Directo}
'c:\windows\escritorio' {Donde hay que crearlo}
);
end;
Para obtener la carpeta donde tienes el menú de Inicio puedes emplear:
procedure TForm1.Button1Click(Sender: TObject);
function ObtienePath(De:String):string;
var
Registro: TRegIniFile;
begin
Registro :=TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Result:= Registro.ReadString('Shell Folders',De,'');
Registro.Free;
end;
begin
ListBox1.TabWidth:=130;
ListBox1.Columns:=2;
with ListBox1.Items do
begin
Add('Escritorio/Desktop:' +^I+ObtienePath('Desktop'));
Add('Favoritos/Favorites:' +^I+ObtienePath('Favorites'));
Add('Fonts/Fonts:' +^I+ObtienePath('Fonts'));
Add('Mis Documentos/My Documents:' +^I+ObtienePath('Personal'));
Add('Inicio->Programas/Start->Programs:' +^I+ObtienePath('Programs'));
Add('Ficheros Recientes/Recent Files:' +^I+ObtienePath('Recent'));
Add('Menu Inicio/Start Menu:' +^I+ObtienePath('Start Menu'));
Add('Inicio/StartUp:' +^I+ObtienePath('Startup'));
end;
end;
Espero que te ayude en algo. Si quieres algo más concreto, dímelo.

Hola amigo. Gracias por responder en serio. Tu código y explicación me parecido interesante. Pienso que me puede llegar a servir . claro si es que me das una mano.
Cuando incorporo tu código copio y pego.. y cuando lo ejecuto. Me aparece el error remarcado de
IShellLink
Y todas las variables que declaraste.
¿Tengo qué agregar algo en uses?
Por que tal parece que no me reconoce esas variables.
Como te dije poco y nada entiendo de apis. Y esto esta relacionado creo. Así que por eso te pido una alaracion.
Bueno. Y otra que me olvide de formular es. Como puedo hacer para que mi aplicación sea la única que se ejecute en XP.
Yo lo hice en 98 por que tengo el system.ini y modifique la linea [boot]
explorer. Donde la reemplace por la direcconde donde esta mi aplicación.
Entonces cuando inicio la pc de nuevo. Se ejecuta mi aplicación y nada más. No hay explorer no hay nada. Bueno entenderás a lo que me refiero.
Pero en windows xp no tengo un system.ini que cumpla con mi propósito. Me gustaría saber como puedo hacerlo. Seguramente también tiene que ver con el registro. ¿Pero cómo lo haría? Por ejm con dos botones. Uno para hacer que mi aplicación se inicie sin explorer. O sea sea la única que se ejecute y abra. Y otro botón para resstablecer como estaba antes. O sea que inicie windows normalmente.
Bueno. De acuerdo a tu respuesta y aclaración sobre el código enviando anteriormente. Lo probare y te doy una respuesta para ver si me funciono o no. eserp que me puedas ayudar.
De ultima si por ahí no me formule bien. Elevare imágenes de mi aplicación explicadnote un poco mejor de lo que quiero lograr.
Bueno espero no ser denso y que me puedas ayudar. Gracias amigo y estamos en contacto.
mi mail es [email protected]
o mi msn es [email protected]
Un abrazo y de nuevo gracias por tu tiempo