myDeskband :: Version 9.9.14

[xZise]

Zitat von fwsp:

Zitat von xZise:

Alles wunderbar, außer das es vielleicht nett wäre, wenn es sofort rot wird (OnChange), wenn es den Begriff nicht gibt?

das wird allerdings ein wenig schwierig, besonders da ja erst beim [enter] in den windows ordner gesucht wird.

Sehe ich nicht so, da du ja nur überprüfen musst, ob der Befehl so existiert.
Und das es rot ist, selbst wenn es ein Vorschlag gibt finde ich nicht so schlimm...

Aber erhlich gesagt ist es ja unsinnig
Falls es dich trotzdem interessiert:
So hätte ich es gemacht... Oder wenigstens so ähnlich

Delphi-Quellcode:

private
  text : string;
  setPreview : Boolean;
end;

procedure EditOnChange...
begin
  if not setPreview then
  begin
    if text <> Edit.Text then
    begin
      text := Edit.Text;
      if (FileExists(WinDir + '\' + text + '.exe')) and (FileExists(WinDir + '\System32\' + text + '.exe')) then
      begin
        Edit.Color := clWhite;
        setPreview := true;
        // Vorschau ggf. erstellen
        setPreview := false;
      end else
      begin
        Edit.Color := clRed;
      end;
    end;
  end;
end;

Es gab übrigends eine AV als ich auf "Neuen Eintrag" geklickt habe.
Aber da habe ich auch eine Idee
Und zwar nur 2 Edit Felder und die Buttons Ordner/Datei suchen sowie den Button Speichern und löschen.
Mehr brauch man nicht.
Wenn der Name existiert dann überschreibst du es, ansonsten erstelle einen neuen Eintrag.

Ich habe eine Frage: Wie sieht es mit Parametern aus?