Externes Programm starten

[sirius]

Aus einem Programm von mir. Wie du siehst hatte ich Ghostscript und Acrobat Distiller gesucht.
Tut mir leid, dass es nicht gut kommentiert ist und die Variablennamen ne Katastrophe sind. Ich hab jetzt keine Zeit für längere Ausführungen. Vielleicht schaffst du es ja, dich da durchzufitzen.

Delphi-Quellcode:

procedure LookUpRegistry;
{Suchen, wo evtl. Programme zum Erstellen von PDFs liegen}
var reg:TRegistry;
    s:TStrings;
    p,i:integer;
    key,value:string;
begin
  reg:=TRegistry.Create(KEY_READ);
  s:=TStringlist.Create;
  reg.rootkey:=HKEY_Local_Machine;
  key:='';

  //Ghostscript
  if (gspfad='')or(not fileexists(gspfad)) then begin
    if reg.OpenKeyReadOnly('\Software\AFPL Ghostscript') then begin
      key:='\Software\AFPL Ghostscript';
      reg.CloseKey;
    end else if reg.OpenKeyReadOnly('\Software') then begin
      reg.GetKeyNames(s);
      p:=-1;
      for i:=0 to s.Count-1 do if pos('Ghostscript',s.Strings[i])>0 then p:=i;
      if p>=0 then key:='\Software\'+s.Strings[p];
      reg.CloseKey;
    end;
    if (length(key)>0) and (reg.OpenKeyReadOnly(key)) then begin
      reg.GetKeyNames(s);
      if s.count>0 then key:='\Software\AFPL Ghostscript\'+s.Strings[s.count-1];
      reg.CloseKey;
      if reg.OpenKeyReadOnly(key) then begin
        value:=reg.ReadString('GS_DLL');
        reg.CloseKey;
        if pos(';',value)>0 then value:=copy(value,1,pos(';',value)-1);
        value:=extractfiledir(value)+'\gswin32c.exe';
        if fileexists(value) then gspfad:=value;
      end;
    end;
  end;


  //Distiller
  if (distpfad='')or(not fileexists(distpfad)) then begin
    key:='\Software\Adobe\Acrobat Distiller';
    if reg.OpenKeyReadOnly(key) then begin
      reg.GetKeyNames(s);
      if s.count>0 then begin
        key:=key+'\'+s.strings[s.count-1];
        reg.CloseKey;
        reg.OpenKeyReadOnly(key);
        value:=reg.ReadString('InstallPath');
        if value='' then begin
          reg.CloseKey;
          key:=key+'\InstallPath';
          reg.OpenKeyReadOnly(key);
          value:=reg.ReadString('');
        end;
        if value<>'' then begin
          value:=value+'\acrodist.exe';
          if fileexists(value) then distpfad:=value;
        end;
      end;
      reg.CloseKey;
    end;
  end;