Discussion :

[greg778]

Hello,

En qlq mots, je charge dans un mémo les noms de fichiers exécutables à exécuter !!, ces fichiers sont des fichiers compresser, lorsqu'on les exécute, il y a un edit pour entrer un mot de passe, et puis il faut cliquer sur ok pour décompresser le fichier.

J'ai testé ça, le premier fichier s'ouvre bien, mais je n'arrive pas à coller mon mot de passe et à faire 'ok'.

Code :

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

1
2
3
4
5
6
For i:=0 to Memo.Lines.Count-1 do
          Begin
           fichier:=PAnsiChar(Memo.Lines[i]);
           ShellExecute(0,'OPEN',fichier, Nil, Nil, SW_SHOW);
           PostMessage(0, WM_PASTE,0,0);
          end;

Est-il possible de simplement travailler avec un PostMessage ? ou c'est plus compliqué que ça ? je suppose qu'il faut pouvoir contrôler qd l'application attend le mot de passe, et une fois qu'on a cliqué sur 'ok', il faut attendre le temps de la décompression et le message de fin pour passer au fichier suivant dans la liste.
Une petite piste?
merci

[greg778]

entre temps j'ai testé autre chose :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFDaxonDecompresseur.Button1Click(Sender: TObject);
begin
 ShellExecute(0, 'open', 'notepad', nil, nil, SW_NORMAL);
 showmessage('ok1');
 ShowWindow(FindWindow(nil, PChar('Sans titre - Bloc-Notes')), SW_SHOW);
 SendMessage(FindWindow(nil, PChar('Sans titre - Bloc-Notes')), WM_PASTE,0,0);
 showmessage('ok2');
 PostMessage(FindWindow(nil, PChar('Sans titre - Bloc-Notes')), WM_CLOSE,0,0);
end;

j'ouvre bien le bloc-notes, et je le ferme bien, mais entre 2, rien ne se passe, je n'arrive pas à réafficher avec ShowWindow, ni à coller le contenu du clipboard dans le bloc-notes ouvert...