hay,

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

also etwa so was:

markieren

Delphi-Quellcode:

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

mfG toredo

Vielleicht GetEnvironmentVariable?

Gruß Hawkeye

danke, ich hätte nicht gedacht, dass das so einfach ist



mfG toredo

zusammenfalten · markieren

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;

@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

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.