Ver Mensaje Individual
  #1  
Antiguo 17-05-2012
Joel1091 Joel1091 is offline
Registrado
NULL
 
Registrado: may 2012
Posts: 1
Reputación: 0
Joel1091 Va por buen camino
Abrir librerias W7 con delphi7

Buenas, estoy aciendo un projecto de final de curso y necessito abrir las librerias de W7, he provado con: "CSIDL_PERSONAL", "CSIDL_DESKTOP", "csidl_mypictures" y estas si me las abre, pero las librerias de: descargas, mis videos y mi musica no consigo abrirlas.
El problema esque si pongo la ruta completa de la carpeta solo me la abre con el usuario que le pongo en el codigo del programa.
el codigo que estoy usando es este:

procedure TAccesos.bescritorioClick(Sender: TObject);
var
texto2:string;
begin
texto2:=SpecialFolder(CSIDL_DESKTOP);
WinExec(PChar('explorer.exe '+ texto2), SW_SHOW);
Lcarpetas.Caption := texto2;
end;

La variable texto es simplemente un label que me indica la ruta de la carpeta.

Gracias por su tiempo
Responder Con Cita