Jump to content
Korean Random

Qirashi

User
  • Content Count

    15
  • Joined

  • Last visited

Community Reputation

4 Noob

About Qirashi

  • Birthday 07/01/2003

Basic information

  • Gender
    Мужчина

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Сможешь вывести текст в кастомном сообщении?
  2. Нужен вывод картинки и текста, картинка у каждого компонента разная, а описание поддаётся локализации. Остальное в установщике готово и проблемы не создаёт. Если кто-то реально готов взяться за заказ, могу дать свой скрипт. Желательно чтобы была приемлемая цена.
  3. Он пока что не отвечает... Придётся подождать
  4. Не знаешь к кому можно ещё обратиться?
  5. function GetHKCU: Integer; //-| begin // | if IsWin64 then // | Определение разрядности Result := HKCU64 // | else // | Result := HKCU32; //-| HKCU/HKLM.... end; var InstallationPath: string; function GetInstallationPath(Param: string): string; begin if InstallationPath = '' then begin if RegQueryStringValue( GetHKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WOT.RU.PRODUCTION', 'InstallLocation', InstallationPath) then begin Log(CustomMessage('Caption5') + InstallationPath); end else begin InstallationPath := 'C:\путь в случае если не найдено ничего в реестре\'; Log(CustomMessage('Caption6') + InstallationPath); end; end; Result := InstallationPath; end; Могу только такое предложить... HKCU, HKLM... - Это краткое название стартовой папки в реестре. Надеюсь разберёшься)
  6. Поиск пути установки или поиск процесса игры?
  7. Нет, я разбирал установщик. Это судя по всему текст. ru.dCrosshairStandard=Обычный внутриигровой прицел. Подойдёт вам в том случае, если вы хотите, к примеру, поставить только арт-прицел и сведение.
  8. Немного проясню, установщик по сути уже готов. Мне осталось сделать меню выбора компонентов, а именно нужен вывод картинки с текстом сверху как у Джова. Сам сделать не смог...
  9. Да искал уже... Тишина, ничего подобного нет. Но вроде у Джова в установщике было похожее, даже не лагало)
  10. Уже использовал этот код, с ним есть огромный минус. Невозможно сделать нормальные фотографии к модам, их просто не видно из-за маленького размера. По этому я и стал искать вывод картинки у курсора, у меня вроде работает стабильно. Может быть есть код который не так сильно грузит установщик?
  11. Доброго дня. Использовал код ниже чтоб вывести изображение около курсора в меню компонентов. Суть вопроса в том, можно-ли вывести ещё и текстовое описание. Я мододел блица, но видел что-то похоже в WoT. Может есть код для такого или есть человек который выполнит это на заказ? #ifdef UNICODE #define A "W" #else #define A "A" #endif const UNDEF_INDEX = -777; ALPHA_BLEND_LEVEL = 255; // max=Byte=255 WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall'; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall'; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); try with PicForm do begin SetBounds(ScaleX(pt.x + 16), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height); Show; end; finally SetFocus(WizardForm.Handle); end; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of ExpandConstant('{cm:CompName1}'): UndefPic := '1.bmp'; ExpandConstant('{cm:CompName2}'): UndefPic := '2.bmp'; ExpandConstant('{cm:CompName3}'): UndefPic := '3.bmp'; ExpandConstant('{cm:CompName4}'): UndefPic := '4.bmp'; ExpandConstant('{cm:CompName5}'): UndefPic := '5.bmp'; ExpandConstant('{cm:CompName6}'): UndefPic := '6.bmp'; ExpandConstant('{cm:CompName7}'): UndefPic := '7.bmp'; ExpandConstant('{cm:CompName8}'): UndefPic := '8.bmp'; ExpandConstant('{cm:CompName9}'): UndefPic := '9.bmp'; ExpandConstant('{cm:CompName10}'): UndefPic := '10.bmp'; ExpandConstant('{cm:CompName11}'): UndefPic := '11.bmp'; ExpandConstant('{cm:CompName12}'): UndefPic := '12.bmp'; ExpandConstant('{cm:CompName13}'): UndefPic := '13.bmp'; ExpandConstant('{cm:CompName14}'): UndefPic := '14.bmp'; ExpandConstant('{cm:CompName15}'): UndefPic := '15.bmp'; ExpandConstant('{cm:CompName16}'): UndefPic := '16.bmp'; ExpandConstant('{cm:CompName17}'): UndefPic := '17.bmp'; ExpandConstant('{cm:CompName18}'): UndefPic := '18.bmp'; ExpandConstant('{cm:CompName19}'): UndefPic := '19.bmp'; ExpandConstant('{cm:CompName20}'): UndefPic := '20.bmp'; ExpandConstant('{cm:CompName21}'): UndefPic := '21.bmp'; ExpandConstant('{cm:CompName22}'): UndefPic := '22.bmp'; ExpandConstant('{cm:CompName23}'): UndefPic := '23.bmp'; ExpandConstant('{cm:CompName24}'): UndefPic := '24.bmp'; ExpandConstant('{cm:CompName25}'): UndefPic := '25.bmp'; else begin LastIndex := UNDEF_INDEX; PicForm.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin PicForm.Hide; LastIndex := -1; end; procedure InitInfo(); begin WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove; WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave; TempPath := AddBackslash(ExpandConstant('{tmp}')); LastIndex := UNDEF_INDEX; PicForm := TForm.Create(WizardForm) with PicForm do begin BorderStyle := bsNone; FormStyle := fsStayOnTop; InfoPic := TBitmapImage.Create(PicForm) with InfoPic do begin Parent := PicForm; AutoSize := True; end; end; SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA); end;
×
×
  • Create New...