Cela fait près de 5 années que je n'ai pas touché ou regardé à ce code, j'avoue avoir oublié (et arreter d'utiliser) ce programme.
Dans les possibilités, je verrais bien un problème au niveau du chargement/sauvegarde. Il pourrait être fort possible qu'une sauvegarde soit lancée alors que le chargement ne soit pas terminé.
Il pourrait y avoir conflit à ce moment là.

Je voulais ajouter un boutton dans un listview et j'ai trouvé cette source.
Le principe avait l'air pas trop mal j'ai donc essayé et j'ai trouvé des problèmes,
notament quand le listview à une ScrollBar, les éléments ajoutés ne se déplacent pas en même tant que le reste
en faite, ils restent figés.

Pour corriger cela, il faut aller dans "CustomDrawItem"
var
    rec: TRect;
begin
  if item.Data <> nil then begin
      rec := item.DisplayRect(drBounds);
      rec.Left := rec.Left + Sender.Column[0].Width; // car on met le boutton dans la deuxième colonne
      TButton(item.Data).BoundsRect := rec;
  end;
end;

Voilà déjà un problème de résolu ^_^

.: DarkSage :.

Je n'est pas regardé tout ton source, mais je tenais quand meme à éclaisir le point du broadcast (envoyer un message à tout le monde)

Car dans ton programme tu utilise l'adresse "192.168.0.255" qui
est l'adresse de diffusion pour le réseau 192.168.0.0 avec masque 255.255.255.0
Pourtant, tout le monde n'est pas dans cette configuration
C'est pour cela qu'il existe une téchnique extrèmement pratique qui est l'adresse de diffusion générale "255.255.255.255"

Ah oui, il faut bien rappeler que le broadcast ne fonctionne quand mode non connecté (UDP)

C'est information est valable pour tous les langages et pas seulement le java.

Bon code à tous.

.: DarkSage :.

Lol
Ben merci pour le commentaire, ca fait toujours plaisir :-)

Merci Clic pour ton conseil.
Je viens de tout réinstaller et j'ai rebooté et pouf ca as marché :))

Franchement, c super coooool
je le conseil à tout le monde

Arf, ca marche pas chez moi ! :'(
j'ai pourtant installé plein de trucs mais ca veux toujours pas.
j'obtient une erreur sur : DirectSR1.Find("MfgName=Microsoft")

Pouvez m'aider please !!

Pour parler de la source pure.
Je redirais que c'est pas vraiment le top. Quand je vois ça, j'me dis pas que le VB est un langage qui est évolué.

Voui, j'avoue que c jolie tout plein ton code.. mais bon
Pour éteindre un PC sous XP, y a bcp plus simple
C le prog shutdown.exe (a utiliser donc avec shell() ou autre...)

Voici sa syntaxe :

Utilisation : SHUTDOWN [-i | -l | -s | -r | -a] [-f] [-m \nom_ordinateur] [-t xx] [-c "commentaire"] [-d up:xx:yy]

        Sans argument           Affiche ce message (identique à -?)
        -i                      Affiche l'interface graphique, doit être la 1ère option
        -l                      Ferme la session (ne peut pas être utilisé avec l'option -m)
        -s                      Met l'ordinateur hors tension
        -r                      Met l'ordinateur hors tension et le redémarre
        -a                      Annule une mise hors tension système
        -m \nom_ordinateur     Ordinateur distant à mettre hors tension/redémarrer/annuler
        -t xx                   Définir le délai d'expiration pour la mise hors tension à xx secondes
        -c "commentaire"        Commentaire de la mise hors tension (maximum de 127 caractères)
        -f                      Force des applications en cours d'exécution à se fermer sans avertissement
        -d [u][p]:xx:yy         Le code de raison de la mise hors tension
                                u est le code utilisateur
                                p est un code de mise hors tension planifié
                                xx est le code de raison majeur (valeur entière inférieure à 256)
                                yy est le code de raison mineur (valeur entière positive inférieure à 65536)


Pour Windows 98, faut utiliser un API :

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

public type arret_pc
  delog = 0
  eteindre = 1
  reboot = 2
  forcer = 3
end type

Public Sub ExitWindows(arret as arret_pc)
   Call ExitWindowsEx(arret_pc, 0)
End Sub


Voilà
  :: DarkSage ::

Mouais, pour faire mon chieur...
Faudrait p'être rajouter un p'tit  après le C:
Et sinon, j'vois vraiment pas l'intéret de cette source, mais bon.

commentaires ??