Joel1091
17-05-2012, 09:52:05
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
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