variablen von cmd

[toredo]

hay,

gibt es eine(n) einfach(e) befehl/funktion um variablen von cmd z.b. in nen panel zu bringen?

also etwa so was:

Delphi-Quellcode:

Panel1.Caption:=Befehl(%windir%);
Panel2.Caption:=Befehl(%allusersprofile%);
Panel3.Caption:=Befehl(%username%);
...

mfG toredo

[Hawkeye219]

Vielleicht GetEnvironmentVariable?

Gruß Hawkeye

[toredo]

:-D danke, ich hätte nicht gedacht, dass das so einfach ist:)



mfG toredo

[Luckie]

Delphi-Quellcode:

(*
 * Author  : Michael Puff - [url]http://www.michael-puff.de[/url]
 * Date    : 2006-05-14
 * License : PUBLIC DOMAIN
 *)

function ReadEnviromentVariable(const Variable: string; var Value: string): DWORD;
var
  error             : DWORD;
  Buffer            : PChar;
  len               : Integer;
begin
  error := 0;

  len := GetEnvironmentVariable(PChar(Variable), nil, 0);
  if len > 0 then
  begin
    try
      Buffer := GetMemory(len);
      len := GetEnvironmentVariable(PChar(Variable), Buffer, len);
      SetString(Value, Buffer, len);
    finally
      FreeMemory(Buffer);
    end;
  end
  else
    error := GetLastError;

  result := error;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s                 : string;
  error             : Integer;
begin
  error := ReadEnviromentVariable('windir', s);
  if error <> 0 then
    s := SysErrorMessage(error);
  ShowMessage(s);
end;

[Hawkeye219]

@Luckie

Die Funktion GetEnvironmentVariable ist (mit String-Parameter) in der Unit SysUtils enthalten; sie liefert im Fehlerfall einfach einen Leerstring. Falls der Fehlercode gebraucht wird, muß man natürlich auf deine Routine zurückgreifen.

Gruß Hawkeye

[Luckie]

Jupp, aber ich dachte, wenn man die SysUtils mal nicht einbinden will, wäre es ganz praktisch. ;) Desweiteren kapsele ich API Funktionen immer so, dass meine Wrapper den Fehlercode zurückliefern, weil ich es einfach praktischer finde für die Fehlerbehandlung.