Cacher et reafficher la form (superbe)

Voir la form suivante:

puis copie ce code dans le button reafficher:


form1.hide;
animatewindow(form1.handle,3000,aw_blend);
form1.show;
form1.Repaint;


                                                                                                                                              merci//

Cacher et Afficher les icons du bureau

On va traiter dans ce message le fait de cacher et afficher les icons du bureau avec une petite application sous Delphi,preparez la form suivante :

dans le button avec caption 'cacher' editez ce code :
ShowWindow(FindWindow('Progman',nil),SW_HIDE);


et pour le button afficher:
ShowWindow(FindWindow('Progman',nil),SW_RESTORE);


maintenant on passe a l'affichage de fenetre de windows:
par ex comment on affiche le bureau,poste de travail.....

pour reliser cette application vous devez connaitre les adresses physiques des fenetre :
poste de travail:20D04FE0-3AEA-1069-A2D8-08002B30309D
impremente:A280-3AEA-1069-A2DE-08002B30309D 222

Dans la partie de const ajouter ça

explication de codes:
1 poste de travail
2 Peopriete de l'imprimente
3 proriete de reseau
5panneau de configuration............

le code de l'appele

et on va ecrire ce code dans le premier button dans cette forme :

et voila les codes de chaque button

1- ShellExecute(Handle, 'Open', 'explorer.exe ',MyComputer, '', SW_SHOWNORMAL);
2- ShellExecute(Handle, 'Open', 'explorer.exe ',MyComputer, '', SW_SHOWNORMAL);
3- ShellExecute(Handle, 'Open', 'explorer.exe ',PrintersObj, '', SW_SHOWNORMAL);
4- ShellExecute(Handle, 'Open', 'explorer.exe ',W200ConnectionsObj, '', SW_SHOWNORMAL);
5- ShellExecute(Handle, 'Open', 'explorer.exe ',ConfigObj, '', SW_SHOWNORMAL);
6- ShellExecute(Handle, 'Open', 'explorer.exe ',FavoritesResObj, '', SW_SHOWNORMAL);
7- ShellExecute(Handle, 'Open', 'explorer.exe ',WebFolder, '', SW_SHOWNORMAL);
8- ShellExecute(Handle, 'Open', 'explorer.exe ',IE, '', SW_SHOWNORMAL);
9- ShellExecute(Handle, 'Open', 'explorer.exe ',MyDoc, '', SW_SHOWNORMAL);
10- ShellExecute(Handle, 'Open', 'explorer.exe ',Task, '', SW_SHOWNORMAL);
11- ShellExecute(Handle, 'Open', 'explorer.exe ',Trash, '', SW_SHOWNORMAL);

Traitement de Dossier -Partie2-

Supprimer un dossier vide
begin
if DirectoryExists(Edit1.Text) then RmDir(Edit1.Text);
 end;


Selectionner le nom d'un fichier
begin
Edit1.text:=ExtractFileName('c:\tht\adel.txt');
end;


Selectionner l'extention d'un Fichier
begin
showmessage(ExtractFileExt('C:\adel\bbc.txt'));
end;


Changer l'extention d'un Fichier
begin
changeFileExt('c:\bbc.txt','.doc');
end ;



Creer un fichier textuelle
var Fichier: TextFile;
begin
AssignFile(fichier,edit1.Text);
end;


Selectionner le dir d'un fichier
begin
showmessage(ExtractFileDrive ('C:\adel\bbc.txt'));
end;



Selectionner le path d'un fichier avec le nom du dossier pere
begin
showmessage(ExtractFilePath ('C:\ADEL\bbc.txt'
end;



Connaitre si le fichier est seulement pour la lecture
begin
if FileIsReadOnly('C:\ADEL\bbc.txt')= true
then showmessage('fichier est on lecture seule')
else showmessage('fichier n''est pas on lecture seule');
end;



begin
showmessage(GetCurrentDir);
end;