[SOLON7]

проверьте на виртуалке. У меня на диске H работало.
Просто мне кажется у вас дистр криво стоит !!

Проверь на виртуалке с 3 дисками !! Эта проблема сплывает 1 раз. У остальных все пучком !!!

[GreyAngel]

Эта проблема сплывает 1 раз. У остальных все пучком !!! »

Тут вы не правы ,страница 23,пост товарища Ivanvsh,обратите внимание!

Проверь на виртуалке с 3 дисками !! »

Специально для вас проверил на виртуалке.Разделы C,D и E на всех работает.Сетевой диск Z тоже всё ок.

Но странность в неработоспособности на некоторых дисках заметил давно,и систему переставлял не раз с тех пор,так что дело не в кривизне дистрибутива! Так значит проге не нравится что то в конфигурации жёстких дисков! Может такое быть? Есть на этот счёт какие нибудь мысли?

[SOLON7]

Просто разбиратся долго. Тем более учитывая то что проблема уникальная (всего 2 юзера)
Какие файловые ситемы стоят на тех винтах где она неработает, Какие различия ??
Я бы дал вам исходники, но толку то !!

Используется функция FINDFIRST и FINDNEXT. Но почему они глючат фиг его знает!
Если проблему удастся воиспроизвести, то постарюсь исправить проблему. Ну а если нет, то и суда нет !!

[securr]

Может быть невнимательно читал тему. Но не нашел ответ, на какой стадии установки системы применяются твики из regaddons?

[SOLON7]

вроде на Т-13 если через Svcpack запускается !!

[opel431]

Но странность в неработоспособности на некоторых дисках заметил давно »

Solon7 я так понимаю при открытии формы используется что то типа FileExists(ExtractFilePath(Application.ExeName) для определения полного пути установленной программы?

[SOLON7]

нет, тама программа не проверяет наличие на себя же.

Вот код загрузки категорий и твиков !!

читать дальше »

Код:

procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;

    searchResult : TSearchRec;


Tab0:Ttabsheet;
Static0:TStaticText;
CheckboxList0:TCheckListBox;


PcheckboxList0:Tchecklistbox;
Pstatic0:TStaticText;

begin
//CheckList:='CheckList';
  CountTweaks:=0;
  TweakDir:=ExtractFilePath(ParamStr(0));
  TweakDir:=TweakDir+'tweaks\';

  //ShowMessage(tweakdir);
  Categories:=TStringList.Create;

  Categories.Clear;

if FindFirst(tweakdir+'*', faAnyFile, searchResult) = 0 then
  begin
    repeat

    if (searchResult.attr shr 4)=1 then //тут создаем группу
    begin
    if (searchResult.Name='.') or (searchResult.Name='..') then
    continue;
    Categories.Add(searchResult.Name);
//    ShowMessage(searchResult.Name);
    end;

    until FindNext(searchResult) <> 0;
    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;

//  SetLength(TweakNames,CountTweaks);

    SetLength(Checklistboxarray,Categories.Count);
//    SHowmessage(Inttostr(Categories.Count));



    for i:=0 to Categories.Count-1 do
    begin
    ListBox1.Items.Add(Categories.Strings[i]);

    tab0:=TTabSheet.Create(PageControl1);
//    tab0.Caption:=Categories.Strings[i];
    tab0.PageControl:=PageControl1;


    Static0:=TStatictext.Create(self);
    Static0.Caption:=Categories.Strings[i];
    Static0.name:='Static'+inttostr(i);

    Static0.Align:=alTop;
    Static0.Alignment :=tacenter;
    Static0.Transparent:=false;
    Static0.Parent:=tab0;
    Static0.ParentFont:=false;

    Static0.Font.Size:=13;

    Static0.Font.Style:=[fsbold];

    if Categories.Strings[i][1]='@' then
    begin
    Static0.color:=$005CD4F8;//$00FF9D9D;
    Static0.Font.Color:=clblack//white;
    end
    else begin
    Static0.color:=RGB(84,133,205);
    Static0.Font.Color:=clWhite;
    end;


    Static0.BevelInner:=bvSpace;
    Static0.Bevelkind:=bkSoft;
    Static0.AutoSize:=true;

//    CheckboxList0^:=
    CheckboxList0:=TCheckListBox.Create(self);
    CheckboxList0.Align:=alClient;
    CheckboxList0.Parent:=tab0;
    CheckboxList0.Name:='CheckList'+inttostr(i);
    CheckboxList0.PopupMenu:=PopupMenu1;
    CheckboxList0.MultiSelect:=true;
    CheckboxList0.OnClick:=CheckListBox1Click;
    CheckboxList0.OnClickCheck:=OnCheckListBox1ClickCheck;
    CheckboxList0.AllowGrayed:=true;



    Checklistboxarray[i]:=CheckboxList0;
//    ShowMessage(CheckboxList0.Name);

    tab0.visible := true;
    end;


PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
ListBox1.ItemIndex:=PageControl1.PageCount-1;

AllCountTweaks:=0;

for i:=0 to Categories.Count-1 do
begin //1
CountTweaks:=0;
if FindFirst(tweakdir+Categories.Strings[i]+'\*.reg', faAnyFile, searchResult) = 0 then
  begin//2
    repeat

    PcheckboxList0:=FindChecklistbox(Categories.Strings[i],Categories,Checklistboxarray);
    PcheckboxList0.Items.Add(ExtractTweakName(searchResult.Name));

//    ShowMessage(searchResult.Name);
    inc(CountTweaks);


    until FindNext(searchResult) <> 0;
    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
    Pstatic0:=TStaticText(FindComponent('Static' + IntToStr(i)));
    Pstatic0.Caption:=Pstatic0.Caption+' ('+Inttostr(CountTweaks)+' твиков)';
    AllCountTweaks:=AllCountTweaks+CountTweaks;


  end;//2
  StatusBar1.Panels.Items[0].Text:='Общее количество твиков:'+Inttostr(AllCountTweaks)
//  ALLCOUNT.Caption:='Общее количество твиков:'+ Inttostr(AllCountTweaks);

end;//1


end;

[opel431]

нет, тама программа не проверяет наличие на себя же. »

Попробуй, может решишь проблемы.

[SOLON7]

opel431, Исходники могут помочь только тем у кого балы выявлена проблема не загрузки и и тот разбирается в коде DELPHI !! А глупые советы не помогут !! тут надо разбиратся..
Все равно спс !!

[opel431]

А глупые советы не помогут !! »

Извини если обидел. А за приведенный, чуть позже код спасибо, посмотрю.