Soyez le premier à donner votre avis sur cette source.
Vue 15 906 fois - Téléchargée 732 fois
program Dir2DOS; // ============================================================================= // Dir2DOS // // Ouverture d'une fenêtre 'Commande MsDOS' sur le chemin désigné par // une fenêtre ouverte de l'Explorateur Windows. // // Lionel T. @ www.2Ears.net // Juillet 2006 // // ============================================================================= uses Windows, Forms, ShellApi, SysUtils, Dir2DosCode in 'Dir2DosCode.pas' {Dir2DOSWindows}; var Data1, Data2 : String; {$R *.RES} // Processus premier : // Active l'ouverture d'une fenêtre 'Cmd.exe' si '-dir' est en option commande, // sinon, met en oeuvre la fiche 'Dir2DOSWindows' de commande. begin // Vérification qu'une seule instance de Dir2DOS est active (/Registre) SetLastError(NO_ERROR); CreateMutex (nil, False, 'Dir2DOS'); if GetLastError = ERROR_ALREADY_EXISTS then Exit; // Initialisation et traîtement des paramètres de la ligne de commande Reg. Application.Initialize; Application.Title := 'Dir2DOS'; Data1 := ParamStr(1); if Data1 <> '-dir' then begin Application.CreateForm(TDir2DOSWindows, Dir2DOSWindows); Application.Run; end else begin Data2 := ParamStr(2); ShellExecute(0, 'OPEN', PChar('Cmd.exe'), Nil, PChar(ExtractFilePath(Data2)), SW_SHOW); end; end.
15 juil. 2012 à 11:10
Utilisez le caractère #13 (Retour Chariot) pour séparer 2 lignes
Label1.Caption := 'Première ligne' + #13 + 'Deuxième ligne';
4 août 2006 à 14:43
4 août 2006 à 13:47
J'ai trouvé les notes assez sévères...
On va plus oser poster ! :(
Je trouve l'étude de ce code plutôt intéressante, ne serait-ce que pour rafraîchir ses connaissances en BDR, ParamStr et autres Mutex...
Bon, pour pinailler, à la place de :
If Reg.KeyExists('*\Shell\Dir2DOS\') then
KeyExists := True
Else KeyExists := False;
j'aurais fait :
KeyExists := Reg.KeyExists('*\Shell\Dir2DOS\');
et deux ou trois bricoles encore, mais chacun son style, hein ?
Moi je le trouve très bon, ton humour, elguevel... ;-)
21 juil. 2006 à 14:21
sur mon lieu de travail c'était la façon la plus simple d'intégration sur les postes, notamment pour le déploiement : si tu veux bien m'en excuser :)
Elguevel, bon résumé ;)
21 juil. 2006 à 12:05
je suis au regret de t'apprendre que ton lien est mort ... :-)
@+
Cirec
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.