Discussion :

[chekkal]

Bonjour à tous,

Pour des besoins de rapidité, il m'arrive parfois d'intervenir à distance par internet pour mettre à jour une des mes applications chez un client. Mais pour des raisons de sécurité je voudrais connaître tous les programmes qui s’exécutent et la manipulation de fichier (transfert de fichiers) en temps réel pour pouvoir procéder après.

[Ph. B.]

Bonjour,

Pour des besoins de rapidité, il m'arrive parfois d'intervenir à distance par internet pour mettre à jour une des mes applications chez un client. Mais pour des raisons de sécurité je voudrais connaître tous les programmes qui s’exécutent et la manipulation de fichier (transfert de fichiers) en temps réel pour pouvoir procéder après.

C'est plutôt une question d'administration système que de programmation Delphi...

Ensuite, recenser sur un poste distant des programmes en cours d'exécution ou des fichiers en cours d'utilisation nécessite d'avoir obtenu les droits adéquats.

Enfin, s'il s'agit d'obtenir ces informations par un quelconque code Delphi,, il faut toujours et au préalable passer par la case : http://delphi.developpez.com/faq/?pa...ocessus-actifs

Pour les fichiers, tout dépend de ce que vous voulez explicitement faire : détecter un fichier en cours d'utilisation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if FileExists(FileName) then 
  begin
    HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    if HFileRes = INVALID_HANDLE_VALUE then
      Result := True
    else
      CloseHandle(HFileRes);
  end;
end;

ou plus ?

[chekkal]

Bonjour,

merci pour ta réponse, je vai voir le lien et je tien au courant.

[chekkal]

ça marche merci.