[Проект] TweakMaster (база твиков и Gui конфигуратор для сборки Аддона)

[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]

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

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

[SOLON7]

Если ты разбираешься в коде могут скинуть ИСХОДНИКИ ???

[opel431]

В Delphi работаю давно, но взять на себя обязательства подправить и выложить не берусь. Ты программер и сам знаешь почему. Да и о "имени" проекта я тебе уже говорил - свой труд надо уважать прежде всего самому. При твоем желании могу как только появиться время потестить с исходников и вернуть тебе же.

[SOLON7]

opel431, Попробуй у себя воиспрозвести эту проблему. Если проблема получится, то можно будет дать тебе исходники чтобы ты решил проблему !!

[opel431]

Уже пробовал (C (NTFS)..F(FAT)) - результат на проблему отрицательный!
Код по логике положительный, проблем не вижу. Наверное действительно нужна пошаговая отладка на проблемном диске.

[securr]

а какая принципиальная разница между интеграцией regaddons или infaddons? Заранее спасибо.

[opel431]

Методом интеграции, временем и способом внесения твиков.
Посмотри - http://forum.oszone.net/showthread.php?t=60687&page=49&highlight=custom

[opel431]

Solon7!
Ради интереса проверил на двух флешках. Отрицательного результата не получил.
???

[securr]

При выборе всех твиков HKEY_CURRENT_USER и HKEY_LOCAL_MACHINE после нажатия на создать InfAddon, аддон создается с ошибкой и пустой папкой ForceCopy
Нашел решение. Проблему вызывает твик который я дополнительно добавил.

[cer50nun]

Обалденная програмка спасибо SOLON7

[SOLON7]

cer50nun,
Жаль что не все знают что есть замечательная тулза !!