Commentaires de bib34690 sur tout CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 02 05:09:03

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

+ de logiciels à télécharger

1 301 173 membres
60 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 207 995 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

5 commentaire(s) de bib34690 sur des sources sur tout CodeS-SourceS

Le : 29/06/2007 17:26:38
Source : VÉRIFIER L'EXISTENCE D'UN FICHIER

+ simple...

If System.IO.File.Exists(MonFichier) Then ...

Le : 03/03/2006 15:52:36
Source : LECTURE/ECRITURE D'UN.TXT AVEC LA CLASSE STREAM

Bonjour,
Mon fichier contient des enreg. de 4 noms séparés par un séparateur, le tout finissant par un CR.
Je faisais :
open "[nom]" for Input as #1
input #1, nom1, nom2, nom3, nom4

comment faire en .NET qui ne reconnait pas cette syntaxe input #?

Merci pour votre aide.

Le : 19/09/2005 16:51:36
Source : LECTURE DU NUMÉRO DE VERSION DE L'APPLICATION

Voila mon nouveau code :
Function LectureVersion(FileName:String):String;

Var
  Handle   : DWord;
  Info     : Pointer;
  InfoData : Pointer;
  InfoSize : LongInt;
  DataLen  : UInt;
  LangPtr  : Pointer;
  InfoType : string;

Begin
  Result:='';
  //--- On demande la taille necessaire pour stocker les infos
  InfoSize:= GetFileVersionInfoSize(PChar(FileName), Handle);
  If (InfoSize>0) Then begin
    //--- Réservation en mémoire d'une zone de la taille voulue ---
    GetMem(Info, InfoSize);
    try
      //--- Copie dans le buffer des informations ---
      InfoType:='FileVersion';
      if GetFileVersionInfo(PChar(FileName), Handle, InfoSize, Info) then begin
         if VerQueryValue(Info,'\VarFileInfo\Translation',LangPtr, DataLen) then
            InfoType:=Format('\StringFileInfo\%0.4x%0.4x\%s'#0,[LoWord(LongInt(LangPtr^)),
                                         HiWord(LongInt(LangPtr^)), InfoType]);
         if VerQueryValue(Info,PChar(InfoType),InfoData,Datalen) then
             Result:=strPas(InfoData);
      end;
    Finally
      FreeMem(Info, InfoSize);
    End;
  End;
End;

Merci au forim developpez.com ou j'ai trouvé la solution que j'ai adaptée au code ci-dessus.

Le : 19/09/2005 16:47:44
Source : LECTURE DU NUMÉRO DE VERSION DE L'APPLICATION

ça marche avec n'importe quel prog. si on remplace S par File Info passé en param.

... j'ai entretemps trouvé la solution que je publierai dès que j'aurais fini de la tester...c'est un problème de langue...
le code ci-dessus ne marche que si le programme est de type "Français"
Winword et Excel sont compilés avec pour langue "langue neutre" ???...sacré bilou !
Il faut donc "trasncrire" 'FileVersion' en fonction de la langue du fichier.
@ + pour la soluce.

Le : 19/09/2005 12:31:29
Source : LECTURE DU NUMÉRO DE VERSION DE L'APPLICATION

Bonjour,

Il semble que ce code ne marche pas pour certains EXE, comme Winword.exe ou Excel.exe, alors que ces informations sont visibles si on fait un clic droit sur le fichier.
quelqu'un aurait-il une soluce ?
Merci.