Discussion :

[Vinceee38]

Coucou tout le monde , j'ai une question un peu bête mais je comprend pas

Voila je souhaiterai lors d'un clique sur un bouton ouvrir la fenetre d'ajout d'une imprimante donc j'ai mi cela :

Code :

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

1
2
3
4
procedure TForm1.Button5Click(Sender: TObject);
begin
    WNetConnectionDialog(handle,RESOURCETYPE_PRINT);
end;

Ca compile mais aprés lorsque je clique sur le bouton rien ne se passe.

Vous avez une idée ?

[Vinceee38]

auto réponse lol:

j'ai trouvé , donc il faut mettre ceci à la place de Wnet... :

Code :

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

WinExec(PChar('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter'),SW_SHOWNORMAL);

[ALWEBER]

Une piste - regarde l'erreur retournée

var
i1 : integer ;
begin
i1 := WNetConnectionDialog(Handle,RESOURCETYPE_PRINT ) ;
showmessage (intToSTr(i1)) ;
end;

66 = ERROR_BAD_DEV_TYPE