Y
yadanwutuobang
Unregistered / Unconfirmed
GUEST, unregistred user!
我是初学者,以下是部分程序,如何补充完整,非常感谢
//Get mailing list form Foxmail %Foxmail dir%/Foxmail.ADC
void __fastcall TMailingList::btnFoxmailClick(TObject *Sender)
{
slsFoxmail->Clear();
AnsiString asFoxmailADC;
TRegistry *Reg = new TRegistry;
try
{
//Find Foxmila path
Reg->RootKey = HKEY_LOCAL_MACHINE;
Reg->OpenKey("SOFTWARE//Aerofox//FoxMail", false);
asFoxmailADC = ExtractFilePath(Reg->ReadString("Executable"));
//Get whole name
asFoxmailADC += "Foxmail.ADC";
//Add to Mailing listbox
slsFoxmail->LoadFromFile(asFoxmailADC);
}
__finally
{
delete Reg;
}
}
//Get mailing list form Foxmail %Foxmail dir%/Foxmail.ADC
void __fastcall TMailingList::btnFoxmailClick(TObject *Sender)
{
slsFoxmail->Clear();
AnsiString asFoxmailADC;
TRegistry *Reg = new TRegistry;
try
{
//Find Foxmila path
Reg->RootKey = HKEY_LOCAL_MACHINE;
Reg->OpenKey("SOFTWARE//Aerofox//FoxMail", false);
asFoxmailADC = ExtractFilePath(Reg->ReadString("Executable"));
//Get whole name
asFoxmailADC += "Foxmail.ADC";
//Add to Mailing listbox
slsFoxmail->LoadFromFile(asFoxmailADC);
}
__finally
{
delete Reg;
}
}