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:
ou Self.Edit1.Text:='\\LPA-TICPC\partage\testfolder'
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;
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 ?
Partager