Inhalt eines Edit an die CMD übergeben?

[mlspider]

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!

[BenjaminH]

ShellExecute erwartet Variablen vom Typ PChar, du kannst den Text vom Editfeld mittels Pchar(Edit.Text) formatieren

[mlspider]

Folgende Prozedur gibt leider eine Fehlermeldung beim compilieren:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject); 
begin 
ShellExecute(Handle,'open','cmd','/c '+'cacls "c:\System Volume Information" /E /G '+PChar(Edit3.Text)+':F',nil,SW_NORMAL); 
end;

Inkompatible Typen: 'String' und 'PAnsiChar'

[mirage228]

Zitat von mlspider:

Folgende Prozedur gibt leider eine Fehlermeldung beim compilieren:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject); 
begin 
ShellExecute(Handle,'open','cmd','/c '+'cacls "c:\System Volume Information" /E /G '+PChar(Edit3.Text)+':F',nil,SW_NORMAL); 
end;

Inkompatible Typen: 'String' und 'PAnsiChar'

Hi,

versuch es mal so:

ShellExecute(Handle, 'open', 'cmd',PChar('/c ' + 'cacls "c:\System Volume Information" /E /G ' + Edit3.Text + ':F'), nil, SW_SHOWNORMAL); mfG
mirage228

[mlspider]

Jepp, das war's. Danke!!!

[Christian Seehase]

Moin Mario,

Du hast beim Auslesen einiges vergessen:

• Das Registryobjekt wird nicht wieder freigegeben
• Der Key wird nicht geschlossen
• Du prüfst nicht, ob sich der Key auch öffnen lässt
• Einen Key aus dem man einen Wert braucht sollte man nicht mit der Option TRUE öffnen. OpenKeyReadOnly wäre, gerade bei Systemwerten, sinnvoller, vor allem wenn man nichts ändern will.

[mlspider]

Moin?! Christian,

hast recht!!! Du meinst bestimmt alles in einen Try Finally-Block setzen und anschließend regist.free.

Key-Prüfung: if regist.KeyExist('Schlüssel') then habe ich nachträglich "eingebaut". (Danke für den Hinweis!!!)

Dein zweites Bedenken kann ich allerdings nicht nachvollziehen.

Einen schönen 2. Advent!!!

[fkerber]

HI!

In der OH steht

Writes the current key to the registry and closes the key.

Delphi syntax:

procedure CloseKey;

C++ syntax:

void __fastcall CloseKey(void);

Description

Call CloseKey to write the current key to the registry and close the key. An application should not keep keys open any longer than necessary. Many TRegistry methods routinely call CloseKey after reading from or writing to the registry. Calling CloseKey when there is no current key has no effect.

Note: When an application closes a key, the key is written to the registry. The LazyWrite property determines how the write takes place.

Ciao Frederic

[mlspider]

Ja danke! Und nun noch mal zu Deutsch?! Ist ja nicht böse gemeint!!!!

[mirage228]

Hi,

bei mir (Delphi 7) wird im Destruktor von TRegistry die Funktion CloseKey() bereits aufgerufen. Also ist ein zweiter Aufruf nicht mehr nötig.

mfG
mirage228