2011年12月_love3s

12月 11月 10月 09月 08月

转载 WinCE注册COM

void RegisterDLL(LPCTSTR lpszDllPath){ HMODULE hDLL = LoadLibrary(lpszDllPath); if (NULL == hDLL) { MessageBox(NULL, L"Fail", L"Error", MB_OK); } else { FARPROC pf

2011-12-28 14:07:12 754

原创获取系统语言

function ReturnLanguage: string;var LCID: Cardinal;begin Result := ''; LCID := GetSystemDefaultLCID; case LCID of 2052: Result := '简体中文'; 1028: Result := '繁体中文'; 1033: Result :=

2011-12-21 13:49:15 1636

原创 QT+VS2008环境搭建

经过测试，以下步骤顺利安装成功并测试运行：1、安装VS2008，2、下载qt-win-opensource-4.7.4-vs2008.exe3、下载qt-vs-addin-1.1.9.exe4、安装qt-win-opensource-4.7.4-vs2008.exe5、安装qt-vs-addin-1.1.9.exe以上下载可以去QT官网找，我的都是目前最新版本htt

2011-12-13 16:29:29 703

原创 Delphi中释放父控件里的所有子控件

procedure TFrmMain.ClearControls(AParent: TWinControl);var i: Integer;begin for i := AParent.ControlCount - 1 downto 0 do begin if not AParent.Controls[i].InheritsFrom(TWinControl) then Cont

2011-12-02 14:57:33 5129

转载获取系统中的语言

Function GetLanguage:string;var i:integer; sLists:TStrings;begin sLists:=TStringList.Create; try for i:=0 to Languages.Count-1 do sLists.Add(Languages.Name[i] + '[' + IntToHex(Lang

2011-12-02 14:06:48 1197

转载 Delphi以二进制方式读取图片并显示出来

procedure TForm1.BitBtn1Click(Sender: TObject);varStringStream : TStringStream;FSize : integer;FileData : string;i : integer;DataStr : string;msStream: TMemoryStream;begin msStream:= TMemor

2011-12-02 09:41:55 6837

转载 Delphi加载网络图片

Delphi加载网络图片uses Jpegprocedure TForm1.Button1Click(Sender: TObject);var imagestream:TMemoryStream; jpg:TJpegImage;begin imagestream := TMemoryStream.Create(); jpg:=TJpegImage.Creat

2011-12-01 16:23:41 5426