Je n’ai découvert que très tardivement Mov’amp que j’utilise pour diffuser l’usage de Moodle sur disque et clé USB.
Malheureusement, il n’y a plus de développement. Ce que je ne critique pas, la vie va..
J’ose quelques questions :
Y-a-t-il moyen de faire évoluer les composants sans toucher au code de l’exé Movamp.exe ? (J’imagine qu’en fait ce n’est qu’un lanceur qui a créé un disque W:)
Dans le cas contraire, le code source serait-il disponible ?
Seriez-vous disposer à nous permettre de continuer à travailler à la survie de ce bel outil ?
Il y a encore beaucoup de machines anciennes dans les écoles, votre contribution serait très appréciée.
Merci de votre réponse sur mon MP.

Mov’Amp est-il mort ? Peut-on le faire quelque chose pour le relancer ?

Jean-Luc

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TForm1=class(TForm)
PopupMenu1: TPopupMenu;
Quitter2: TMenuItem;
RxTrayIcon1: TRxTrayIcon;
Raccourcis1: TMenuItem;
Accueil1: TMenuItem;
phpMyAdmin1: TMenuItem;
phpinfo1: TMenuItem;
procedure FormCreate(Sender : TObject);
procedure Quitter1Click(Sender : TObject);
procedure RxTrayIcon1DblClick(Sender : TObject);
procedure Copie1Click(Sender : TObject);
procedure Accueil1Click(Sender : TObject);
procedure phpMyAdmin1Click(Sender : TObject);
procedure phpinfo1Click(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

var
Form1: TForm1;

{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender : TObject);
begin
(*
0044F9FC 55 push ebp
0044F9FD 8BEC mov ebp, esp
0044F9FF 6A00 push $00
0044FA01 6A00 push $00
0044FA03 6A00 push $00
0044FA05 53 push ebx
0044FA06 8BD8 mov ebx, eax
0044FA08 33C0 xor eax, eax
0044FA0A 55 push ebp
0044FA0B 68E0FA4400 push $0044FAE0

***** TRY
|
0044FA10 64FF30 push dword ptr fs:[eax]
0044FA13 648920 mov fs:[eax], esp
0044FA16 33D2 xor edx, edx

* Reference to Form1
|
0044FA18 A1383C4500 mov eax, dword ptr [$00453C38]

|
0044FA1D E8E6D5FDFF call 0042D008
0044FA22 8D55F8 lea edx, [ebp-$08]

* Reference to TApplication instance
|
0044FA25 A1C01F4500 mov eax, dword ptr [$00451FC0]
0044FA2A 8B00 mov eax, [eax]

* Reference to : TApplication._PROC_00434154()
|
0044FA2C E82347FEFF call 00434154
0044FA31 8B45F8 mov eax, [ebp-$08]
0044FA34 8D55FC lea edx, [ebp-$04]

|
0044FA37 E81890FBFF call 00408A54
0044FA3C 8D45F4 lea eax, [ebp-$0C]

* Possible String Reference to: ‘mnt’
|
0044FA3F B9F4FA4400 mov ecx, $0044FAF4
0044FA44 8B55FC mov edx, [ebp-$04]

|
0044FA47 E8B048FBFF call 004042FC
0044FA4C 8B55F4 mov edx, [ebp-$0C]
0044FA4F B077 mov al, $77

|
0044FA51 E802F6FFFF call 0044F058
0044FA56 EB0A jmp 0044FA62
0044FA58 68D0070000 push $000007D0

* Reference to: kernel32.Sleep()
|
0044FA5D E81ED4FBFF call 0040CE80

* Possible String Reference to: ‘w:\’
|
0044FA62 68F8FA4400 push $0044FAF8

* Reference to: kernel32.GetDriveTypeA()
|
0044FA67 E8C465FBFF call 00406030
0044FA6C 85C0 test eax, eax
0044FA6E 74E8 jz 0044FA58

* Possible String Reference to: ‘w:\’
|
0044FA70 68F8FA4400 push $0044FAF8

* Reference to: kernel32.GetDriveTypeA()
|
0044FA75 E8B665FBFF call 00406030
0044FA7A 83F801 cmp eax, +$01
0044FA7D 74D9 jz 0044FA58
0044FA7F 6A00 push $00

* Possible String Reference to: ‘w:/usr/local/php’
|
0044FA81 68FCFA4400 push $0044FAFC

* Possible String Reference to: ‘-f w:/usr/local/apache2/conf/httpd.
| conf -d w:/usr/local/apache2/’
|
0044FA86 6810FB4400 push $0044FB10

* Possible String Reference to: ‘w:/usr/local/apache2/bin/apache.exe’
|
0044FA8B 6854FB4400 push $0044FB54

* Possible String Reference to: ‘Open’
|
0044FA90 6878FB4400 push $0044FB78
0044FA95 8BC3 mov eax, ebx

|
0044FA97 E89089FFFF call 0044842C
0044FA9C 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FA9D E85651FDFF call 00424BF8
0044FAA2 6A00 push $00

* Possible String Reference to: ‘w:/usr/local/mysql/bin/’
|
0044FAA4 6880FB4400 push $0044FB80

* Possible String Reference to: ‘–defaults-file=my.cnf’
|
0044FAA9 6898FB4400 push $0044FB98

* Possible String Reference to: ‘w:/usr/local/mysql/bin/mysqld.exe’
|
0044FAAE 68B0FB4400 push $0044FBB0

* Possible String Reference to: ‘Open’
|
0044FAB3 6878FB4400 push $0044FB78
0044FAB8 8BC3 mov eax, ebx

|
0044FABA E86D89FFFF call 0044842C
0044FABF 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FAC0 E83351FDFF call 00424BF8
0044FAC5 33C0 xor eax, eax
0044FAC7 5A pop edx
0044FAC8 59 pop ecx
0044FAC9 59 pop ecx
0044FACA 648910 mov fs:[eax], edx

****** FINALLY
|
0044FACD 68E7FA4400 push $0044FAE7
0044FAD2 8D45F4 lea eax, [ebp-$0C]
0044FAD5 BA03000000 mov edx, $00000003

|
0044FADA E83545FBFF call 00404014
0044FADF C3 ret

|
0044FAE0 E98B3EFBFF jmp 00403970
0044FAE5 EBEB jmp 0044FAD2

****** END
|
0044FAE7 5B pop ebx
0044FAE8 8BE5 mov esp, ebp
0044FAEA 5D pop ebp
0044FAEB C3 ret

*)
end;

procedure TForm1.Quitter1Click(Sender : TObject);
begin
(*

* Possible String Reference to: ‘Apache.exe’
|
0044FBD4 B804FC4400 mov eax, $0044FC04

|
0044FBD9 E89EFCFFFF call 0044F87C

* Possible String Reference to: ‘mysqld.exe’
|
0044FBDE B818FC4400 mov eax, $0044FC18

|
0044FBE3 E894FCFFFF call 0044F87C
0044FBE8 B077 mov al, $77

|
0044FBEA E855F6FFFF call 0044F244

* Reference to TApplication instance
|
0044FBEF A1C01F4500 mov eax, dword ptr [$00451FC0]
0044FBF4 8B00 mov eax, [eax]

* Reference to : TApplication._PROC_00433C30()
|
0044FBF6 E83540FEFF call 00433C30
0044FBFB C3 ret

*)
end;

procedure TForm1.RxTrayIcon1DblClick(Sender : TObject);
begin
(*
0044FC24 53 push ebx
0044FC25 8BD8 mov ebx, eax
0044FC27 6A01 push $01
0044FC29 6A00 push $00
0044FC2B 6A00 push $00

* Possible String Reference to: ‘http://localhost/‘
|
0044FC2D 6848FC4400 push $0044FC48

* Possible String Reference to: ‘OPEN’
|
0044FC32 685CFC4400 push $0044FC5C
0044FC37 8BC3 mov eax, ebx

|
0044FC39 E8EE87FFFF call 0044842C
0044FC3E 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FC3F E8B44FFDFF call 00424BF8
0044FC44 5B pop ebx
0044FC45 C3 ret

*)
end;

procedure TForm1.Copie1Click(Sender : TObject);
begin
(*
0044FC64 55 push ebp
0044FC65 8BEC mov ebp, esp
0044FC67 33C9 xor ecx, ecx
0044FC69 51 push ecx
0044FC6A 51 push ecx
0044FC6B 51 push ecx
0044FC6C 51 push ecx
0044FC6D 51 push ecx
0044FC6E 51 push ecx
0044FC6F 33C0 xor eax, eax
0044FC71 55 push ebp

* Possible String Reference to: ‘é_<ûÿëë‹å]Ã’
|
0044FC72 680CFD4400 push $0044FD0C

***** TRY
|
0044FC77 64FF30 push dword ptr fs:[eax]
0044FC7A 648920 mov fs:[eax], esp
0044FC7D 8D55F8 lea edx, [ebp-$08]

* Reference to TApplication instance
|
0044FC80 A1C01F4500 mov eax, dword ptr [$00451FC0]
0044FC85 8B00 mov eax, [eax]

* Reference to : TApplication._PROC_00434154()
|
0044FC87 E8C844FEFF call 00434154
0044FC8C 8B45F8 mov eax, [ebp-$08]
0044FC8F 8D55FC lea edx, [ebp-$04]

|
0044FC92 E8BD8DFBFF call 00408A54
0044FC97 8D45F4 lea eax, [ebp-$0C]

* Possible String Reference to: ‘sauvegarde’
|
0044FC9A B920FD4400 mov ecx, $0044FD20
0044FC9F 8B55FC mov edx, [ebp-$04]

|
0044FCA2 E85546FBFF call 004042FC
0044FCA7 8B45F4 mov eax, [ebp-$0C]
0044FCAA 50 push eax
0044FCAB 8D45F0 lea eax, [ebp-$10]

* Possible String Reference to: ‘movamp.exe’
|
0044FCAE B934FD4400 mov ecx, $0044FD34
0044FCB3 8B55FC mov edx, [ebp-$04]

|
0044FCB6 E84146FBFF call 004042FC
0044FCBB 8B45F0 mov eax, [ebp-$10]
0044FCBE 5A pop edx

|
0044FCBF E8E0FAFFFF call 0044F7A4
0044FCC4 8D45EC lea eax, [ebp-$14]

* Possible String Reference to: ‘sauvegarde\mnt’
|
0044FCC7 B948FD4400 mov ecx, $0044FD48
0044FCCC 8B55FC mov edx, [ebp-$04]

|
0044FCCF E82846FBFF call 004042FC
0044FCD4 8B45EC mov eax, [ebp-$14]
0044FCD7 50 push eax
0044FCD8 8D45E8 lea eax, [ebp-$18]

* Possible String Reference to: ‘mnt\*.*’
|
0044FCDB B960FD4400 mov ecx, $0044FD60
0044FCE0 8B55FC mov edx, [ebp-$04]

|
0044FCE3 E81446FBFF call 004042FC
0044FCE8 8B45E8 mov eax, [ebp-$18]
0044FCEB 5A pop edx

|
0044FCEC E8B3FAFFFF call 0044F7A4
0044FCF1 33C0 xor eax, eax
0044FCF3 5A pop edx
0044FCF4 59 pop ecx
0044FCF5 59 pop ecx
0044FCF6 648910 mov fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ‘‹å]Ã’
|
0044FCF9 6813FD4400 push $0044FD13
0044FCFE 8D45E8 lea eax, [ebp-$18]
0044FD01 BA06000000 mov edx, $00000006

|
0044FD06 E80943FBFF call 00404014
0044FD0B C3 ret

|
0044FD0C E95F3CFBFF jmp 00403970
0044FD11 EBEB jmp 0044FCFE

****** END
|
0044FD13 8BE5 mov esp, ebp
0044FD15 5D pop ebp
0044FD16 C3 ret

*)
end;

procedure TForm1.Accueil1Click(Sender : TObject);
begin
(*
0044FD68 53 push ebx
0044FD69 8BD8 mov ebx, eax
0044FD6B 6A01 push $01
0044FD6D 6A00 push $00
0044FD6F 6A00 push $00

* Possible String Reference to: ‘http://localhost/‘
|
0044FD71 688CFD4400 push $0044FD8C

* Possible String Reference to: ‘OPEN’
|
0044FD76 68A0FD4400 push $0044FDA0
0044FD7B 8BC3 mov eax, ebx

|
0044FD7D E8AA86FFFF call 0044842C
0044FD82 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FD83 E8704EFDFF call 00424BF8
0044FD88 5B pop ebx
0044FD89 C3 ret

*)
end;

procedure TForm1.phpMyAdmin1Click(Sender : TObject);
begin
(*
0044FDA8 53 push ebx
0044FDA9 8BD8 mov ebx, eax
0044FDAB 6A01 push $01
0044FDAD 6A00 push $00
0044FDAF 6A00 push $00

* Possible String Reference to: ‘http://localhost/phpmyadmin/‘
|
0044FDB1 68CCFD4400 push $0044FDCC

* Possible String Reference to: ‘OPEN’
|
0044FDB6 68ECFD4400 push $0044FDEC
0044FDBB 8BC3 mov eax, ebx

|
0044FDBD E86A86FFFF call 0044842C
0044FDC2 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FDC3 E8304EFDFF call 00424BF8
0044FDC8 5B pop ebx
0044FDC9 C3 ret

*)
end;

procedure TForm1.phpinfo1Click(Sender : TObject);
begin
(*
0044FDF4 53 push ebx
0044FDF5 8BD8 mov ebx, eax
0044FDF7 6A01 push $01
0044FDF9 6A00 push $00
0044FDFB 6A00 push $00

* Possible String Reference to: ‘http://localhost/phpinfo/‘
|
0044FDFD 6818FE4400 push $0044FE18

* Possible String Reference to: ‘OPEN’
|
0044FE02 6834FE4400 push $0044FE34
0044FE07 8BC3 mov eax, ebx

|
0044FE09 E81E86FFFF call 0044842C
0044FE0E 50 push eax

* Reference to: shell32.ShellExecuteA()
|
0044FE0F E8E44DFDFF call 00424BF8
0044FE14 5B pop ebx
0044FE15 C3 ret

*)
end;

end.

Est puis la vérité final, toujours par resurgir au final …

( »
Je sais, ce n’est toujours pas open-source, mais il reste une dépendance a un truc propriétaire. *honte*
« );

Pourtant cette application a été développé avec : Licence is valid – Delphi Client/Server Suite (Enterprise)

Une super évolution de mov’amp serait de mettre un fichier pour configurer le menu, pour lancer autre chose que Accueil, PhpMyAdmin et phpInfo().

Je ne comprends pas bien pourquoi le code ne peut etre ouvert ? s’il y a un truc propriétaire, ça n’empêche pas d’ouvrir le code de mov’amp non ? Quel est le nom de ce composant propriétaire ?

a+ bon courage et bravo pour ce logiciel !

Quel plaisir de voir sortir une nouvelle version ! J’ai toujours Movamp sur ma bécane. Il est toujours là pour me dépanner et le voir disparaître serait une grande tristesse…

Merci de reprendre du temps pour le faire évoluer et bon courage !