Au Backe. Das Du da noch Überblick über den Quelltext hast:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ini : Tinifile;
skin : String;
k : String;
reg : Tregistry;
begin
version := Getversion;
major := LoByte(Loword(version));
minor := Hibyte(Loword(version));
Windowsversion := IntToStr(Major)+'.'+IntToSTr(Minor);
if windowsversion = '5.1' then
createdir('C:\Programme\Ultimate Zip\');
if windowsversion = '6.0' then
createdir('C:\Program Files\Ultimate Zip\');
if windowsversion = '6.1' then
createdir('C:\Program Files\Ultimate Zip\');
if windowsversion = '5.1' then
ini := Tinifile.Create('C:\Programme\Ultimate Zip\Einstellungen.ini');
if windowsversion = '6.1' then
ini := Tinifile.Create('C:\Program Files\Ultimate Zip\Einstellungen.ini');
if windowsversion = '6.0' then
ini := Tinifile.Create('C:\Program Files\Ultimate Zip\Einstellungen.ini');
skin := ini.ReadString('Design','Skinname','Snow Leopard (internal)');
sSkinManager1.SkinName := skin;
k := Application.ExeName;
// ...
end;
Sicherlich kann der Fehler unter anderem davon kommen das du die Dateipfade einfach festlegst.
Unter Windows Vista und Windows 7 wirst du unter anderem Probleme mit dem Zugriff auf die Verzeichnisse haben.
1.
Styleguide siehe auch:
http://www.delphi-treff.de/delphi-st...e/anweisungen/
2.
relative Pfade siehe auch:
http://www.delphi-library.de/viewtopic.php?p=548600