Jump to content
Korean Random

Draugd

Newbie
  • Posts

    126
  • Joined

  • Last visited

Reputation

0 Noob

Basic information

  • Gender
    Мужчина

Contacts

  • Nick
    Draugd
  • Skype
    draugd

Recent Profile Visitors

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

  1. так уже заменял... он все равно при установки по автомату на евро лезет... если два клиента установлено...
  2. Плиз подскажите где на что поменять чтобы по автомату выбирал лесту! 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: Longint; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; 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'; function WOT_GetClientsCount(): Integer; external 'WOT_GetClientsCount@files:FindWot.dll cdecl'; function WOT_GetClientBranch(ClientIndex: Integer): Integer; external 'WOT_GetClientBranch@files:FindWot.dll cdecl'; procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer); external 'WOT_GetClientPathW@files:FindWot.dll cdecl'; function DefaultDirName(Param: String): String; var ClientsCount, Index: Integer; FoundDir: String; begin SetLength(FoundDir, 1024); ClientsCount:=WOT_GetClientsCount(); if ClientsCount > 0 then begin for Index:=0 to ClientsCount-1 do begin if WOT_GetClientBranch(Index) = 1 then begin WOT_GetClientPathW(FoundDir, Length(FoundDir)-1, Index); Result:=ExpandConstant(FoundDir); end; end; end else Result:=ExpandConstant('{sd}\Games\World_of_Tanks'); end; procedure ShowPicHint(const PicFilePath: String); begin ImgRelease(InfoPic); InfoPic := ImgLoad(PicForm.Handle, PicFilePath, 0, 0, 340, 260, False, False); PicForm.SetBounds(WizardForm.Left + ScaleX(509), WizardForm.Top + ScaleY(80), 340, 260); ImgApplyChanges(PicForm.Handle); PicForm.Show(); SetFocus(WizardForm.Handle); 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 '1.Командирская камера.': UndefPic := 'KK.bmp'; '2.Винтик.': UndefPic := 'VNT.bmp'; else begin LastIndex := UNDEF_INDEX; PicForm.Hide(); ImgApplyChanges(PicForm.Handle); Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin ImgRelease(InfoPic); PicForm.Hide; ImgApplyChanges(PicForm.Handle); 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; 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; procedure InitializeWizard1(); begin InitInfo(); end; function NextButtonclick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK); Result := False; end; end; end;
  3. если получится то будет вообще заемечательно!)
  4. а куда дир индекатед эксентед пропал? ((
  5. когда какая то шерсть тупарылая ублюдочная минусит на мои вопросы ответы это как то поднапрягает..
  6. у тебя какой то обиженый минусовщик завелся!
  7. @StranikS_Scan плиз... сделай чтоб по стандартным ушам отображение статистики игроков было!!!
  8. ну вот в этой версии старой 2.09 без Nan с первого боя все норм считает... и точно!!! проверенно неоднократно лично... еще бы в ангаре отображение прикрепить!!! (( Может нашел бы минутку на это)) mods.rar слухай... хотел к тебе еще вот с чем обратится... есть мод статистика игроков в бою без хвм - отличный мод, работает уже много патчей но... оочень не хватает цветов по рейтингу! Можешь его к своей флеше подключить и добавить возможность добавлять цвета в конфиге... ну и скрипт на свое усмотрение там подправить, подобновить, объеденить)) блин... ооочень многие были бы оочень благодарны!!! + с меня сразу 20 баксов доната на любой кошелек...
  9. можно ли как прописать в конфиге или скрипте чтоб считалось с первого боя (как раньше было) пусть с небольшими неточностями...
×
×
  • Create New...