ANDROID
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
[Files]
;Курсоры
Source: G:\Program Files\EA GAMES\Battlefield 2\mods\bf2\menu\External\FlashMenu\Cursor\cursor_arrow.ani; DestDir: {tmp}; Flags: dontcopy
Source: G:\Program Files\EA GAMES\Battlefield 2\mods\bf2\menu\External\FlashMenu\Cursor\cursor_wait.ani; DestDir: {tmp}; Flags: dontcopy
[Code]
Const
GCL_HCURSOR = (-12);
OCR_NORMAL = 32512;
var
OriginalWindowsCursor, CursorMain, CursorComponent: Longint;
function LoadCursorFromFile(FileName: String): Longint;
external 'LoadCursorFromFileA@user32 stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint;
external 'SetClassLongA@user32 stdcall';
function SetCursor(Cursor: Longint): Longint;
external 'SetCursor@user32 stdcall';
function SetSystemCursor(Cursor, CurType: Longint): Longint;
external 'SetSystemCursor@user32 stdcall';
function GetCursor(): Longint;
external 'GetCursor@user32 stdcall';
procedure InitializeWizard;
begin
OriginalWindowsCursor:= GetCursor;
ExtractTemporaryFile('cursor_arrow.ani');
ExtractTemporaryFile('cursor_wait.ani');
CursorMain:= LoadCursorFromFile(ExpandConstant('{tmp}') + '\cursor_arrow.ani');
CursorComponent:= LoadCursorFromFile(ExpandConstant('{tmp}') + '\cursor_wait.ani');
SetSystemCursor(CursorMain, OCR_NORMAL);
SetClassLong(WizardForm.BackButton.Handle, GCL_HCURSOR, CursorComponent);
SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, CursorComponent);
SetClassLong(WizardForm.CancelButton.Handle, GCL_HCURSOR, CursorComponent);
SetClassLong(WizardForm.DirBrowseButton.Handle, GCL_HCURSOR, CursorComponent);
SetClassLong(WizardForm.GroupBrowseButton.Handle, GCL_HCURSOR, CursorComponent);
end;
procedure DeinitializeSetup();
begin
SetSystemCursor(OriginalWindowsCursor, OCR_NORMAL);
end;
|
Всего записей: 1853 | Зарегистр. 02-11-2003 | Отправлено: 12:36 12-08-2007 | Исправлено: ANDROID, 14:51 12-08-2007 |
|
