Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Sistema";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Favoritos de Windows Encontrar ramas similares


Schummi   (2001-09-15 07:45) [0]

Hola maestros Responda la siguiente pregunta: ¿Cómo saber dónde se encuentran la usuaria de Wind y su idioma (ruso o inglés) en la computadora del usuario o, más bien, cómo averiguar dónde se encuentra la carpeta de Favoritos? Gracias de antemano!



Ajax   (2001-09-15 22:30) [1]

Todas las carpetas del sistema.

procedimiento TForm1.FormCreate (Sender: TObject);
var
reg: TRgistry;
ts: TStrings;
i: entero;
comenzar
reg: = TRegistry. Crear;
reg.RootKey: = HKEY_CURRENT_USER;
reg.LazyWrite: = falso;
reg.OpenKey ("Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Shell Folders", falso);
ts: = TStringList.Create;
reg.GetValueNames (ts);
para i: = 0 a ts.Count -1 do begin
Memo1.Lines.Add (ts.Strings [i] + "=" + reg.ReadString (ts.Strings [i]));
fin;
ts.Free;
reg.CloseKey;
reg.free;
fin;



Schummi   (2001-09-16 07:22) [2]

Gracias, Ajax!



Борисов Александр   (2001-09-17 01:32) [3]

En el libro "Delphi 3.0 For All" (Fedorov AG, ed. "ComputerPress", 1998), en la sección "Cómo hacer un instalador", encontré el siguiente código:
var
SPath: Array [0..MAX_Path-1] de Char;
Ruta: Cuerda;
..............
comenzar
// Trabajo preparatorio: encontrar el directorio en el que se encuentra.
// Windows y cree una ruta al directorio WINDOWS / DESKTOP, donde
// etiquetas almacenadas mostradas en el espacio de trabajo

GetWindowsDirectory (sPath, MAX_PATH);
Ruta: = StrPas (sPath);
Ruta: = Ruta + "\ DESKTOP \";
.............

Aquí está el código.



Schummi   (2001-09-22 07:42) [4]

Gracias y Borisov Alexander!



[N\A]   (2001-09-22 14:50) [5]

y algo más sobre el tema ... usando solo api ...
función GetWinDir: cadena;
var
Buf: array [0..MAX_PATH] de Char;
comenzar
GetWindowsDirectory (@Buf [0], MAX_PATH + 1);
Resultado: = PChar (@Buf [0]);
si Resultado <> "" entonces
si Resultado [Longitud (Resultado)] <> "\" entonces
Resultado: = Resultado + "\";
fin;

función GetSysDir: cadena;
var
Buf: array [0..MAX_PATH] de Char;
comenzar
GetSystemDirectory (@Buf [0], MAX_PATH + 1);
Resultado: = PChar (@Buf [0]);
si Resultado <> "" entonces
si Resultado [Longitud (Resultado)] <> "\" entonces
Resultado: = Resultado + "\";
fin;

función GetTempDir: cadena;
var
Buf: array [0..MAX_PATH] de Char;
comenzar
Windows.GetTempPath (MAX_PATH + 1, @ Buf [0]);
Resultado: = PChar (@Buf [0]);
si Resultado <> "" entonces
si Resultado [Longitud (Resultado)] <> "\" entonces
Resultado: = Resultado + "\";
fin;

función ReadRegStr (RootKey: HKey; SubKey, Valor: String): String;
var
C: Array [0..254] de Char;
T, S: DWORD;
K: HKEY;
comenzar
Resultado: = "";
T: = REG_SZ;
S: = SizeOf (c);
si RegOpenKeyEx (RootKey, PChar (SubKey), 0, KEY_READ, K) = ERROR_SUCCESS entonces
si RegQueryValueEx (K, PChar (Valor), nil, @ T, @ C, @ S) = ERROR_SUCCESS entonces
Resultado: = C;
RegCloseKey (K);
fin;

function GetShellFolderPath (const Name: String): String;
var
S: cuerda;
comenzar
S: = ReadRegStr (HKEY_CURRENT_USER, "Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Shell Folders", Nombre);
Resultado: = s + "\";
fin;

Escritorio - Escritorio
Favoritos - Favoritos

si GetShellFolderPath ("Favoritos") <> "\" entonces
s: = GetShellFolderPath ("Favoritos");



Páginas: 1 rama entera

Foro: "Sistema";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.56 MB
Tiempo: 0.026 c
14-22370
Zergg
2001-11-08 16:30
2002.01.08
Acerca de la carga estática de archivos desde CBuilder


7-22429
Oleg_swap
2001-09-20 19:13
2002.01.08
inicio remoto del programa


1-22080
Delphimun
2001-12-18 17:11
2002.01.08
¿Cómo cargar el cursor desde el recurso y luego guardarlo en el disco?


1-22227
Tosov
2001-12-15 10:43
2002.01.08
Cómo trabajar con TInplaceEdit


1-22113
Yuraz
2001-12-19 20:25
2002.01.08
Hermanos por que





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español