1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
//Création du raccourci dans le menu démarrer
if (step3->CheckBox1->Checked == false)
{
//Code Internet pour la création du raccourci bureau
HRESULT hres;
IShellLink* psl;
WORD wsz[MAX_PATH];
CoInitialize(NULL);
hres = CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,IID_IShellLink, (LPVOID *)&psl);
if (SUCCEEDED(hres))
{
IPersistFile* ppf;
AnsiString chemin = ExtractFilePath(Application->ExeName) + "\\CISPack.exe";
psl->SetPath(chemin.c_str());
psl->SetDescription("CISPack");
psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
AnsiString Lien = step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Programmes\\Cav\\CISPack\\CISPack.lnk";
MultiByteToWideChar(CP_ACP,0,Lien.c_str(), -1, (LPWSTR)wsz, MAX_PATH);
ppf->Save((LPWSTR)wsz, TRUE);
ppf->Release();
}
psl->Release();
CoUninitialize();
}
ProgressBar1->Position++;
//Création du raccourcis sur le bureau
if (step3->CheckBox2->Checked == true)
{
//Code Internet pour la création du raccourci bureau
HRESULT hres;
IShellLink* psl;
WORD wsz[MAX_PATH];
CoInitialize(NULL);
hres = CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,IID_IShellLink, (LPVOID *)&psl);
if (SUCCEEDED(hres))
{
IPersistFile* ppf;
AnsiString chemin = ExtractFilePath(Application->ExeName) + "\\CISPack.exe";
psl->SetPath(chemin.c_str());
psl->SetDescription("CISPack");
psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
AnsiString Lien = step3->CheminSpecialFolder(CSIDL_DESKTOP) + "\\CISPack.lnk";
MultiByteToWideChar(CP_ACP,0,Lien.c_str(), -1, (LPWSTR)wsz, MAX_PATH);
ppf->Save((LPWSTR)wsz, TRUE);
ppf->Release();
}
psl->Release();
CoUninitialize();
} |
Partager