Last4Str:string; //全局变量function NotRepertStr:string;var n,w,i:integer;    s:string;begins:=;if Last4Str= then Last4Str:=0000;n:=strtoint(Last4Str)+1;if n>9999 then n:=0;w:=Length(inttostr(n));

procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin{设置打印机}Assignfile(RPrinter,lpt1);{准备写文件}Rewrite(RPrinter);{打印}for i := 0 to memo1.lines.Count - 1 doWriteln(R

Delphi中除主窗体外，其余窗体最小化后不会出现在任务栏上，而是象古老的Windows 3.X那样缩小为一条出现在桌面左下角。在这些窗体的OnCreate事件里面加上 SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);就可以使窗口最小化后出现在任务栏上。