In een klein Lazarus programma open ik de file STARTDATA.DBF als volgt:
procedure TForm1.Button1Click(Sender: TObject);
var Dens_SW: string;
Dens_FW: string;
MapJPG: string;
Password:string;
begin
with Dbf1 do
begin
FilePathFull:=GetCurrentDir;
TableLevel := 7;
Tablename :='STARTDATA.DBF' ;
Exclusive := True;
Open;
First;
Dens_SW:=FieldByName('SG_SW').AsString;
Dens_FW:=FieldByName('SG_FW').AsString;
MapJPG:=GetCurrentDir;
Password:=FieldByName('Wachtwoord').AsString;
Close;
Memo1.Lines.Add(Dens_SW);
Memo1.Lines.Add(Dens_FW);
Memo1.Lines.Add(MapJPG);
Memo1.Lines.Add(Password);
end;
end;
Op de ene computer onder Windows 10 werkt dit prima, op een laptop met Windows 10, krijg ik de melding 'Unable to open file C:\Brediep\STARTDATA.DBF'
Het vreemde is als ik programmatje op de laptop als Administrator open werkt het wel, als ik het programmatje op de laptop van een USB stick open, werkt het ook!
Wie kan me helpen met dit voor mij rare probleem.
Alvast bedankt voor jullie reacties!
Bookmarks