The Windows API, informally WinAPI, is Microsofts core set of application programming interfaces APIs available in the Microsoft Windows operating systems. Professional and reliable radio broadcasting automation and internet streaming software for the studio and DJ. Atmel Studio 7. 0 build 943 offline installer 828 MB, updated May 2016 This installer contains Atmel Studio 7. Atmel Software Framework 3. Atmel. Components and Libraries Serial Communication Library for Windows and Linux supporting ZMODEM, YMODEM, XMODEM, KERMIT, 9bit, C, C, Visual Basic, Delphi, Perl. Automation Studio Windows 7 64 Bit' title='Automation Studio Windows 7 64 Bit' />Download LMMS. Downloading and using LMMS is free Just choose the operating system you want to run LMMS on. Learn how to set Windows 7 environmental variables so that you can easily locate customers system files and folders. Shell Extension for Windows 3. Delphi XE2 or XE3 Andreano Lanusse. Lets share the knowledge with your friends. Compile Delphi code for 6. Delphi XE2 and XE3, developers can go beyond Windows 3. Windows Shell Extension for Windows 6. Shell Extensions are in process COM objects which extends the abilities of Windows OS. In this post Im going to add two new context menu items in Windows Explorer. The menus will allow users to upload files to Microsoft Azure and Amazon S3. This post will go through how to create the extension, register and compile for 3. Im preparing another post, in which I will explain how to upload files to Amazon S3 and Microsoft Azure. Creating the Cloud. Upload Shell Extension. In order to start creating a Shell Extension in Delphi, you first need to create an Active. X Library project and after that create a new Automation Object. In the example I use for this post, the project name is Cloud. Upload and the Automation Object is called TCloud. Upload. Context. The TCloud. Upload. Context class must implement the interfaces IShell. Ext. Init and IContext. Menu in order to integrate the Context Menu in Windows Explorer. IShell. Ext. Init Methods. Initialize the context menu if a files was selected. IShell. Ext. Init. Initialize Shell. Ext. Initialize. function Shell. Ext. Initializepidl. Folder PItem. IDList lpdobj IData. Object. h. Key. Prog. ID HKEY HResult stdcall. IContext. Menu Methods. Initializes the context menu and it decides which items appear in it. Query. Context. MenuMenu HMENU index. Menu, id. Cmd. First, id. Cmd. Last. u. Flags UINT HResult stdcall. Execute the command, which will be the upload to Amazon or Azure. Invoke. Commandvar lpici TCMInvoke. Command. Info HResult stdcall. Set help string on the Explorer status bar when the menu item is selected. Get. Command. Stringid. Cmd UINTPTR u. Flags UINT pw. Reserved PUINT. Name LPSTR cch. Max UINT HResult stdcall The Shell. Ext. Initialize defines if the Context Menu will appear or not in Windows Explorer. In this sample the context menu only shows up if one file has been selected, otherwise no Context Menu. In case only one file was selected the FFile. Name variable will receive the name of the file. TCloud. Upload. Context. Menu. Shell. Ext. Initializepidl. Folder PItem. IDList. lpdobj IData. Object h. Key. Prog. ID HKEY HResult. Data. Serials 2000 8.1. Format TFormat. Etc. Strg. Medium TStg. Medium. Buffer array 0. MAXPATH of Char. Result EFAIL. Check if an object was defined. Prepare to get information about the object. Data. Format. cf. Format CFHDROP. Data. Format. ptd nil. Data. Format. dw. Aspect DVASPECTCONTENT. Data. Format. lindex 1. Data. Format. tymed TYMEDHGLOBAL. Get. DataData. Format, Strg. Medium lt SOK then. The implementation now support only one file. Drag. Query. FileStrg. Medium. h. Global, FFFFFFFF, nil, 0 1 then. Set. LengthFFile. Name, MAXPATH. Drag. Query. FileStrg. Medium. Global, 0, Buffer, Size. OfBuffer. FFile. Name Buffer. Result NOERROR. Dont show the Menu if more then one file was selected. FFile. Name Empty. Str. Result EFAIL. Release. Stg. MediumStrg. Medium. end After the context menu handler is initialized via the IShell. Ext. Init interface, Windows uses the IContext. Menu interface to call the other methods of our context menu handler. In this case it will call Query. Context. Menu, Get. Command. String and Invoke. Command. The Context Menu options Amazon S3, Microsoft Azure will be created through the Query. Context. Menu method. TCloud. Upload. Context. Menu. Query. Context. MenuMenu HMENU. Menu, id. Cmd. First, id. Cmd. Last, u. Flags UINT HResult. Cloud. Menu. Item TMenu. Item. Info. Menu. Caption String. Sub. Menu HMENU. only adding one menu Cloud. Menu. Item, so generate the result code accordingly. Result Make. ResultSEVERITYSUCCESS, 0, 3. Cloud. Menu. Item index. FMenu. Item. Index index. Menu. specify what the menu says, depending on where it was spawned. Flags CMFNORMAL then from the desktop. Menu. Caption Send file from Desktop to the Cloud. Flags and CMFVERBSONLY CMFVERBSONLY then from a shortcut. Menu. Caption Send file from Shourtcut to the Cloud. Flags and CMFEXPLORE CMFEXPLORE then from explorer. Menu. Caption Send file from Explorer to the Cloud. Result EFAIL. Result lt EFAIL then. Sub. Menu Create. Popup. Menu. u. Id id. Cmd. First. Insert. MenuSub. Menu, Amazon. Index, MFBYPOSITION, u. Id, TCloudsAmazon. Index. Insert. MenuSub. Menu, Azure. Index, MFBYPOSITION, u. Id, TCloudsAzure. Index. Fill. CharCloud. Menu. Item, Size. OfTMenu. Item. Info, 0. Cloud. Menu. Item. Size Size. OfTMenu. Item. Info. Cloud. Menu. Item. f. Mask MIIMSUBMENU or MIIMSTRING or MIIMID. Cloud. Menu. Item. Type MFTSTRING. Cloud. Menu. Item. ID FMenu. Item. Index. Cloud. Menu. Item. h. Sub. Menu Sub. Menu. Cloud. Menu. Item. dw. Type. Data PWide. CharMenu. Caption. Cloud. Menu. Item. LengthMenu. Caption. Insert. Menu. ItemMenu, index. Menu, True, Cloud. Menu. Item. end When you are in the Windows Explorer and you pass the mouse over one of the Cloud menu items a short help message is displayed in the Windows Explorer status bar, it is defined on the implementation of the method Get. Command. String, which returns a string to the Windows Explorer to display. TCloud. Upload. Context. Menu. Get. Command. Stringid. Cmd UINTPTR u. Flags UINT pw. Reserved PUINT psz. Name LPSTR cch. Max UINT HResult. Result EINVALIDARG. Set help string on the Explorer status bar when the menu item is selected. Cmd in Amazon. Index, Azure. Index and u. Flags GCSHELPTEXT then. Str. LCopyPWide. Charpsz. Name, PWide. CharCopy the selected file to. TCloudsid. Cmd, cch. Max. Result NOERROR. As the user clicks in one of the Cloud menu items, the method Invoke. Command will be called and start the process to upload the selected file to the Cloud selected. At this point we already have the file name and based on the lpici parameters we can identify what menu item the user clicked. TCloud. Upload. Context. Menu. Invoke. Commandvar lpici TCMInvoke. Command. Info HResult. Result EFAIL. Hi. WordIntegerlpici. Verb lt 0 then. Item Lo. WordIntegerlpici. Permata Yang Hilang Free Download here. Verb. if Item in Amazon. Index, Azure. Index then. Uploadlpici. HWND, Item, FFile. Name. on E Exception do. Message. Boxlpici. PWide. CharE. Message, Cloud Upload, MBICONERROR. Result NOERROR. In order for the COM object to be created whenever the Cloud. Upload is loaded, its necessary to create an instance of a class factory that specifically creates an instance of the shell extension object, the factory instance will be created on the initialization section, based on the following code, which is a replacement for the default code created by Delphi. TCloud. Upload. Object. Factory. CreateCom. Server, TCloud. Upload. Context. Menu, CLASSCloud. Upload. Context. Menu, ci. Multi. Instance, tm. Apartment. end. Since the class factory will be responsible to registerunregister the DLL, the methods Approve. Shell. Extension and Update. Registry will be invoked, it will happen when you use the regsvr. TCloud. Upload. Object. Factory classTAuto. Object. Factory. Approve. Shell. Extension Register Boolean const Cls. ID string. function Get. Prog. ID string override. Update. RegistryRegister Boolean override. TCloud. Upload. Object.