Hallo,
Ich lese meinen Benutzernamen (Windowskonto) wie folgt in einem Editfeld ein:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
regist := TRegistry.Create;
regist.RootKey := HKEY_LOCAL_MACHINE;
regist.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\Winlogon',True);
Edit3.Text:=regist.ReadString('DefaultUserName');
end;
Das ist alles noch keine Hürde. Nun kommt mein Problem. Wenn ich jetzt die CMD aufrufe und den Wert aus Edit3 übernehme:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
begin
ShellExecute(
Handle,'
open','
cmd','
/c '+'
cacls "c:\System Volume Information" /E /G '+Edit3.Text+'
:F',
nil,SW_NORMAL);
end;
geht nichts mehr!
Wo liegt der Fehler? Kann man so überhaupt einen Wert aus einem Editfeld übernehmen???
Danke!