bonjour,

j'utilise delphi 7 sous 2003 et seven, mes déboires sont sous seven(pas encore testé sous 2003). les droits d'acces locaux et de partage contiennent TOUT LE MONDE= TOUT LES DROITS.

voici le code simplet:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
  ws:WideString;
  pc:PAnsiCHar;
  i:integer;
begin
  ws:=AnsiReplaceStr(Self.Edit1.Text,'\\','\\?\UNC\');
  pc := PChar(AnsiString(ws));
  CreateDirectory(pc,nil);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  ws:WideString;
  pc:PAnsiCHar;
  i:integer;
begin
  ws:=AnsiReplaceStr(Self.Edit1.Text,'\\','\\?\UNC\');
  pc := PChar(AnsiString(ws));
  RemoveDirectory(pc);
 
end;
ou Self.Edit1.Text:='\\LPA-TICPC\partage\testfolder'

il bloque l'accès au bouton puis le réactive sans que rien ne se passe et sans explications.

1) qu'ais je oublié ?

2) comment faire pour intégrer le login et password à l'ouverture de session pour accéder au dossier au sein d'un domaine?.

3) qu'est ce que lpsecurity attribute, l'aide me noie plus qu'autre chose, a quoi ca sert ?.

4) comment puis je retrouver un chemin absolu local avec un chemin UNC ?