Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Cómo obtener las variables de entorno del DOS

Cómo obtener las variables de entorno del DOS

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Env : PChar;
  i : Integer;
  S : String;
  PosEq : Integer;

begin
  Env := GetDosEnvironment;
  With ListBox1,StringGrid1 do begin
    While Env^ <> #0 do begin
      Items.Add(StrPas(Env));
      Inc(Env,StrLen(Env)+1);
    end;
    RowCount := Items.Count;
    for i := 0 to Pred(Items.Count) do begin
      PosEq := Pos('=',Items[i]);
      Cells[0,i] := Copy(Items[i],1,PosEq-1);
      Cells[1,i] := Copy(Items[i],PosEq+1,Length(Items[i]));
    end;
  end;
end;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:44:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi