Discussion :

[Galkir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pottiez]

Si tes dossiers ne sont pas créé, il se peut qu'il ne l'accepte pas, as tu un message d'erreur ?

[bakaneko]

pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

essayes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Galkir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Galkir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bakaneko]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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