Discussion :

[bob2553]

Bonjour à tous,

J'ai réussi à ajouter des menu items dans le menu File -> New de l'IDE D7.
Je peux enregister par code lors de l'installation de mes composants un nouveau template en ajoutant une entrée dans le fichier bin\Delphi32.dro

Je souhaiterais déclencher par code la création d'un nouveau projet dans Delphi sur base de ce template comme le ferait Delphi avec
File -> New -> Others
et obtenir la boite de dialogue pour définir le répertoire cible du nouveau projet.

Je sais que l'on peut créer entièrement avec du code un nouveau projet avec les Tools API, mais cela demanderait un gros effort alors que mon template existe déjà.

Quelqu'un a-t-il une idée ou une piste pour faire cela?

D'avance merci
Bob

[sjrd]

Ces templates ne sont en fait que des fichiers placés dans le répertoire <bds>/objrepos/. Il faut donc copier le bon répertoire et éventuellement faire des modifications dans les sources ainsi copiées (coder en dur l'emplacement de ces données ou les rechercher d'une manière ou d'une autre).

[bob2553]

Merci, mais ce n'est pas vraiment la réponse que j'attendais.
le problème n'est pas vraiment le template ou l'emplacement de celui-ci mais l' "émulation" par code des commandes IDE:
File => New => Other.. => Mon template

Bob

[bob2553]

Personne??

Visiblement, ce ne serait pas possible...

Autre question alors:
Est-il possible d'ouvrir un projet par code dans l'IDE Delphi pour émuler
File=>Open(dpr file) ?

Bob

[LadyWasky]

Si c'est possible, mais il faut que tu scinde ton problême en plusieurs morceaux.

Explications :
Ton problême est en fait plus général que la prise de contrôle pa code de Delphi. Ton problême, c'est en fait d'envoyer des clics de souris ou des codes touches à une application pour réaliser une action spécifique au sein de celle-ci. Bref, on se moque de delphi : tout ce qui t'intéresse c'est de simuler l'appui de de touches dans Delphi afin d'ouvrir les bons menus.

Alors d'abord regarde mon post ici (simulation de touches) :
http://www.developpez.net/forums/sho...0&postcount=12

Puis ce tutoriel (approfondissement du sujet) :
http://tcharles.developpez.com/simul/?delphi=1

A partir de ces lectures instructives tu devrais t'en sortir avec du code qui ressemble à celui-ci :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var i,TabCount:integer;
    AWinHAndle,TabCtrlHandle:HWND;
    AControl:TWinControl;
    Item:PTCItem;
begin
  //Met Delphi en avant plan
  SetActiveWindow(FindWindow('Delphi', nil));
  sleep(100);
 
  //File => New => Other.. => Mon template
 
  //Menu File (=Alt+F)
  keybd_event(VK_LMENU, 0, 0, 0);
  keybd_event(ord('F'), 0, 0, 0);
  keybd_event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_LMENU, 0, KEYEVENTF_KEYUP, 0);
 
  //Déjà positionné sur New
//  keybd_event(VK_DOWN, 0, 0, 0);
//   keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
 
   //Other
   keybd_event(VK_RIGHT, 0, 0, 0);
   keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0);
   keybd_event(VK_UP, 0, 0, 0);
   keybd_event(VK_UP, 0, KEYEVENTF_KEYUP, 0);
 
   //on est sur le bon menu, on ouvre la fenètre
   keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   //on attend l'ouverture de la fenêtre (5 secondes)
   sleep(3000);
 
   //on continue en choisissant le bon onglet...
   AWinHAndle:=GetForegroundWindow;
   EnumChildWindows(AWinHAndle, @EnumProc, Integer(memo1.Lines));
   TabCtrlHandle:=FindWindowEx(AWinHAndle,0,PChar('TTabControl'),nil);
   TabCount:=SendMessage(TabCtrlHandle, TCM_GETITEMCOUNT, 0, 0);
 
   //Et là je ne sais pas :/
   EnumTabs(TabCtrlHandle,Memo1.Lines);
end;