Datentypen Umwandeln

[kiar]

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  s: string;
  x: PAnsiChar;
begin
  s:=IBQuery1.FieldByName('Pfad').AsString;
  x := PChar(s);

  if ShellExecute(Handle, 'open', 'AcroRd32.exe', x, nil, 9)< 33 then showmessage('Anwendung kann nicht geoeffnet werden ');
   Label4.Caption:=x;
   end;