Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Inno Setup - Pascal-Problem: Prüfe, ob 32 bzw. 64bit und schreibe nach der Installation in die Registry

Frage Entwicklung Pascal und Delphi

Mitglied: kaheiho

kaheiho (Level 1) - Jetzt verbinden

01.08.2014 um 17:45 Uhr, 2113 Aufrufe, 1 Kommentar

Hallo liebe Leute,
leider bin ich -trotz einiger Recherchen in Netz - am Ende meiner (nicht vorhandenen Pascal-Kenntnisse) angelangt:
in der folgenden Prozedur bekomme ich beim Kompilieren immer den Fehler "Type mismatch" - was mache ich falsch?

Code Start----------------------
Schreibt NACH INSTALLATION in die Registry, um die Meldung
"Silverfast ist auf diesem System nicht installiert"
zu unterdrücken.
Wenn 32bit-System:
Schlüssel: HKEY_LOCAL_MACHINE\SOFTWARE\Film Scanner\A28\USB\ScanCenter
Name : DETECT_SILVERFAST
Wert : 0 statt 1

Wenn 64bit-System:
Schlüssel: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Film Scanner\A28\USB\ScanCenter
Name : DETECT_SILVERFAST
Wert : 0 statt 1
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then begin
if (IsWin64) then
begin
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Wow6432Node\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
RegWriteStringValue(HKEY_USERS, 'S-1-5-19\Software\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
end
else
begin
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
RegWriteStringValue(HKEY_USERS, 'S-1-5-19\Software\Film Scanner\A28\USB\ScanCenter', 'DETECT_SILVERFAST', 0)
end
end
end;
Code Ende---------------------

Hoffe jemand weiß weiter und kann mir helfen.

Vielen Dank im Voraus
kaheiho
Mitglied: kaheiho
01.08.2014 um 18:18 Uhr
Bitte um Entschuldigung, hab' den Wald vor lauter Bäumen nicht gesehen:
es muß natürlich heißen "RegWriteDWordValue" statt "RegWriteStringValue" !!!
Bitte warten ..
Ähnliche Inhalte
Windows Installation
gelöst Nach Austausch SSD - Problem mit Windows 7 x64 Installation (5)

Frage von BigSnakeye zum Thema Windows Installation ...

Windows Update
WSUS Problem, einige Clients ziehen keine Updates mehr (7)

Frage von Leo-le zum Thema Windows Update ...

CPU, RAM, Mainboards
AMD Epyc: Comeback mit zwölf CPUs mit bis zu 32 Kernen

Link von Frank zum Thema CPU, RAM, Mainboards ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Systemdateien
gelöst NTFS und die Defragmentierung (29)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

Server-Hardware
Treiber für Server gesucht (15)

Frage von MeisterFuchs zum Thema Server-Hardware ...