Åbn lokal fil
Hej,Jeg sidder her og har et problem - jeg kan ikke få en knap (eller klik på label) til at åbne et lokalt dokument (her er der tale om en .doc fil).
procedure TMainForm.Label5Click(Sender: TObject);
const docfilename : string = 'hej.doc';
var docpath : string;
b : PWideChar;
begin
docpath := path + '\' + docfilename;
ShellExecute(Handle, 'open', docpath, nil, nil, SW_SHOWNORMAL);
end;
Dette giver fejl: Incompatible types: 'string' and 'PWideChar'. Jeg har prøvet alt muligt med at konvertere til PWideChar, men kan bare ikke få det til at virke.
path er en variabel hvori der er gemt stien til mappen, hvori "hej.doc" ligger.