Testudo

摘要： namespaceWpfApplication9{//////MainWindow.xaml的交互逻辑///publicpartialclassMainWindow:Window{publicMainWindow(){InitializeComponent();}privatevoidButton_Click(objectsender,RoutedEventArgse){Close();}For... 阅读全文

摘要： wpf ，PNG图形半透明窗体 ，使用webbrowser控件附件：http://files.cnblogs.com/xe2011/WpfApplication1_webbrowser_transparent.rarMainWindow1.XAMLMainWindow1.XAML.CSusingSy... 阅读全文

摘要： 多选择文件打开对话框关键点可以打开多个文件实现过程 CStringfilter="文本文档(*.txt)|*.txt|所有文件(*.*)|*.*||"; CFileDialogOpenFileDialog(TRUE,NULL,"*.txt",OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT|OFN_ALLOWMULTISELECT,fil... 阅读全文

摘要： 判断文件夹是否存在关键点GetFileAttributesTheGetFileAttributesfunctionretrievesattributesforaspecifiedfileordirectory.ThisfunctionretrievesasetofFAT-styleattributeinformation.TheGetFileAttributesExfunctioncanobtai... 阅读全文

摘要： 获取本地计算机的IP地址关键点WSAStartupTheWindowsSocketsWSAStartupfunctioninitiatesuseofWs2_32.dllbyaprocess.intWSAStartup(WORDwVersionRequested,LPWSADATAlpWSAData);实现过程 #include #pragmacomment(li... 阅读全文

摘要： const// registry entries for special paths are kept in : REGSTR_PATH_SPECIAL_FOLDERS = REGSTR_PATH_EXPLORER + '\Shell Folders'; {$EXTERNALSYM REGSTR_PATH_SPECIAL_FOLDERS} CSIDL_DESKTOP = $000... 阅读全文

摘要： XAMLButtonXAM.CSprivatevoidbutton1_Click(objectsender,RoutedEventArgse){webBrowser1.Navigate(newUri("http://w2i.wanmei.com/launcher/index.htm"));}xaml... 阅读全文

摘要： DELPHI XE6 FMX 附件:http://files.cnblogs.com/xe2011/IDHttp_fmx.7z 1 unit Unit1; 2 3 interface 4 5 uses 6 //引用 Vcl.ExtActns 7 Vcl.ExtActns, 8 9 System.Sy 阅读全文

摘要： 方法2unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;type TForm1 = class(... 阅读全文

摘要： DELPHI XE5 源码PASCAL:http://files.cnblogs.com/xe2011/FireMonkey_Webbrowser.rar 为了这个用上webbrowser真是费太大劲了 要让窗体2位置和窗体1的PANEL坐标一致 窗体样式要为none Web坐标才会正确 但是fir 阅读全文

摘要： 程序：http://files.cnblogs.com/xe2011/EXE_iWeb2014-4-9-185315.7z源码：http://files.cnblogs.com/xe2011/Pascal_iWeb2014-4-9-185315.7z 1 function CaptureScreenRect(ARect: TRect): TBitmap; 2 var 3 ScreenDC: HDC; // 设备描述表的句柄 4 begin 5 result := TBitmap.Create; 6 with result, ARect do 7 begin 8 Widt... 阅读全文

摘要： private { Private declarations } procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure TForm1.WMMOVE(var Msg: TMessage);begin inherited; if (Left 0) and (Top 0) then // 设定移动到左上角 10 点范围内时贴到边... 阅读全文

摘要： 说明1 将登陆器放在D:\完美国际版本 目录下2 程序会自动创建一个快捷方式到桌面上3 要修改D:\完美国际版本\patcher\skin\mainuni.xml 相关链接成自己的才会有效program 登陆器;uses Windows, Forms, ShlObj, ActiveX, ComObj, SysUtils, Dialogs, Controls, ShellApi;//{$APPTY... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender:... 阅读全文

摘要： 关键点在列表框生成后需要向其中加入或是删除行，可以利用：int AddString( LPCTSTR lpszItem )添加行，int DeleteString( UINT nIndex )删除指定行，int InsertString( int nIndex, LPCTSTR lpszItem )将行插入到指定位置。void ResetContent( )可以删除列表框中所有行。通过调用int ... 阅读全文