<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; ActiveX</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/activex/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Send an e-mail through Outlook</title>
		<link>http://home.x-pack.org/delphi-send-an-e-mail-through-outlook/</link>
		<comments>http://home.x-pack.org/delphi-send-an-e-mail-through-outlook/#comments</comments>
		<pubDate>Tue, 04 May 2010 00:48:43 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=351</guid>
		<description><![CDATA[uses &#160;&#160;ComObj; procedure TForm1.Button16Click(Sender: TObject); const &#160;&#160;olMailItem = 0; &#160;&#160;olByValue = 1; var &#160;&#160;OutlookApp, MailItem, MyAttachments: OLEVariant; begin &#160;&#160;try &#160;&#160;&#160;&#160;OutlookApp := GetActiveOleObject('Outlook.Application'); &#160;&#160;except &#160;&#160;&#160;&#160;OutlookApp := CreateOleObject('Outlook.Application'); &#160;&#160; end; &#160;&#160;try &#160;&#160;&#160;&#160;MailItem := OutlookApp.CreateItem(olMailItem); &#160;&#160;&#160;&#160;MailItem.Recipients.Add('YourMailAddress@something.com'); &#160;&#160;&#160;&#160;MailItem.Subject := 'Your Subject'; &#160;&#160;&#160;&#160;MailItem.Body&#160;&#160;&#160;&#160;:= 'Your Message'; &#160;&#160;&#160;&#160;myAttachments&#160;&#160;&#160;&#160;:= MailItem.Attachments; &#160;&#160;&#160;&#160;myAttachments.Add('C:\text.txt', olByValue, 1, 'Name of Attachment'); &#160;&#160;&#160;&#160;MailItem.Send; &#160;&#160; finally &#160;&#160;&#160;&#160;myAttachments := VarNull; &#160;&#160;&#160;&#160;OutlookApp&#160;&#160;&#160;&#160;:=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-send-an-e-mail-through-outlook/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Register a OCX File</title>
		<link>http://home.x-pack.org/delphi-register-a-ocx-file/</link>
		<comments>http://home.x-pack.org/delphi-register-a-ocx-file/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 00:45:05 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=346</guid>
		<description><![CDATA[uses &#160;&#160;OLECtl; var &#160;&#160;OCXHandle: THandle; &#160;&#160;RegFunc: TDllRegisterServer; begin &#160;&#160;OCXHandle := LoadLibrary ('C:\Windows\System\custom.ocx'); &#160;&#160;RegFunc := GetProcAddress (OCXHandle, 'DllRegisterServer'); &#160;&#160; if RegFunc &#60;&#62; 0 then &#160;&#160;&#160;&#160;ShowMessage('Error!'); &#160;&#160;FreeLibrary (OCXHandle); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-register-a-ocx-file/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Control mIRC with DDE</title>
		<link>http://home.x-pack.org/delphi-control-mirc-with-dde/</link>
		<comments>http://home.x-pack.org/delphi-control-mirc-with-dde/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 00:42:49 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=343</guid>
		<description><![CDATA[uses &#160;&#160;DdeMan; procedure mIRCDDE(Service, Topic, Cmd: string); var &#160;&#160;DDE: TDDEClientConv; begin &#160;&#160;try &#160;&#160;&#160;&#160;DDE := TDDEClientConv.Create(nil); &#160;&#160;&#160;&#160;DDE.SetLink(Service, Topic); &#160;&#160;&#160;&#160;DDE.OpenLink; &#160;&#160;&#160;&#160;DDE.PokeData(Topic, PChar(Cmd)); &#160;&#160; finally &#160;&#160;&#160;&#160;DDE.Free; &#160;&#160; end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;mIRCDDE('mIRC', 'COMMAND', '/msg #DelphiTricks Hello programmers!'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-control-mirc-with-dde/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if the recycle bin is empty</title>
		<link>http://home.x-pack.org/delphi-check-if-the-recycle-bin-is-empty/</link>
		<comments>http://home.x-pack.org/delphi-check-if-the-recycle-bin-is-empty/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 00:33:52 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=340</guid>
		<description><![CDATA[uses Activex, ShlObj, ComObj; function RecycleBinIsEmpty: Boolean; const CLSID_IRecycleBin: TGUID = (D1: $645FF040; D2: $5081; D3: $101B; D4: ($9F, $08, $00, $AA, $00, $2F, $95, $4E)); var EnumIDList: IEnumIDList; FileItemIDList: PItemIDList; ItemCount: ULONG; RecycleBin: IShellFolder; begin CoInitialize(nil); OleCheck(CoCreateInstance(CLSID_IRecycleBin, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IID_IShellFolder, RecycleBin)); RecycleBin.EnumObjects(0, SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN, EnumIDList); Result := EnumIDList.Next(1, FileItemIDList,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-the-recycle-bin-is-empty/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – OLE with the internet explorer</title>
		<link>http://home.x-pack.org/delphi-ole-with-the-internet-explorer/</link>
		<comments>http://home.x-pack.org/delphi-ole-with-the-internet-explorer/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 01:04:13 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=360</guid>
		<description><![CDATA[uses comobj; procedure OpenIE(aURL: string); var &#160;&#160;IE:&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Variant; &#160;&#160;WinHanlde: HWnd; begin &#160;&#160;if (VarIsEmpty(IE)) then &#160;&#160;begin &#160;&#160;&#160;&#160;IE&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; := CreateOleObject('InternetExplorer.Application'); &#160;&#160;&#160;&#160;IE.Visible := True; &#160;&#160;&#160;&#160;IE.Navigate(aURL); &#160;&#160;end; &#160;&#160;else &#160;&#160;begin &#160;&#160;&#160;&#160;WinHanlde := FindWindow('IEFrame', nil); &#160;&#160;&#160;&#160;if (0 &#60;&#62; WinHanlde) then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;IE.Navigate(aURL); &#160;&#160;&#160;&#160;&#160;&#160;SetForegroundWindow(WinHanlde); &#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;else &#160;&#160;&#160;&#160;&#160;&#160;ShowMessage('Can''t open IE !'); &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-ole-with-the-internet-explorer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if Word, Excel, Access, Outlook, Powerpoint is running</title>
		<link>http://home.x-pack.org/delphi-check-if-word-excel-access-outlook-powerpoint-is-running/</link>
		<comments>http://home.x-pack.org/delphi-check-if-word-excel-access-outlook-powerpoint-is-running/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 01:01:33 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=357</guid>
		<description><![CDATA[uses &#160;&#160;ComObj, ActiveX; function IsObjectActive(ClassName: string): Boolean; var &#160;&#160;ClassID: TCLSID; &#160;&#160;Unknown: IUnknown; begin &#160;&#160;try &#160;&#160;&#160;&#160;ClassID := ProgIDToClassID(ClassName); &#160;&#160;&#160;&#160;Result&#160;&#160;:= GetActiveObject(ClassID, nil, Unknown) = S_OK; &#160;&#160;except &#160;&#160;&#160;&#160;Result := False; &#160;&#160; end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160; if IsObjectActive('Word.Application') then ShowMessage('Word is running !'); &#160;&#160; if IsObjectActive('Excel.Application') then ShowMessage('Excel is running !'); &#160;&#160; if IsObjectActive('Outlook.Application') then ShowMessage('Outlook]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-word-excel-access-outlook-powerpoint-is-running/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Extact the cursor position and how to set the cursorpos</title>
		<link>http://home.x-pack.org/delphi-extact-the-cursor-position-and-how-to-set-the-cursorpos/</link>
		<comments>http://home.x-pack.org/delphi-extact-the-cursor-position-and-how-to-set-the-cursorpos/#comments</comments>
		<pubDate>Mon, 04 Jan 2010 01:09:27 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[ActiveX]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=366</guid>
		<description><![CDATA[&#160;&#160;&#160;&#160;//extract the cursor position. procedure TForm1.Button1Click(Sender: TObject); var pt:tpoint; begin getcursorpos(pt); showmessage('The cursor pos. is: x='+inttostr(pt.x)+' y='+inttostr(pt.y); end; //SET the cursor position. // with this code you can move the windows mouse cursor with code //to x,y position. procedure TForm1.Button1Click(Sender: TObject); var pt:tpoint; begin pt.x:=15; pt.y:=98; setcursorpos(pt.x,pt.y); showmessage('The cursor pos. is: x='+inttostr(pt.x)+' y='+inttostr(pt.y); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-extact-the-cursor-position-and-how-to-set-the-cursorpos/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 18/42 queries in 0.033 seconds using disk: basic
Object Caching 476/546 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 04:54:35 -->
