引言: 如何用delphi來設定筆記本的上、下、左、右邊界及頁首、頁尾？

unit xxx;
uses ShellAPI,Registry;
...
procedure TForm1.Button2Click(Sender: TObject);
var Reg:TRegistry;
begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     if Reg.OpenKey('\Software\Microsoft\NotePad', False) then
     begin
       Reg.WriteInteger('iWindowPosX',100);  //Left
       Reg.WriteInteger('iWindowPosY',100);  //Top
       Reg.WriteInteger('iWindowPosDX',500);  //Width
       Reg.WriteInteger('iWindowPosDY',500);  //Height
       Reg.CloseKey;
     end;
     ShellExecute(Handle,nil,'notepad.exe','','',SW_SHOWNORMAL);
   finally
     Reg.Free;
   end;
end;

引言: 是不是指 設定列印格式 內的 頁首頁尾 及邊界 ?

引言: 謝謝Mickey 的回答，不過這不是我要的答案， 我指的是設定列印格式內的頁首邊界及頁尾邊界 各位高手！救救我吧！

procedure TForm1.Button2Click(Sender: TObject);
var Reg:TRegistry;
begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     if Reg.OpenKey('\Software\Microsoft\NotePad', False) then
     begin
       Reg.WriteInteger('fSavePageSettings',1);  //Turn On
       Reg.WriteInteger('iMarginBottom',20);     //Buttom
       Reg.WriteInteger('iMarginTop',20);        //Top
       Reg.WriteInteger('iMarginLeft',15);       //Left
       Reg.WriteInteger('iMarginRight',15);      //Right
       Reg.WriteString('szHeader','&f');         //Header
       Reg.WriteString('szTrailer','分頁(&P)');  //Footer
       Reg.CloseKey;
     end;
     ShellExecute(Handle,nil,'notepad.exe','','',SW_SHOWNORMAL);
   finally
     Reg.Free;
   end;
end;

引言: Reg.WriteInteger('fSavePageSettings',1); //Turn On ^^^^^^^^^^^請問哦！這句是啥意思丫？

引言: 那要指字記事本的字型大小又辦怎麼辦呢？

KeyName : iPointSize. 妳可以自己試試看: 1. run NotePad.exe 及 Regedit.exe 2. change notepad properties and exit. 3. watch regedit keys. 如果你希望我幫你試完, 麻煩一次問完. /*