ListView i odzczyt z rejestru - pomó?żcie, ja juz niemo

Rejestracja:około 21 lat
Ostatnio:prawie 21 lat

0

Witajcie ! Kurcze pomocy, jestm już tym tak zmęczony - od 2 dni codziennie po jakieś 9 godzin zrobić tak żeby w moim programie na ListViewie pokazać zawartość kluczy rejestru: MachineRun, User Run i Autostartu w Starcie - chcę napisać program który by wyświetlał co się uruchamia wraz z systemem: przykład:
http://www.it-net.pl/~ftpzone/1.JPG , a jak <ort>na razie</ort> mój program wygląda tak: http://www.it-net.pl/~ftpzone/2.JPG :-(

Błagam wszystkich forumowyczów o pomoc, jak by mi sie udało napisać taki program oczywiście na stronie <ort>Od razu</ort> by widniał napis że program został współtworzony przez grono forumowiczów 4programmers.net ;-)

pisz 'http:*' wtedy tagi url działają [mf]

Ktos

2004-03-31 16:44

Ktos2004-03-31 16:44

Moderator

Rejestracja:prawie 23 lata
Ostatnio:około 19 godzin

0

ja bym takiego programu nie używał - <ort>Odświerz ;-)</ort>to wielki błąd ortograficzny jest...

ale zobacz sobie to, bo widzę, ze dopiero programwać zacząłeś:

Kopiuj

//pobieranie listy programów w autostarcie z HKEY_LOCAL_MACHINE;
var Reg: TRegistry; //rejestr
    S: TStringList; //lista
    i: integer;
    Item: TLIstItem;
begin
  REg := TRegistry.Create;
  S := TStringList.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE; //klucz główny
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); //otwarcie odpowiedniego klucza
  Reg.GetValueNames(S); //pobranie nazw wartości z klucza
  for i := 0 to S.Count -1 do //od 0 do ich ilości -1 rób
  begin
    Item := ListView1.Items.Add; //dodaj item do listview
    Item.Caption := S.Strings[i]; //jego caption to nazwa wartości
    Item.SubItems.Add(Reg.ReadString(S.Strings[i])); //jego subitem to ścieżka dostępu (dane wartości)
  end;
  REg.CloseKey; //kończymy
  Reg.Free;
  S.Free;

RolRain

2004-03-31 16:49

RolRain2004-03-31 16:49

Rejestracja:około 21 lat
Ostatnio:prawie 21 lat

0

Jak bedzie działac to złoże ci <ort>chołd</ort> w domu na dywanie , tylko jeszce jedno - gdzie am to wsadzić: mój kod to: ?

Kopiuj

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, FAbout, ImgList, ToolWin, ExtCtrls,
  Ustawienia, ShellApi, Registry, MMSystem;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Plik1: TMenuItem;
    Zamknij1: TMenuItem;
    StatusBar1: TStatusBar;
    Edycja1: TMenuItem;
    Konfiguracja1: TMenuItem;
    Pomoc1: TMenuItem;
    Oprogramie1: TMenuItem;
    Aktualizacja1: TMenuItem;
    Ustawienia1: TMenuItem;
    StronaStartUpXPa1: TMenuItem;
    Oprogramie2: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton1: TToolButton;
    Panel1: TPanel;
    ListView1: TListView;
    Odwierz1: TMenuItem;
    Edycja2: TMenuItem;
    Usu1: TMenuItem;
    Uruchom1: TMenuItem;
    Waciowcipliku1: TMenuItem;
    Nowy1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PopupMenu1: TPopupMenu;
    Nowy2: TMenuItem;
    Edycja3: TMenuItem;
    Usu2: TMenuItem;
    N4: TMenuItem;
    Uruchom2: TMenuItem;
    a1: TMenuItem;
    Waciwocipliku1: TMenuItem;
    ToolButton2: TToolButton;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton9: TToolButton;
    procedure Zamknij1Click(Sender: TObject);
    procedure Oprogramie2Click(Sender: TObject);
    procedure Ustawienia1Click(Sender: TObject);
    procedure Oprogramie1Click(Sender: TObject);
    procedure StronaStartUpXPa1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure Aktualizacja1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Zamknij1Click(Sender: TObject);
begin
     close;
end;

procedure TForm1.Oprogramie2Click(Sender: TObject);
begin
     PlaySound('Data\click_1.wav', 0, SND_FILENAME); About.ShowModal;
end;

procedure TForm1.Ustawienia1Click(Sender: TObject);
begin
     FUstawienia.ShowModal;
end;

procedure TForm1.Oprogramie1Click(Sender: TObject);
begin
     ShellExecute(Handle,'open','Data/POMOC.hlp',nil,nil,SW_NORMAL)
end;

procedure TForm1.StronaStartUpXPa1Click(Sender: TObject);
begin
     ShellExecute(Handle, 'open', 'http://www.startupxp.prv.pl', nil, nil, SW_SHOW);
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME); close;
end;

procedure TForm1.Aktualizacja1Click(Sender: TObject);
begin
     ShowMessage( 'System aktualizacji zostaje opracowywany !' );
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton10Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME);
end;

procedure TForm1.ToolButton13Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME); ShowMessage( 'System aktualizacji zostaje opracowywany !' );
end;

procedure TForm1.ToolButton14Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME); FUstawienia.ShowModal;
end;

procedure TForm1.ToolButton16Click(Sender: TObject);
begin
     PlaySound('Data\click_2.wav', 0, SND_FILENAME); About.ShowModal;

end;

end.

wasyl

2004-03-31 17:06

wasyl2004-03-31 17:06

Rejestracja:ponad 21 lat
Ostatnio:ponad 12 lat
Postów:501

0

"Niemoge" <-- W temacie (pisze sie oddzielnie :-[ )
"chold" <-- Choldu to ja bym nie chcial (hold jeszcze :-P)
Ten kod to jedst przyklad, nie gotowiec. Przeanalizuj, zmien jak trzeba i dopisz np. w Onclick jakiegos buttona "odswież"....

RolRain

2004-03-31 17:14

RolRain2004-03-31 17:14

Rejestracja:około 21 lat
Ostatnio:prawie 21 lat

0

Sory za ortografie - juz jestem tak zdenerwowany na ten program że....
A co do kodu, to ja jestem dopiero początkujący i <ort>na pewno </ort>wam juz sie płakać chce z moich lamerskich pytań - to tak jak ktos by mnie sie spytał gdzie jest Start w Windowsie, <ort>niewim </ort>chy dobrze zrobiłem, że <ort>Od razu </ort>przyszedłem na forum gdzie są prawdziwi programisci, zamiast kupic sobie sterte książek, ale jak tu juz jestem to prosze o wasza pomoc i wyrozumienie :)
Więc gdzie mam wstawić ten kod, żeby mi wyświetlał zawartość tych kluczy no i <ort>w SPACJA końcu</ort> jak <ort>odświerzyć</ort> tą listę ?

Ktos

2004-03-31 19:01

Ktos2004-03-31 19:01

Moderator

Rejestracja:prawie 23 lata
Ostatnio:około 19 godzin

0

wsadź to do procedurki OnClick tego ToolButtona, który odpowiada za pokazywanie tej listy - nie wiem który to jest u ciebie bo masz głupio ponazywane (1, 2, 3, 4, ...).

Jesteś początkujący to powiem tak jeszcze: usuń w tej procedurze do której wstawiasz begin i na jego miejscu daj mój kod. U mnie begin jest już.

I przeczytaj sobie jakiś kurs albo co - to się naprawdę przydaje na początek. A ja i tak się dziwię, że ten wątek jeszcze tu jest - moderatorzy się pogarszają :-P Zwykle takie pytania wylatują po ok. 5 minutach :)

Kopiuj

{ja jestem łaskawy moderator. poza tym autor mimo popełnienia paru faux pas (zwłaszca jeśli chodzi o ilość wklejonego kodu) wydaje sie mieć szczere chęci nauczenia się czegoś.
RolRain - jeśli będziesz chciał poprawic swoje błędy ortograficzne, uzyj ikonki 'kartka z ołówkiem' do edycji postu. jeśli nie będziesz chciał, popełnisz kolejne faux pas.  mod pq}

RolRain

2004-04-12 08:54

RolRain2004-04-12 08:54

Rejestracja:około 21 lat
Ostatnio:prawie 21 lat

0

ja bym takiego programu nie używał - <ort>Odświerz ;-)</ort>to wielki błąd ortograficzny jest...

ale zobacz sobie to, bo widzę, ze dopiero programwać zacząłeś:

Kopiuj

//pobieranie listy programów w autostarcie z HKEY_LOCAL_MACHINE;
var Reg: TRegistry; //rejestr
    S: TStringList; //lista
    i: integer;
    Item: TLIstItem;
begin
  REg := TRegistry.Create;
  S := TStringList.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE; //klucz główny
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); //otwarcie odpowiedniego klucza
  Reg.GetValueNames(S); //pobranie nazw wartości z klucza
  for i := 0 to S.Count -1 do //od 0 do ich ilości -1 rób
  begin
    Item := ListView1.Items.Add; //dodaj item do listview
    Item.Caption := S.Strings[i]; //jego caption to nazwa wartości
    Item.SubItems.Add(Reg.ReadString(S.Strings[i])); //jego subitem to ścieżka dostępu (dane wartości)
  end;
  REg.CloseKey; //kończymy
  Reg.Free;
  S.Free;

OK w SPACJA końcu mi to zadziałało, ale mam to w przycisku, gdzie to dodac, aby podczas uruchamiania programu Od razu został wykonany ten skrypt, a nie dopiero po naciśnięciu przycisku ?