uses Windows;type TfrmLogin = class(TForm) end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handl... Read More
posted @ 2015-11-26 22:13
findumars
Views(992)
Comments(0)
Diggs(0)
需要用到的一个函数:LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong);program Project;usesForms,Windows,ufrmMain in 'ufrmMain.pas' {frmMain};{$R ... Read More
posted @ 2015-11-26 22:11
findumars
Views(242)
Comments(0)
Diggs(0)
核心提示:使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是... Read More
posted @ 2015-11-26 22:10
findumars
Views(2035)
Comments(0)
Diggs(0)
// 方法1var Icon : TIcon; Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico'); //Load a... Read More
posted @ 2015-11-26 22:08
findumars
Views(1000)
Comments(0)
Diggs(0)
我们一般在调用了一些API后都会用GetLastError来获得错误信息,但是信息都是Integer的,我们知道是什么意思么?嘿嘿,是的,有msdn呀,当然还可以用FormatMessage函数来.正好看了下Windows核心编程第一章有个例子,来用Delphi试一下.主要用了FormatMessa... Read More
posted @ 2015-11-26 22:07
findumars
Views(891)
Comments(0)
Diggs(0)

浙公网安备 33010602011771号