procedure TForm1.Button1Click(Sender: TObject); var s:array[0..255] of char; begin getWindowsDirectory(s,256); showMessage(s); end;
var s1,s2,s3:array[1..40] of char;z1,z2:string; begin getwindowsdirectory(@s1,40); getsystemdirectory(@s2,40); z1:=trim(s1); z2:=trim(s2); showmessage(z1); showmessage(z2); end;
var
s:array[0..255] of char;
begin
getWindowsDirectory(s,256);
showMessage(s);
end;
begin
getwindowsdirectory(@s1,40);
getsystemdirectory(@s2,40);
z1:=trim(s1);
z2:=trim(s2);
showmessage(z1);
showmessage(z2);
end;