-
Forum: Programmieren allgemein
by Chrischi,
9. Aug 2008
Doch, das erkennt er...
Aus einem ganz einfachen Grund - der Wert von "Comments" von Firefox ist schlicht und einfach "Mozilla Firefox". Egal welche Version. (Bei mir zumindest - hab Firefox 3.0 und Firefox 3.0.1 und bei beiden ist das so.) ;-)
Gruß,
Chrischi
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Hab's schon:
try
sDisplayName := Reg.ReadString('Comments');
sUninstallString := Reg.ReadString('InstallLocation');
if sDisplayName <> '' then
begin
if sDisplayName = 'Mozilla Firefox' then
begin
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Danke, hat geklappt!
So, und wo muss ich nun InstallLocation und, um beim Beispiel zu bleiben, "Mozilla Firefox" eingeben? Hätte gedacht, hiersDisplayName := Reg.ReadString('DisplayName');
sUninstallString := Reg.ReadString('UninstallString');, aber dann findet er nichts. :?:
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Listview1.Items.Add;
ListItem.Caption := sDisplayName;
ListItem.subitems.Add(sUninstallString);
Hier muss der Fehler liegen...
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, ComCtrls;
type
TForm2 = class(TForm)
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Benachrichtigung über Debugger-Exception
Im Projekt Project2.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 0045F188 in Modul 'Project2.exe. Lesen von Adresse 0000024' aufgetreten.
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Ups, hatte TShellViewList...
Aber jetzt
Unit2.pas(65): E2003 Undefinierter Bezeichner: 'Add'
Project2.dpr(5): F2063 Verwendete Unit 'Unit2.pas' kann nicht compiliert werden
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Unit2.pas(7): W1005 Unit 'ShellCtrls' ist plattformspezifisch
Unit2.pas(49): E2003 Undefinierter Bezeichner: 'Listview1'
Unit2.pas(49): E2066 Operator oder Semikolon fehlt
Unit2.pas(50): E2066 Operator oder Semikolon fehlt
Unit2.pas(65): E2066 Operator oder Semikolon fehlt
Unit2.pas(77): E2066 Operator oder Semikolon fehlt
Unit2.pas(78): E2066 Operator oder Semikolon fehlt
...
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Und wie? - Hab mit ListView bisher nie gearbeitet?! :?
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Form1 gibt's gar nicht, das ist ein anderes Projekt...
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, ComCtrls;
type
TForm2 = class(TForm)
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Hab ich gerade eingefügt. Also Fehlermeldungen sind schon mal weniger:
Unit2.pas(49): E2003 Undefinierter Bezeichner: 'Listview1'
Unit2.pas(49): E2066 Operator oder Semikolon fehlt
Unit2.pas(50): E2066 Operator oder Semikolon fehlt
Unit2.pas(65): E2066 Operator oder Semikolon fehlt
Unit2.pas(77): E2066 Operator oder Semikolon fehlt
Unit2.pas(78): E2066 Operator oder Semikolon fehlt...
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Die withs kommen doch nicht von mir, sondern von diesem Link...
So, hab's bearbeitet, jedoch nach wie vor die gleichen Fehlermeldungen!
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;
procedure TForm2.FormCreate(Sender: TObject);
const
UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Also genützt hat's nicht. :-(
procedure TForm2.FormCreate(Sender: TObject);
const
UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
Reg: TRegistry;
SubKeys: TStringList;
ListItem: TlistItem;
i: integer;
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Und was kann man tun?
Bzw. gibt es eine andere Möglichkeit?
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Folgt doch dem Link, dann habt ihr ihn. ;-)
procedure TForm1.FormCreate(Sender: TObject);
const
UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
Reg: TRegistry;
SubKeys: TStringList;
ListItem: TlistItem;
i: integer;
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Was genau muss ich da ändern?
Wenn ichs so versuche zu starten, kommen folgende Meldungen:
Unit1.pas(36): E2003 Undefinierter Bezeichner: 'TlistItem'
Unit1.pas(52): E2003 Undefinierter Bezeichner: 'ListView1'
Unit1.pas(54): E2003 Undefinierter Bezeichner: 'BeginUpdate'
Unit1.pas(55): E2003 Undefinierter Bezeichner: 'Clear'
Unit1.pas(70): E2003 Undefinierter Bezeichner: 'Add'
...
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Klappt, super, danke!
Letzte Frage: Nehmen wir mal an, das Programm soll den Pfad von Firefox ermitteln. Nun gibt es aber verschiedene Versionen. Bei mir steht "Mozilla Firefox (3.0.1)" in der Registry. Was aber, wenn andere User eine andere Version haben? Gibt es so etwas wie einen >Platzhalter<?
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Danke für die schnellen Antworten! :thumb:
Jedoch ein Problem:
function GetPath:String;
var
reg: tregistry;
begin
Result := '';
reg := Tregistry.create;
try
-
Forum: Programmieren allgemein
by Chrischi,
8. Aug 2008
Hallo,
ich möchte in einem meiner Programme den Programmpfad eines anderen Programms ermitteln. Das Programm ist nicht nur für mich gedacht, es ist also auch keine Lösung, das Programm auf meiner Festplatte zu suchen, da ich stark bezweifle, dass jeder seine Programme genau da gespeichert hat, wo ich sie habe.
Die SuFu dieses Forums hat mir nicht wirklich geholfen. Ich habe lediglich...