bonjour, j'ai 14 ans et je vien sur le forum delphi !
(j'utilise delphi 7)
j'ai commencer il y a quelques temps mais ils y a quelques probleme qui persistes :
-est t il possible de faire ouvrir un fichier word, exel, page HTML, fichier .EXE, fenetres windows ou quoi que se soit d'autre en appuyant sur un bouton dans delphi, mais que ca ouvre le fichier à l'exterrieur de delphi ?si oui comment fait on?
-comment utiliser le lecteur multimédia de delphi(tuto?)
bon j'ai d'autres questions mais je vais patienter
j'attend vos réponses avec impatience
merci
__________________________
Blademan1
Salut, il est possible d'ouvrir un document en utilisant la commande ShellExecute.
Par contre, ça ne l'ouvrira pas dans ton application Delphi, si c'est un classeur, il est ouvert dans Excel, un lien par ton navigateur par défaut...
Il est toutefois possible de piloter Excel ou Word en utilisant les objets Automation et ainsi manipuler ton document.
Il existe aussi un composant XlsReadWriteII qui permet de lire un fichier .xls et te donner les informations que tu désires sur des cellules ou des feuilles, par contre il n'est pas visuel.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu].
Sa veut dire que je peut ouvrir une page HTML(pas encore sur internet) ou un module python(exemple) avec la fonction ShellExecute ?
par contre g pa compri les Automation...
explique stp
__________________________
Blademan1
Ca veut dire que tu peux lancer une page HTML dans un navigateur qui est sur internet.
Par contre, tu ne peux pas lancer un module python dans le sens où il ne sera pas intégré à ton programme Delphi, ça correspond plus à la fonction Executer de Windows.
Le mieux est que tu fasses F1 sur ShellExecute pour voir l'aide de Delphi sur cette fonction.
Les objets automation sont une bibliothèque d'objets qui permettent de piloter Excel ou Word, voici une FAQ détaillée sur la question : http://delphi.developpez.com/faq/?page=msoffice
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu].
ok merci beaucoup !
g une autre question stp :
chui en train de faire un programme qui gère des dossiers, je sais les créer (CreateDir), mais je n'ai pa trouver pour les effacer et leur contenu(j'ai essayer des trucs du genre : DeleteDir...)
Merci
__________________________
Blademan1
Un code pour effacer un dossier avec tout ce qu'il y a dedans :
function EffaceDossierEtFichier( s : string ) : Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
begin
with SHFileOpStruct do begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar( s + #0 + #0 );
pTo := nil;
// Pour effacer définitivement sans questionnement
fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
// Pour mettre a la corbeille
// fFlags := FOF_ALLOWUNDO;
// Vous pouvez aussi combiner l'ensemble
hNameMappings := nil;
lpszProgressTitle := nil;
end;
Result := ShFileOperation( SHFileOpStruct ) = 0;
end;
Pour envoyer un fichier à la corbeille :
function SupprimerFichier( aFichier : string ) : Boolean;
var
fos : TSHFileOpStruct;
begin
FillChar( fos, SizeOf( fos ), 0 );
with fos do
begin
wFunc := FO_DELETE;
pFrom := PChar( aFichier + #0 );
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
Result := ShFileOperation( fos ) = 0;
end;
Pour supprimer tout simplement un fichier :
Result := SysUtils.DeleteFile( aFichier );
Avec certain code, il faut que le dossier soit vide pour pouvoir le supprimer, il faut donc supprimer récursivement tout ce qu'il contient avant de le supprimer.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu].
Penses à mettre le tag [Résolu] (en haut à droite) et bonne année.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu].