我是新手,问大家两个问题

Question

1:
 如何得到windows路径?
如:  c:\windows2: 如何打开读取c:\windows\1.txt文件?
该文件只有一行,
把这行存到一个变量中.
谢谢大家的帮忙,在线等!

Answer 1

GetWindowsDirectory函数var s:array[0..255]of char;
begin
  GetWindowsDirectory(s,255);
  ShowMessage(s);
end;

Answer 2

var s:string;
    sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('c:\windows\1.txt');
  s:=sl.Text;
  ShowMessage(s);
  sl.Free;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s1: array[0..MAX_PATH-1] of char;
  z1, z2: string;
  F:TextFile;
begin
  getwindowsdirectory(@s1, MAX_PATH);
  z1:=s1;
  AssignFile(F,z1+'\1.txt');
  Reset(F);
  Readln(F, z2);
  CloseFile(F);
  ShowMessage(Z2);
end;

Answer 4

2.var
  sl: TStringList;
  str: string;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\windows\1.txt');
  if sl.Count>0 then str := sl[0];
  sl.Free;
  ShowMessage(str);
end;