AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Programmpfad anderer Programme ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Programmpfad anderer Programme ermitteln

Ein Thema von Chrischi · begonnen am 8. Aug 2008 · letzter Beitrag vom 9. Aug 2008
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#21

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:33
Also eigentlich kann in dem Code doch gar kein Fehler sein, der kommt ja ausm Delphi Swiss Center meiner Meinung nach. Dort stand doch auch was du einbinden musst oder?
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#22

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:36
Es fehlt ComCtrls in den Uses
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#23

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:38
Himmel, Gesäß und Nähgarn, ich hasse diese Code-Kopiererei ohne Hintergrundwissen . Also gut, ich vervollständige das mal:
Delphi-Quellcode:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry;

procedure TForm2.FormCreate(Sender: TObject);
const
  UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
  Reg: TRegistry;
  SubKeys: TStringList;
  ListItem: TlistItem;
  i: integer;
  sDisplayName, sUninstallString: string;
begin
{
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.add;
  ListView1.Columns.add;
  ListView1.Columns[0].caption := 'DisplayName';
  ListView1.Columns[1].caption := 'UninstallString';
  ListView1.Columns[0].Width := 300;
  ListView1.Columns[1].Width := 300;
}

  Reg := TRegistry.Create;

    try

        try
           Listview1.Items.BeginUpdate;
           Listview1.Items.Clear;
           Reg.RootKey := HKEY_LOCAL_MACHINE;
          if Reg.OpenKeyReadOnly(UNINST_PATH) then //hier
          begin
            SubKeys := TStringList.Create;
            try
              Reg.GetKeyNames(SubKeys); //und hier
              Reg.CloseKey; //und hier
              for i := 0 to subKeys.Count - 1 do
                if Reg.OpenKeyReadOnly(Format('%s\%s', [UNINST_PATH, SubKeys[i]])) then //und hier
                  try
                    sDisplayName := Reg.ReadString('DisplayName'); //und hier
                    sUninstallString := Reg.ReadString('UninstallString'); //und hier
                    if sDisplayName <> 'then
                    begin
                      ListItem := Listview1.Add; //und hier
                      ListItem.Caption := sDisplayName;
                      ListItem.subitems.Add(sUninstallString);
                    end;
                  finally
                    Reg.CloseKey; //und hier
                  end;
            finally
              SubKeys.Free;
            end;
          end;
        finally
          ListView1.AlphaSort;
          Listview1.Items.EndUpdate; //und hier
        end;
    finally
      Reg.CloseKey; //und hier
      Reg.Free; //und hier
    end;
end;
Wenn ich nichts übersehen habe, sollte das so gehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Chrischi

Registriert seit: 8. Aug 2008
21 Beiträge
 
#24

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:41
Hab ich gerade eingefügt. Also Fehlermeldungen sind schon mal weniger:

Delphi-Quellcode:
[Fehler] Unit2.pas(49): E2003 Undefinierter Bezeichner: 'Listview1'
[Fehler] Unit2.pas(49): E2066 Operator oder Semikolon fehlt
[Fehler] Unit2.pas(50): E2066 Operator oder Semikolon fehlt
[Fehler] Unit2.pas(65): E2066 Operator oder Semikolon fehlt
[Fehler] Unit2.pas(77): E2066 Operator oder Semikolon fehlt
[Fehler] Unit2.pas(78): E2066 Operator oder Semikolon fehlt
[Fataler Fehler] Project2.dpr(5): F2063 Verwendete Unit 'Unit2.pas' kann nicht compiliert werden
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#25

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:43
Poste mal die komplette Unit
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#26

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:44
ListView1 liegt aber auf Form2?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Chrischi

Registriert seit: 8. Aug 2008
21 Beiträge
 
#27

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:45
Delphi-Quellcode:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, ComCtrls;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
const
  UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
  Reg: TRegistry;
  SubKeys: TStringList;
  ListItem: TlistItem;
  i: integer;
  sDisplayName, sUninstallString: string;
begin
{
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.add;
  ListView1.Columns.add;
  ListView1.Columns[0].caption := 'DisplayName';
  ListView1.Columns[1].caption := 'UninstallString';
  ListView1.Columns[0].Width := 300;
  ListView1.Columns[1].Width := 300;
}

  Reg := TRegistry.Create;

    try
        try
           Listview1.Items.BeginUpdate;
           Listview1.Items.Clear;
           Reg.RootKey := HKEY_LOCAL_MACHINE;
          if Reg.OpenKeyReadOnly(UNINST_PATH) then
          begin
            SubKeys := TStringList.Create;
            try
              Reg.GetKeyNames(SubKeys);
              Reg.CloseKey;
              for i := 0 to subKeys.Count - 1 do
                if Reg.OpenKeyReadOnly(Format('%s\%s', [UNINST_PATH, SubKeys[i]])) then
                  try
                    sDisplayName := Reg.ReadString('DisplayName');
                    sUninstallString := Reg.ReadString('UninstallString');
                    if sDisplayName <> 'then
                    begin
                      ListItem := Listview1.Add;
                      ListItem.Caption := sDisplayName;
                      ListItem.subitems.Add(sUninstallString);
                    end;
                  finally
                    Reg.CloseKey;
                  end;
            finally
              SubKeys.Free;
            end;
          end;
        finally
          ListView1.AlphaSort;
          Listview1.Items.EndUpdate;
        end;
    finally
      Reg.CloseKey;
      Reg.Free;
    end;
end;

end.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#28

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:47
Zitat von DeddyH:
ListView1 liegt aber auf Form2?
Nein, existiert garnicht
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#29

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:47
Listview1 liegt anscheinend auf Form1. Also vor jedes "ListView1" "Form1." davorschreiben, damit es erstmal läuft. Guter Stil ist das zwar nicht, aber was soll' s.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#30

Re: Programmpfad anderer Programme ermitteln

  Alt 8. Aug 2008, 21:49
Vielleicht helfen etwas Grundlagen zum Verständnis
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz