這是XP下的代碼，在Win78下已經沒用了。
誰給個支持Win78的代碼，謝謝（只要代碼，不要理論，謝謝）
bool __stdcall WriteStringToReg(HKEY Root, AnsiString Key, AnsiString KeyName, AnsiString KeyValue)
{
bool OK = false;
TRegistry *Registry = new TRegistry();
Registry->RootKey = Root;
if(Registry->OpenKey(Key, true)) {
try {
Registry->WriteString(KeyName, KeyValue);
OK = true;
}
catch(...) {
}
}
delete Registry;
return OK;
}
//---------------------------------------------------------------------------
bool __stdcall RegFileType(AnsiString Ext, // 擴展名，如：".dyc"
AnsiString ExtTypeName, // 檔案型別，如："dyc file"
AnsiString AppFileName, // 應用程式名，如"c:\\dyc.exe"
AnsiString FileDescription, // 檔案型別描述，如："dyc documents"
int IconIndex) // 圖示索引，如0
{
bool RegOK;
RegOK = WriteStringToReg(HKEY_CLASSES_ROOT, "\\"+Ext, "", ExtTypeName);
if(AppFileName.Pos(" ")>0) {
AppFileName = "\""+AppFileName+"\"";
}
if(RegOK) {
RegOK = WriteStringToReg(HKEY_CLASSES_ROOT, "\\"+ExtTypeName, "", FileDescription);
}
if(RegOK) {
RegOK = WriteStringToReg(HKEY_CLASSES_ROOT, "\\"+ExtTypeName+"\\DefaultIcon", "", AppFileName+","+IntToStr(IconIndex));
}
if(RegOK) {
RegOK = WriteStringToReg(HKEY_CLASSES_ROOT, "\\"+ExtTypeName+"\\Shell\\Open\\command", "", AppFileName+" \"%1\"");
}
return RegOK;
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/124409.html
標籤：基礎類
上一篇：請問如何獲取海康網路相機的實時預覽影像地址？例如MJPEG/H.264等？
下一篇：請大神們幫忙看看這個問題怎么解決