Eintrag in RestrictRun

[Uwe Wendt]

Hallo zusammen,in der Registry kann man unter "HKEY_CURREN_USER\Software\Microsoft\Windows\Curre ntVersion\Poilicies\Explorer\RestrictRun" Programme eintragen, die unter Windows laufen sollen. Hat jemand eine Idee, wie ich das in einer Delphi-Application einfügen kann? Der Schlüssel ist bereits angelegt.

Enjoy Uwe

[Günther Weber]

Hallo, hab mich auch grad damit beschäftigt. Ganz frischer Code. Entschuldige die C++ Syntax:

<pre>
LPSTR Viewer=new char[100];
TRegistry *Reg=new TRegistry();
Reg->RootKey=HKEY_CLASSES_ROOT;
Reg->OpenKey("TIFImage.Document\\Shell\\Print\\command ",true);
strcpy(Viewer,Reg->ReadString("").c_str());
// der Eintrag Viewer ist jetzt noch nicht mein FileName !!
OpenDialog1->FileName=Viewer;
if(OpenDialog1->Execute())
{
strcpy(Viewer,OpenDialog1->FileName.c_str());
strcat(Viewer," /p \"%1\"");
Reg->WriteString("",Viewer);
}
delete Viewer;
Reg->Free();
</pre>
Gruß: Günthe