Sujet Précédent Sujet Suivant

MPASM

Résolu
boutterinth Messages postés 8 Date d'inscription jeudi 17 juillet 2003 Statut Membre Dernière intervention 22 mars 2005 - 3 févr. 2004 à 21:04
yvemoreau Messages postés 308 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 26 septembre 2008 - 4 févr. 2004 à 03:19
Bonjour

je voudrai savoir si avec une aplication delphi on peut piloter un logiciel exterieur. en l'ocurence MPASM

si oui mersi de m'indiquer coment ou une methode ou.......

merci d'avance.

1 réponse

Réponse 1 / 1
yvemoreau Messages postés 308 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 26 septembre 2008
4 févr. 2004 à 03:19
il n'y a pas grand chose à piloter ,mpasm est un compilateur qui ouvre un fichier asm et remet un fichier hex.

j'ai un petit tutoriel que j'ai fait à ce sujet , c'est un programme delphi qui utilise mpasm en sourdine ,simplement avec une association de fichier dans le registre,et qui utilise le fichier hex de sortie...

procedure TForm1.FormCreate(Sender: TObject);
var
x:Integer;
Reg ,R: TRegistry;
res:String;
begin
//permettre ouvrir fichier asm avec mpasmwin
Reg := TRegistry.Create;
Reg.RootKey :=HKEY_CLASSES_ROOT;
if not Reg.KeyExists('\ASM_auto_file\shell\openas\command')then
begin
R:=TRegistry.Create;
try
R.RootKey:=HKEY_CLASSES_ROOT;
R.CreateKey('\ASM_auto_file\shell\openas\command');
R.OpenKey('\ASM_auto_file\shell\openas\command', False);
R.WriteString('','"C:\Program Files\MPLAB\MPASMWIN.EXE" %1');
finally
begin
R.CloseKey;
R.Free;
end;
end;
end;
Reg.CloseKey;
Reg.Free;
end;

Te permets ensuite d'ouvrir avec

ShellExecute(handle,'openas',PChar(NomFichierASM),'','',0);

//Ce qui provoque la compilation automatique vers un fichier
//Hex
je t'enverrai le démo si c'est ce que tu cherches ...

yve
3
Rejoignez-nous