Discussion :

[cincap]

Bonjour à toutes et à tous,

Sur chaque Pc sous Windows 10 se trouve un dossier photo qui contient la photo du loockscreen (photo avant de mettre son mot de passe), dossier ou on peut afficher cette photo mais pas la modifier ni l'enlever.

Pour y avoir accès il faut mettre dans le chemin son SID qui commence toujours par "S-.....".

Je précise que c'est pour mon usage personnel !

Avec Delphi en mode console c'est possible mais je ne sais que récupérer et copier le résultat lettre par lettre alors que j'aurai aimé le récupérer dans un Tedit afin de l'utiliser dans ma commande avec "ShellExecute".

Merci si vous pensez à une autre possibilité.

@+,

cincap

[SergioMaster]

Bonjour,

cela a certainement à voir avec une requête WMI.

Avec Delphi en mode console c'est possible

Quelle commande utilises-tu ?

[cincap]

@ SergioMaster, merci de ta réponse.

Avec PowerShell sous Windows 10 en Administrateur ou pas il suffit d'écrire ceci :

whoami /user

Et tu obtiens ton identité soit ton SSID. qui commence toujours à mon avis par "S-1-5-21-...…………………".

J'arrive à le récupérer dans un Tmemo mais j'ai ceci à enlever soit le guillemet devant et à la fin avant de l'afficher complètement dans mon Tedit et enfin l'utiliser pour mon chemin.

@+,

cincap

[SergioMaster]

Alors cela aurait donc plus à voir avec les jetons de sécurité
mais ces images ne seraient pas plutôt dans %LocalAppData%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets ?

[Cirec]

Bonjour,

le plus simple, pour moi, c'est ceci:

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
procedure TForm1.Button1Click(Sender: TObject);
const
  MonRep2Sortie = 'c:\Mes Progs\';
var
  SL: TStringList;
begin
  ShellExecute(Handle, nil, 'CMD', '/c "%systemroot%\System32\Whoami.exe /user /FO CSV>UserSSID.txt"',
    MonRep2Sortie, SW_HIDE);
  SL := TStringList.Create;
  try
    SL.LoadFromFile(MonRep2Sortie+'UserSSID.txt');
    SL.Delete(0); // supprime la 1ère ligne
    SL.Delimiter := ',';
    SL.DelimitedText := SL.Text;
    edt_Dir.Text := SL[0];        // Nom d'utilisateur
    edt_Mask.Text := SL[1];       // SID
  finally
    SL.Free;
  end;
end;

Cordialement,

@+

[cincap]

@ SergioMaster

mais ces images ne seraient pas plutôt dans %LocalAppData%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets ?

Non ce dossier contient les photos issues de Windows à la une.

Le dossier dont je parle contient dans le chemin le SSID de l'Administrateur qui est moi et c'est la photo qui se lance avant de mettre son mot de passe (mais c'est une des photos qui vient du dossier que tu nommes).

Avec la commande "whoami /user" et PowerShell vous pouvez le tester et vérifier votre SSID.

J'arrive à récuperer mon SSID dans un Tedit mais avec un guillemet au début et un à la fin donc inexploitable dans mon Tedit.

@ Cirec, merci de ta suggestion mais cela ne fonctionne pas.

Si je trouve comment enlever les guillemets qui sont des caractères spéciaux c'est gagné, pour enlever le dernier guillemet qui se trouve à la position 47 dans mon cas j'ai utilisé ceci :

Code :

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

1
2
3
4
5
6
7
 
if length(Edssid.text) > 47 then
begin
 
 Edssid.text:= copy(Edssid.text, 1, 47);
 
 edit1.Text := edssid.Text;

Mais il faut voir si tous les SSID ont le même nombre de caractères.

@+,

cincap