Discussion :

[Stevens.Georges]

Bonsoir,

Je suis sous WINDOWS XP et Delphi 4 standard.

Le code suivant teste la variable DskDef (string) pour s'assurer qu'elle correspond au disque dur du PC.

Code :

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

1
2
3
4
5
6
7
8
9
 
      try
        AssignFile(DskDefFile,DskDef+'DskDef.dsk');
        ReWrite(DskDefFile);
        CloseFile(DskDefFile);FDskDef:=True;
      except
        MessageDLg('Identifiant disque invalide.',mtError,[mbOK],0);
        FDsk:=False;
      end;

Si DskDef ne correspond pas, l'exception est bien déclenchée mais auparavant une fenêtre apparait indiquant :

Exception Processing Message c0000013 Parameters 75afbf 9c...
Annuler Recommencer Continuer

Que puis-je faire pour que cette fenêtre ne s'affiche pas mais que pourtant l'exception se déclenche ?

Merci d'avance à ceux qui pourront me donner la solution.

G. Stevens.

[Cl@udius]

Salut

Si je ne me trompe pas ton code ne fait que s'assurer de la présence du fichier DskDef.dsk sur ton disque. C'est ça ?

Si oui dans ce cas un simple FileExists ferait l'affaire.

Mais l'apparition de cette exception apparait lorsque tu exécutes ton programme depuis Delphi (en mode debug donc).

@+

[edam]

Si oui dans ce cas un simple FileExists ferait l'affaire.

exist elle en D4?

[Jipété]

exist elle en D4?

Bah, je l'ai dans des sources D3,
--
jp

[guillemouze]

j'ai eu ce problème aussi, mais pas dans un prog, dans delphi, je faisais "aller a la déclaration (ctrl+click) sur CreateOleObject, et il mettai cette erreur !!

après des recherches, j'ai cru comprendre que c'était un bug de windows (ça m'est arrivé après avoir mis a jour mon lecteur MemoryStick. je l'ai désactivé et depuis, plus de problème !!!!!!

[Stevens.Georges]

Salut

Si je ne me trompe pas ton code ne fait que s'assurer de la présence du fichier DskDef.dsk sur ton disque. C'est ça ?

Si oui dans ce cas un simple FileExists ferait l'affaire.

Mais l'apparition de cette exception apparait lorsque tu exécutes ton programme depuis Delphi (en mode debug donc).

@+

Non, il s'agit de déterminer chez un autre utilisateur du programme quelle est l'identifiant de son disque, car ce n'est pas nécessairement c:\.

Par ailleurs, la fenêtre ne s'affiche pas qu'en mode Debug mais aussi en exécution, et c'est bien ce qui pose problème puisque cela se passe chez l'utilisateur lambda.

Merci.

[Cl@udius]

Salut

Si j'ai bien compris, tu veux vérifier la présence du fichier DskDef.dsk qui doit se situer dans le dossier précisé par la variable DskDef.
Cette variable peut contenir suivant le contexte: C:\, C:\MonDossier, D:\, ...

Le code que tu présentes dans ton premier message ne fait qu'accéder à ce fichier, ce qui devrait déclencher une exception I/O en cas d'absence.

Ai-je tout compris ?

D'autre part ce message:

Exception Processing Message c0000013 Parameters 75afbf 9c...
Annuler Recommencer Continuer

ne ressemble pas vraiment à une exception de type EInOutError.

[Stevens.Georges]

Salut

Si j'ai bien compris, tu veux vérifier la présence du fichier DskDef.dsk qui doit se situer dans le dossier précisé par la variable DskDef.
Cette variable peut contenir suivant le contexte: C:\, C:\MonDossier, D:\, ...

Le code que tu présentes dans ton premier message ne fait qu'accéder à ce fichier, ce qui devrait déclencher une exception I/O en cas d'absence.

Ai-je tout compris ?

D'autre part ce message:

ne ressemble pas vraiment à une exception de type EInOutError.

Non, comme je te l'ai dit il s'agit de déterminer l'identifiant du disque dur de l'utilisateur lambda utilisant le programme, ce disque dur n'étant pas nécessairement identifié par c:\. Le fichier DskDef.dsk est utilisé par ailleurs mais le problème est de déterminer l'identifant du disque de l'utilisateur afin de pouvoir y créer DskDef.dsk. Récemment, un de mes utilisateurs m'a signalé que mon programme se plantait parce que son disque dur était identifié i:\ au lieu du c:\ habituel, et c'est pourquoi je cherche à parer cet os même s'il est peu courant.

C'est pourtant bien le message que j'obtiens non seulement en débogage, ce qui serait normal, mais même en exécution.

Merci de ton aide.

[Cl@udius]

Re,

Non, comme je te l'ai dit il s'agit de déterminer l'identifiant du disque dur de l'utilisateur lambda utilisant le programme, ce disque dur n'étant pas nécessairement identifié par c:\.

Code :

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

1
2
 
  LettreLecteur := ExtractFileDrive(ParamStr(0));

Te ramène 'C:', 'I:', ...
Si cette fonction n'existe pas sous D4 tu peux facilement extraire ton lecteur de ParamStr(0) (ou Application.ExeName ce qui est la même chose).

@+