raccourcis sur le bureau

Version imprimable

J'ai cherché dans le forum, pour metre un raccourcis sur le bureau, et j'ai découvert le code suivent

Code:

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
    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;
 
        psl->SetPath("C:\\Windows\\calc.exe");
        psl->SetDescription("Calculatrice");
 
        psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
 
        MultiByteToWideChar(CP_ACP, 0,"C:\\Windows\\Bureau\\Calc.lnk", -1,
                                              (LPWSTR)wsz, MAX_PATH);
 
       ppf->Save((LPWSTR)wsz, TRUE);
       ppf->Release();
       }
     psl->Release();
     CoUninitialize();

J'ai adapté le code a ma fenetre, mais pb, il n'accepte pas ma chaine de caractère pour la localisation du raccourcis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
                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;
                        psl->SetPath(step3->Edit1->Text + "PackCIS.exe");
                        psl->SetDescription("PackCIS");
                        psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
                        MultiByteToWideChar(CP_ACP, 0,step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Cav\\PackCIS\\PackCIS.lnk", -1, (LPWSTR)wsz, MAX_PATH);
                        ppf->Save((LPWSTR)wsz, TRUE);
                        ppf->Release();
               }
               psl->Release();
               CoUninitialize();

23/06/2006, 10h35
pottiez

Si tes dossiers ne sont pas créé, il se peut qu'il ne l'accepte pas, as tu un message d'erreur ?
23/06/2006, 10h36
lanonyme

Bonjour,

As tu essayer, en passant par un AnsiString avant, puis de le faire passer a ta fonction ?

Dans un premier temps, je penserai a probleme de /, car dans la fonction CheminSpecialFolder y'a qu'en a 1 alors qu'il faudrai les doubler :?

lanonyme

pour

Code:

1
2
 
psl->SetPath(step3->Edit1->Text + "PackCIS.exe");

Essayes

Code:

1
2
3
 
AnsiString chemin = step3->Edit1->Text + "PackCIS.exe";
psl->SetPath(chemin.c_str());

et pour

Code:

1
2
 
MultiByteToWideChar(CP_ACP,0,step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Cav\\PackCIS\\PackCIS.lnk", -1, (LPWSTR)wsz, MAX_PATH);

essayes:

Code:

1
2
3
 
AnsiString Lien = step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Cav\\PackCIS\\PackCIS.lnk";
MultiByteToWideChar(CP_ACP,0,Lien.c_str(), -1, (LPWSTR)wsz, MAX_PATH);

Alors, les dossiers sont crées, et voila, j'utiise le code la, il se complie, mais rien n'apparait dans les deux destinations

Code:

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
//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) + "PackCIS.exe";
                        psl->SetPath(chemin.c_str());
                        psl->SetDescription("PackCIS");
                        psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
                        AnsiString Lien = step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Cav\\PackCIS\\PackCIS.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) + "PackCIS.exe";
                        psl->SetPath(chemin.c_str());
                        psl->SetDescription("PackCIS");
                        psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
                        AnsiString Lien = step3->CheminSpecialFolder(CSIDL_DESKTOP) + "PackCIS.lnk";
                        MultiByteToWideChar(CP_ACP,0,Lien.c_str(), -1, (LPWSTR)wsz, MAX_PATH);
                        ppf->Save((LPWSTR)wsz, TRUE);
                        ppf->Release();
               }
               psl->Release();
               CoUninitialize();
        }

Bon, j'avais quelques erreurs, mais apres correction, j'ai reussis a 50% : l'icone sur le bureau, n'est pas,mais a la place, il met l'icone dans le menu démarrer, l'icone dans le startmenu\prog\cav\ink est ok

Code:

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();
        }

Citation:

Envoyé par Galkir

Code:

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();
        }

Tu as encore un CSIDL_START_MENU ici:

Code:

1
2
 AnsiString Lien = step3->CheminSpecialFolder(CSIDL_STARTMENU) + "\\Programmes\\Cav\\CISPack\\CISPack.lnk";
MultiByteToWideChar(CP_ACP,0,Lien.c_str(), -1, (LPWSTR)wsz, MAX_PATH);

23/06/2006, 11h15
Galkir

bah si tu parle du code dans la première moitié, c'est normal, car c'est le code de création du raccourci dans le menu demarrer
23/06/2006, 11h17
bakaneko

Citation:

Envoyé par Galkir

bah si tu parle du code dans la première moitié, c'est normal, car c'est le code de création du raccourci dans le menu demarrer

oups :oops:
23/06/2006, 11h26
Galkir

Bon, je croi que je vais abandonner cette idée de faire mon prog d'installation, car j'ai lu d'autre post, (en cherchant comment configurer les icones de fichier dans window a l'installatio du prog) et j'ai essayer Inno Setup (qui m'a l'air sympa).

merci quad même