RetourForum Delphi
Nouveau compte - Se connecter - Perdu votre mot de passe?Recherche: Utilisateur - Message

Index > Forum général > USBNouveau post - Répondre
youcef99
visiteur
Message USB message: éditerle 23/12/12 à 14h00

[i]Bonjour tout le monde Sourire
voila j ai une question , alors je suis actuellement en formation TSAII(technicien supérieur en automatique et informatique industriel) et on a un projet
j ai deux application a développer la première : l application doit tourner en permanence(thread) et surtout invisible le but c'est scanner le périphérique détecter et prendre la main sur Windows (la dll de détection) ensuite scanner par l'antivirus ,demander un mot de passe pour y accéder (avoir une basse de donner pour les clés USB par exemple avec leur référence :il ne peu accepter que les clés enregistrer )
bien sure avoir un moyen pour rentrer dans les paramètre avec un mot de passe pour rajouter d autre clés USB(ref)
je vous remercie d'avance
et merci a toute L Equipe phidels.com parce que vous faite un boulot énorme
                        (((((((SUR DELPHI bien-sur )))))))[

papyvore
visiteur
Message Re: USB message: éditerle 23/12/12 à 14h16

salut
Ben c'est quoi la question faire les deux applications  Langue

youcef99
visiteur
Message Re: USB message: éditerle 23/12/12 à 14h32

non au faite la deuxième application c'est la même chose sauf quel est visible

ZeuS-[SFX]
visiteur
Message Re: USB message: éditerle 23/12/12 à 14h54

Je pense que ce que papyvore voulait te faire comprendre :
C'est un forum d'entraide nous pouvons essayer de te guider/ trouver des solutions à des problèmes dans ton code etc.. mais nous ne sommes pas la pour développer à ta place.
Donc qu'elles sont tes questions ? Tu nous a décrit ton projet, c'est bien, mais quelles sont la ou les parties qui te posent problème ?


youcef99
visiteur
Message Re: USB message: éditerle 23/12/12 à 15h24

bien sure Sourire je suis tout nouveau sur le site donc je pensee qu'il faut poster son sujet dabord et ensuite discuter avec tout le monde Clin d'oeil
sur tout pas développer a ma place sinon il est l intérêt ...
alors voici mon code avec les étapes puis mes question Sourire Sourire :
Procedure TForm1.EtatConnectionUSB(var Msg: TMessage);
begin
//  / Déconnexion physique / / Connexion physique /
    if (Msg.wParam = $8004) or (Msg.wParam = $8000) then
        if DEV_BROADCAST_HDR(Msg.LParam)^.dbch_devicetype=2 then
            if DEV_BROADCAST_VOLUME(Msg.LParam)^.dbcv_flags=0 then
                if not Eject then
                begin
                    CheckListBox1.Clear;
                    Liste_USB(CheckListBox1.Items,True,True,True);
                end;
end;
pour cette partie c'est presque bon (detecter le peripherique) sauf que je veux prendre la main sur windows c'est a dire avoir la DLL de detection (panneau de config ; matériel et audio ; PERIPHERIQUE)

//

pour l éjection de mon périphérique aucun souci Sourire :
procedure TForm1.Button1Click(Sender: TObject);
var
  I    : Integer;
  Drive: String;
begin
  for I := 0 to CheckListBox1.Count - 1 do
        if CheckListBox1.Checked[I] then
        begin
            Eject:=True;
            Drive:=CheckListBox1.Items.Strings[i];

            if MessageDlg('Extraire le support complet ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
            begin
                if Eject_USB(Drive[1],4,300,True,True) then
                    CheckListBox1.ItemEnabled[I]:=False;
            end
            else
            begin
                if Eject_USB(Drive[1],4,300,True,False) then
                    CheckListBox1.ItemEnabled[I]:=False;
            end;
        end;
    CheckListBox1.Clear;
    Liste_USB(CheckListBox1.Items,True,True,True);
    Eject:=False;
end;

//

et pour mon bouton diagnostic
procedure TForm1.Button3Click(Sender: TObject);
begin
shellexecute(handle,'open',Pchar('C:\Program Files (x86)\Google\Chrome\Application\chrome.exe'),nil,nil,SW_HIDE);
end;

end.

la jai prie un point exe juste comme sa pour voir si sa marche ou pas donc a la place de chrome.exe je metterai NomAntiVirus.exe
alors je voulais tout dabord essayer manuellement mais ce que jai essayer de faire par la suite c'est de les faire tourné en permanence que sa se lance au démarrage de Windows  de cree une base de donnee pour les cles usb a enregistrer demande de mot de passe et surtout aussi lancer lantivirus mais avec le scanne sur le périphérique détecter donc jarrete pas a faire des essaie chercher sur internet et je marreterai pas tant jai pas trouver  Sourire Sourire et c'est pour cela je vous demande notre  papyvore quelque info ou des idee en plus 



papyvore
visiteur
Message Re: USB message: éditerle 24/12/12 à 12h55

salut
.... c'est a dire avoir la DLL de detection (panneau de config ; matériel et audio ; PERIPHERIQUE)
est ce que tu ne voudrais pas parler cpl au lieu dll .
si c'est ça il faut appeler Hdwwiz.cpl
comme ça cmd := 'rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl';
        WinExec(PChar(cmd),SW_SHOW);
si c'est pas ce que tu cherches ?? dll je vois pas quelle dll.

Index > Forum général > USBNouveau post - Répondre
 page 1 sur 1