Les raisons possibles pour que Windows gèle:
- jamais de scandisk ou d´outil de maintenance et avec 7% d´espace libre, les tables d´allocation saturent, pourtant 7% de 200 cela représente 14GO
- souci de Bios ( une màj peut-être) ?
- tools censés améliorer le fonctionnement de Windows installés récemment ?
- virus ?
- passage d´un service pack ?

scandisk ? faudrait que je le passe, ainsi qu´une defrag...
bios ? je suis deja a jour ( pas de mAJ sur le site du constructeur)
tweakXP d´installé
virus ? je viens de format et reinstall
service pack 1 mais acces quand meme apres...

Un defrag de 200 Go, bon courage !

merci pete... combien de temps a ton avis ?

Déjà qu´avec mon 13 GO ça prennait qqs heures, je n´ose imaginer avec un 200.
C´est pour ça aussi que les partitions sont utiles.

je ferais ma defrag ce WE... je suis pas la je laisserais mon pc allumé....

mon disque vient de disparaitre de l´explorateur windows ! !!!

Jop est-ce qu´il existe une fonction VB qui permet de récupérer le chemin d´où est lancée l´application ?

Pete, tu parles d´une application extérieure à VB?

Là c´est clair qu´il faut faire appel à des API!

En d´autres termes, tu aurais besoin d´un tool qui tourne en tâche de fond.
Il examine les applications actives et essaye de déterminer la provenance des . exe?

Y a-t-il un intérêt pour cela, connaissant la difficulté à déterminer les applications et les innombrables dll se chargeant et déchargeant pêle-mêle, de plus avec toutes les variantes d´OS?

Pour connaitre le nom de l´application active :

- Tu recupères son Handle
- Tu recupères son Nom

Dans un module :

public Declare Function GetActiveWindow lib " user32.dll" ( ) As Long

Public Declare Function GetWindowTextLength Lib " user32" Alias " GetWindowTextLengthA" ( ByVal hwnd As Long) As Long

Public Declare Function GetWindowText Lib " user32" Alias " GetWindowTextA" ( ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dans ton Code :
Dim hactive As Long
Dim CurrWnd As Long
Dim Parent As Long
Dim Length As Long
Dim NomTache As String

hactive = GetActiveWindow()

Length = GetWindowTextLength(hactive)
NomTache = Space$(Length + 1)
Length = GetWindowText(hactive, NomTache, Length + 1)
NomTache = Left$(NomTache, Len(NomTache) - 1)

Msgbox " Le nom de ma tache = " & nomtache

Je viens de créer un projet et ça fonctionne, si tu veux je l´envoie.

j´ai une enigme pour vous :

pourquoi quand je démarre, j´ai tout mes disques qui sont présents, mais, un peu plus tard, un d´eux disparait ?

Euh non je parlais de l´application VB que j´ai créée. Je veux récupérer le chemin du fichier où se trouve l´exe.

Demande a sacha distel

Coolman, je n´ai pas de réponse précise!
Vérifie bien ton bios et ton OS car les disques de 200 Go ne sont pas bien supportés.
Et de plus, partitionne le en au moins 5 disques de 40GO chacun.

Pete, alors serait-ce cela la solution pour toi?
Sample Project
Start a new Standard EXE project in Visual Basic. Form1 is created by default.
Add two CommandButtons to Form1.
Copy the following code to the Code window of Form1: Option Explicit

Private Declare Function GetModuleFileName Lib " kernel32" _
Alias " GetModuleFileNameA" _
( ByVal hModule As Long, _
ByVal lpFileName As String, _
ByVal nSize As Long) As Long

Private Sub Form_Load()
´Set the command button names
Command1.Caption = " Different Project and Executable Names"
Command2.Caption = " Similar File Names"
End Sub

Private Sub Command1_Click()
´Click this button if the project name and the compiled file
´name are different.
MsgBox VB.App.EXEName
End Sub

Private Sub Command2_Click()
´Click this button if the project name and the compiled file
´name are the same.

Dim strFileName As String
Dim lngCount As Long

strFileName = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFileName, 255)
strFileName = Left(strFileName, lngCount)

If UCase(Right(strFileName, 7)) < > " VB5.EXE" Then
MsgBox " Compiled Version"
Else
MsgBox " IDE Version"
End If
End Sub

Save the project with the IDEApp project name.
Compile two different executable files from this project. Use the default file name, IDEApp.exe, for the first executable file. For the second executable file, use the file name EXEApp. To compile the project, complete the following steps:

From the File menu, click Make IDEApp.exe. The Make Project dialog box appears.
Use the default file name or type your file name in the File name text box.
Click OK to create the executable file and to close the Make project Dialog box.
On the Run menu, click Start or press the F5 key to start the program. Click the Different Project and Executable Names button. A message box displays with the message, " IDEApp," to indicate that the program is running from the IDE. Click the Similar File Names button. A message box displays with the message, " IDE Version," to indicate the program is running from the IDE. Close down the project.
Run either executable file and click the CommandButtons. A message box is shown indicating the program is running from an executable file.

Euh... peut-être.

lol c´était simplement App.Path dont j´avais besoin.
Merci quand même.

( je sais pas si j´ai posé la question correctement en fait...)

J´étais parti ailleurs, je créais déjà un projet qui permettait de retrouver d´autres applications actives à un instant t, de les instancier et d´en retrouver les paramètres ( conso CPU, path, noms).

Ok lol mais j´ai pas besoin de tout ça