Raccourci personalisé: proxy on/off

Soyez le premier à donner votre avis sur cette source.

Vue 7 058 fois - Téléchargée 571 fois

Description

ProxyEn est un raccourci pour activer/désactiver le proxy. Je me suis fait ce petit prog, pour m'éviter de faire à chaque fois 6 manipulations. Le programme demande une installation personnalisée, étant donné que chaque utilisateur ne possède pas la même config internet... Lisez attentivement les explications données dans Proxy4.txt avant de l'essayer... Note: Je me suis aussi fait ce prog car j'ai remarqué que l'option s'activait toute seule des fois (à cause d'un autre prog peut-être) - Le résultat est connexion avec une reception bloquée à quelques centaines d'octets... à+ [Sub0]

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
71
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
24 février 2012

Salut à tous!
Note: Il faut faire attention avec ce programme si vous le mettez au démarrage, surtout si vous bricolez souvent la config de vos connexions internet, car il pourrait restaurer une ancienne config par dessus. Il faut refaire les fichiers REG... Quoi qu'il en soit, ce programme est destiné aux utilisateurs avertis!

Merci Nono40! C'est clair que ton code est mieux. Je suis passé à delphi il y a presque 1 mois je crois, avant je programmais avec BPW, j'ai encore les veilles habitudes! Vos conseils sont les bienvenus. à+
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
Mais comme tu t'embête avec ton fichier ini !!!!

Regarde l'aide sur le type TIniFile de Delphi. Il permet de gérer des fichiers INI comme ceux de Windows le plus simplement du monde.

Attention : Seek(F,1) est inutile et faut, le premier octet du fichier est le numéro 0 : Seek(F,0)

Si tu tiens vraiement aux fichiers binaires ( ce que je ne conseille pas dans ce cas), utilise des fichiers de type Record. La déclaration du type est la suivante :
Type TBuf=Packed Record
bLeft:Integer;
bTop :Integer;
bWidth:Integer;
bHeight:Integer;
End;

var Form1 : TForm1;
F : file Of TBuf; // Fichier typé
buf : TBuf;

Puis pour l'écriture du fichier :
procedure savinifile;
begin if(bsave=false)then EXIT;
{$i-}assignfile(F,ininame);
rewrite(F); // Pas de taille car le fichier est typé
Buf.bLeft:=Form1.Left;
Buf.bTop:=Form1.Top;
Buf.bWidth:=Form1.Width;
Buf.bHeight:=Form1.Height;
Write(F,Buf); // Write plutôt que BlockWrite
closefile(f); {$i+}if(ioresult<>0){$i-}then bsave:=false;
end;

Et pour la lecture :
{$i-}AssignFile(F,ininame);
Reset(F);
Read(f,buf);
CloseFile(F);
form1.Left:=buf.bLeft;
form1.Right:=buf.bRight;
form1.Width:=buf.bWidth;
form1.Height:=buf.bHeight;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.