Datentypen Umwandeln

[kiar]

anbei eine procedure die gleiches macht.

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
var
   i  :integer;
   x,msg :string;
   item:TListitem;

begin
      item:=listview1.Selected;
      for i:=0 to aritechlist.count-1 do begin
   if aritechlist.items[i].name = item.SubItems[0] then
        begin
           x:= aritech.aritechlist.Items[i].File_name;
                if x = '' then
                  begin
                    showmessage('kein pdf file vorhanden');
                    exit;
                  end;
      end; end;
       i:=shellexecute(handle,
                 'open',
                      'acrord32.exe',
                      Pchar(x),
                      'c:\',9);


            if i <= 32 then begin
           case i of
           0  : msg :=' Zu wenig Speicher, ausführbare Datei war zerstört,'+
                      '  Relokationswerte waren ungültig';
                2  : msg :=' Datei wurde nicht gefunden';
                3  : msg :=' Verzeichnis wurde nicht gefunden';
                5  : msg :=' Fehler beim gemeinsamen Zugriff auf eine Datei im '+
                      ' Netz oder Fehler bei Zugriff auf eine gesperrte Datei '+
                           ' im Netz';
                6  : msg :=' Bibliothek fordert separate Datensegmente für jeden Task an';
                8  : msg :=' Zu wenig Speicher um die Anwendung zu starten';
                10 : msg :=' Falsche Windows Version';
                11 : msg :=' Ungültige ausführbare Datei. entweder keine Windowsanwendung'+
                           ' oder Fehler in der EXE Datei';
                12 : msg :=' Anwendung für ein anderes Betriebssystem';
                13 : msg :=' Anwendung für MS-DOS 4.0';
                14 : msg :=' Typ der ausführbaren Datei unbekannt';
                15 : msg :=' Versuch, eine Real-Mode-Anwendung zu laden';
                19 : msg :=' Versuch, eine komprimierte ausührbare Datei zu laden. Die Datei muß'+
                           ' dekomprimiert werden, bevor sie geladen wird';
                20 : msg :=' Ungültige DLL';
      end;
   showmessage(msg);
  end;
end;

aber bitte nicht mit copy und paste einfügen

raik