Speicherkontrolle von Laufwerken

[Computerbabalulu]

Also irgendwie bekomme ich das ganze nicht hin!

Wer möchte kann sich mal den Kompletten Code saugen, und mal rein sehen! :oops:

Bitte nicht lachen, ist mein Anfängerstück!!

Also, ich möchte in dem Setupmenü die Angaben der zu überwachenden Laufwerke machen, und diese sollen dan im Programm übernommen werden.

Aber was erkläre ich hier noch großartig :gruebel:

Ihr habt ja eh mehr Ahnung :pale:

Gruß Frank

:wall: Up´s: Vergessen. Die Datei PVD Monitor.exe muss auf C:\ liegen sonst wird sie nicht gestartet. Übrigens ich habe wie Ihr sicher bemerkt, das Taskbar Symbol von meinem Programm entfernt. Das möchte ich auch bei dem PVD Monitor, bekomme es aber nicht hin?!

[Luckie]

Erstmal: Man kann dein Programm nicht verschieben und auch nicht schließen. Dann: stopp doch den Timer, wenn die Laufwerke nicht gefunden wurden, die ständigen Fehlermeldungen nerven.

Und warum muß PVMonitor im Root von C:\ liegen? Mit ParamStr(0) bekommest du deinen Programmpfad und -name. Und das:

Delphi-Quellcode:

PChar('D:\Windows\System32\cmd.exe'),

Sollte bei einem Rechner Windows nicht auf d:\ installiert sein, wie bei mir, geht es nicht. Es gibt aber die Funktion GetWindowsDirectory und sogar GetSystemDirectory.

Was hast du hier eigentlich für komische Blöcke gesetzt:

Delphi-Quellcode:

  begin
    regist := TRegistry.Create;
    regist.RootKey := HKEY_CURRENT_USER;
    regist.OpenKey('Software\SystemMonitor\Setup', true);
    Form2.Edit1.text := regist.ReadString('Pfad1');
    Form2.Edit2.text := regist.ReadString('Pfad2');
    Form2.Edit3.text := regist.ReadString('Pfad3');
    regist.free;
  end;
                         // Zeit mit BMS abgleichen

  begin
    ShellExecute(0,
      nil,
      PChar('D:\Windows\System32\cmd.exe'),
      Pchar('/c net time \\Master_BMSServer /set /yes'),
      Pchar(''),
      SW_Hide);
  end;

                        // PVD Monitor Starten

  begin
    ShellExecute(0,
      nil,
      PChar('c:\PVDMonitor.exe'),
      Pchar(''),
      Pchar(''),
      SW_Normal);
  end;

So sähe das bei mir aus:

Delphi-Quellcode:

  regist := TRegistry.Create;
  if Assigned(regist) then
  begin
    try
      regist.RootKey := HKEY_CURRENT_USER;
      if regist.OpenKey('Software\SystemMonitor\Setup', False) then
      begin
        Form2.Edit1.text := regist.ReadString('Pfad1');
        Form2.Edit2.text := regist.ReadString('Pfad2');
        Form2.Edit3.text := regist.ReadString('Pfad3');
        regist.CloseKey();
      end;
    finally
      regist.free;
    end;
  end;

// Zeit mit BMS abgleichen
  ShellExecute(0, nil, PChar('D:\Windows\System32\cmd.exe'),
    Pchar('/c net time \\Master_BMSServer /set /yes'), nil, SW_Hide);

// PVD Monitor Starten
  ShellExecute(0, nil, PChar('c:\PVDMonitor.exe'), nil, nil, SW_Normal);

Beachte auch den Ressourcenschutzblock um das Registry-Objekt. Und da du nur lesen willst, öffne den Pfad mit False, sonst legst du ihn nämlcih immer an, wenn er nicht vorhanden ist und das ist Blödsinn, da du ja nur lesen willst.

Was meldest du hier als Service an:

Delphi-Quellcode:

                      //Als Service anmelden

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

Du unterdrückst nur den Taskbareintrag.

Und allgemein: Formatier deinen Quellcode gescheit. Siehe dazu auch hier: http://www.luckie-online.de/artikel/opstyleguide.shtml

Zu deinem Problem: Wo ist da ein Problem? Schreib die Informationen in die Registry und lies sie wieder aus.

[Matze]

Luckie hat gesprochen. :mrgreen:

[Computerbabalulu]

Hallo Luckie und Matze

Also, wie gesagt Anfänger. Ich denke mal eure Ersten Programme sahen auch nicht wirklich besser aus.
Aber dennoch habt ihr recht. Danke für den Tipp mit der Formatierung. Sieht irgendwie übersichtlicher aus.
Das man das Programm nicht so einfach schließen und verschieben kann, ist beabsichtigt, da es sich wie gesagt um ein Fotolabor handelt. Hier meint eben jeder der Bediener mal etwas rum Spielen zu müssen, und das wollte ich damit verhindern.
Wir haben eben mehrere Eingabetische, die nach möglichkeit vom Desktop her das gleiche aussehen haben sollen, damit sich der Bediener auch gleich zurecht findet, da die Bediener ja nicht immer am gleichen Gerät sitzen.
Tut mir leid wenn ich euch so nerve, aber ich verstehe halt alles noch nicht so. Habe zwar viel gelesen, aber das alleine macht halt auch noch keinen Programierer aus dir. Und deshalb bin ich euch auch für Kritik und Beispiele sehr Dankbar.

Gruß Frank