Registry - Datei umbenennen

[chris]

hi,

in etwa so

Delphi-Quellcode:

var
  reg: tregistry;
  i: byte;
  tempstr: string;
begin
  reg := tregistry.create;
  try
    with reg do
      begin
        RootKey := HKEY_CURRENT_USER;
        if OpenKey('Software\ES\PVD', False) then
          for i := 0 to 9 do
            begin
              if (ValueExists('PoB-Job ' + i)) and not (length(trim(ReadString('PoB-Job ' + i))) = 0) then
                begin
                  tempstr := ReadString('PoB-Job ' + i);
                  if fileexists(changefileext(tempstr, '.ina')) then 
                    renamefile(changefileext(tempstr, '.ina'), tempstr)
                end
            end
      end
  finally
    reg.closekey
    reg.free
  end

wobei ich nicht verstehe warum du das nicht einfach nur mit changefileext() machst.

du brauchst doch einfach nur zu gucken ob es in dem suchpfad ein file gibt das anstelle der .pob extension eine *.ina extension hat.

[edit]
habe die proz nochmal umgeschrieben
allerdings musst du dich selber um den pfad kümmern
habe es nur schnell für die dateinamen gemacht
[/edit]
hih