Search Forum Home   Visual FoxPro  Visual FoxPro in general  Creare scurtatu...  Creare scurtatura pe desktop    8/24/2011 1:48:25 PM dalinx 124 posts Creare scurtatura pe desktop  (N/A) Va salut ! Doresc sa stiu cum pot crea prin VFP 9.0 scurtatura aplicatiei pe desktop. Multumesc mult pentru ajutor si intelegere ! O zi buna !  8/24/2011 2:02:45 PM Grigore Dolghin 3590 posts www.class-software.eu Re: Creare scurtatura pe desktop  (N/A) Google is your friend: http://www.ml-consult.co.uk/foxst-18.htm Citeste sectiunea "The generic method". Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  8/24/2011 2:11:49 PM cb 9 posts Re: Creare scurtatura pe desktop  (N/A) PROCEDURE faicon LPARAMETERS sunde, sdenumire, sver, sfisier, sdirector, sicon, xAll DO case case pcount()=5 sicon='' xAll=1 case pcount()=6 xAll=1 ENDCASE IF TYPE('xAll')<>'N' xAll=1 ENDIF IF !INLIST(xAll,1,2) xAll=1 ENDIF oShell = CREATEOBJECT("WScript.Shell") LOCAL cPath STORE '' TO cPath if file(sfisier,1) and directory(sdirector) IF TYPE('oShell')='O' AND !ISNULL(oShell) IF xAll=1 &&pt. toti utilizatorii DO CASE CASE UPPER(sunde)='D' &&ALL USERS\DESKTOP cpath = oShell.specialfolders("AllUsersDesktop") CASE UPPER(sunde)='P' &&ALL USERS\START MENU\PROGRAMS cpath = oShell.specialfolders("AllUsersPrograms") ENDCASE ELSE &&pt. utilizatorul curent DO CASE CASE UPPER(sunde)='D' &&DESKTOP cpath = oShell.specialfolders("Desktop") CASE UPPER(sunde)='P' &&START MENU\PROGRAMS cpath = oShell.specialfolders("Programs") ENDCASE ENDIF IF UPPER(sunde)='P' IF !directory(ADDBS(cpath)+"Subdirector de lucru") TRY LOCAL lDir lDir=ADDBS(cpath)+"Subdirector de lucru" MKDIR (lDir) CATCH FINALLY ENDTRY ENDIF cpath=ADDBS(cpath)+"Subdirector de lucru" ENDIF IF UPPER(sunde)='Q' &&QUICK LAUNCH - numai pt. utilizatorul curent cpath = oShell.specialfolders("AppData") cpath=ADDBS(cpath)+'Microsoft\Internet Explorer\Quick Launch' ENDIF IF !file(ADDBS(cpath) + FORCEEXT(ALLTRIM(sdenumire),"lnk"),1) oshort = oShell.createshortcut(ADDBS(cpath) + FORCEEXT(ALLTRIM(sdenumire),"lnk")) oshort.targetpath = ALLTRIM(sfisier) oshort.description = ALLTRIM(sdenumire)+IIF(!EMPTY(sver),' '+sver,'') oshort.workingdirectory = ALLTRIM(sdirector) IF !EMPTY(sicon) and file(sicon,1) oshort.iconlocation = ALLTRIM(sicon) ENDIF oshort.save ENDIF ENDIF ENDIF ENDPROC **exemplu apelare: DO faicon WITH 'P','Numa aplicatie','Versiune aplicatie','Calea catre EXE-ul aplcatiei','Working directory','Calea catre iconita aplicatiei','Userul curent - 1 sau toti userii - 2' **pentru Start Menu primul parametru este 'P', pt. Desktop este 'D', iar pt. Quick Launch este 'Q'  8/24/2011 2:40:30 PM dalinx 124 posts Re: Creare scurtatura pe desktop  (N/A) Multumesc mult pentru ajutor, amandurora ! O zi buna !  Page 1 of 1   Visual FoxPro  Visual FoxPro in general  Creare scurtatu... Flat View Tree View Oldest To Newest Newest To Oldest