PASCAL三大病毒软件.docx

PASCAL三大病毒软件1.programbingdu;vara:integer;begina:=1;whilea=1dowrite(!);end.Program menudemo;$APPTYPE GUI$MODE DELPHIUses Strings,Windows,CommDlg,CommCtrl;Const AppName = Welcome A+!;Var AMessage: Msg; hWindow,hStatus,Hedit: HWnd; WindowClass: WndClass; Menu: hMenu;Const EditMenus: Array200.203 Of pchar = (Cut,Copy,Paste,Select All);Type TFileName = Array0.Max_Path Of Char;Function SelectFile(Var FName:TFileName; Open:Boolean): Boolean;Const Filter: PChar = Text files (*.txt)#0*.txt#0All files (*.*)#0*.*#0; Ext: PChar = txt;Var NameRec: OpenFileName;Begin FillChar(NameRec,SizeOf(NameRec),0); FName0 := #0; With NameRec Do Begin LStructSize := SizeOf(NameRec); HWndOwner := HWindow; LpStrFilter := Filter; LpStrFile := FName; NMaxFile := Max_Path; Flags := OFN_Explorer Or OFN_HideReadOnly; If Open Then Begin Flags := Flags Or OFN_FileMustExist; End; LpStrDefExt := Ext; End; If Open Then SelectFile := GetOpenFileName(NameRec) Else SelectFile := GetSaveFileName(NameRec);End;Procedure SaveText;Var Len: Longint; P: PChar; F: File; FName: TFileName;Begin If SelectFile(FName,False) Then Begin Assign(F,FName); Rewrite(F,1); Len := GetWindowTextLength(HEdit); GetMem(P,Len+1); PLen := #0; If Len0 Then Begin GetWindowText(HEdit,P,Len+1); BlockWrite(F,P,Len); End; Close(F); FreeMem(P,Len+1); End;End;Procedure AskSave;Begin If MessageBox(HWindow,是否保存文件?,Edited,MB_IconQuestion Or MB_YesNo)=IdYes Then Begin SaveText; End;End;Procedure LoadText;Var FName: TFileName; F: File; Len: LongInt; P: PChar;Begin AskSave; If SelectFile(FName,True) Then Begin Assign(F,FName); Reset(F,1); Len := FileSize(F); GetMem(P,Len+1); PLen := #0; If Len0 Then BlockRead(F,P,Len); Close(F); SetWindowText(HEdit,P); FreeMem(P,Len+1); End;End;Procedure NewText;Const Empty: PChar = ;Begin AskSave; SendMessage(HEdit,WM_SetText,1,LongInt(Empty);End;Function WindowProc (Window:HWnd;AMessage : UINT; WParam : WParam; LParam:LParam): LResult;stdcall;export;Var ps: paintstruct; r: rect; StatH: Word; nrmenu : longint;Begin WindowProc := 0; Case AMessage Of wm_Paint: Begin BeginPaint(Window,ps); GetClientRect(Window,r); EndPaint(Window,ps); Exit; End; wm_Close: Begin AskSave; End; wm_Destroy: Begin PostQuitMessage (0); Exit; End; wm_Size: Begin if HStatus0 then begin GetClientRect(HStatus,R); StatH := R.Bottom-R.Top; GetClientRect(Window,R); MoveWindow (hStatus,r.left,r.bottom-StatH,r.right,r.bottom,true); if HEdit0 then MoveWindow (HEdit,0,0,r.right-r.left,r.bottom-r.top-StatH,true); end; End; wm_Command: Begin NrMenu := WParam And $FFFF; Case NrMenu Of 101 : NewText; 102 : LoadText; 103 : SaveText; 104 : PostMessage(Window,WM_Close,0,0); 201.203: MessageBox(Window,EditMenusNrMenu, Edit operation not implemented,MB_OK Or MB_IconInformation); End; End; End; WindowProc := DefWindowProc(Window,AMessage,WParam,LParam);End;Function WinRegister: Boolean;Begin With WindowClass Do Begin Style := cs_hRedraw Or cs_vRedraw; lpfnWndProc := WndProc(WindowProc); cbClsExtra := 0; cbWndExtra := 0; hInstance := system.MainInstance; hIcon := LoadIcon (0,idi_Application); hCursor := LoadCursor (0,idc_Arrow); hbrBackground := GetStockObject(GRAY_BRUSH); lpszMenuName := Files; lpszClassName := AppName; End; Result := RegisterClass (WindowClass)0;End;Function EditCreate(ParentWindow,Status:HWnd): HWnd;Const CS_Start = WS_Child or WS_HScroll or WS_VScroll or ES_MultiLine or ES_Left; EdiTText: PChar = ;Var HEdit: HWND; R: TRect; StatH: Word;Begin GetClientRect(Status,R); StatH := R.Bottom-R.Top; GetClientRect(ParentWindow,R); HEdit := CreateWindow (EDIT,EditText,CS_Start,0,0, R.Right-R.Left,R.Bottom-R.top-StatH,ParentWindow,0, System.MainInstance,Nil); If HEdit0 Then Begin ShowWindow(Hedit,cmdShow); UpdateWindow(HEdit); End; Result := HEdit;End;Function WinCreate: HWnd;Var hWindow: HWnd; SubMenu: hMenu;Begin hWindow := CreateWindow (AppName,MenuDemo,ws_OverlappedWindow, cw_UseDefault,cw_UseDefault,cw_UseDefault, cw_UseDefault,0,0,system.MainInstance,Nil); If hWindow0 Then Begin Menu := CreateMenu; SubMenu := CreateMenu; AppendMenu(Submenu,MF_STRING,101,&New.); AppendMenu(Submenu,MF_STRING,102,&Open.); AppendMenu(Submenu,MF_STRING,103,&Save.); AppendMenu(Submenu,MF_STRING,103,&Change window); AppendMenu(Submenu,MF_SEPARATOR,0,Nil); AppendMenu(SubMenu,MF_String,104,E&xit); AppendMenu(Menu,MF_POPUP,SubMenu,&File); SubMenu := CreateMenu; AppendMenu(SubMenu,MF_String,201,&Cut); AppendMenu(SubMenu,MF_String,202,&Copy); AppendMenu(SubMenu,MF_STRING,203,&Paste); AppendMenu(SubMenu,MF_STRING,204,&Board.); AppendMenu(SubMenu,MF_STRING,204,&Select All); AppendMenu(Menu,MF_POPUP,SubMenu,&Edit); SubMenu := CreateMenu; AppendMenu(SubMenu,MF_String,301,&Mode.Debug); AppendMenu(SubMenu,MF_String,302,&Compiler.); AppendMenu(SubMenu,MF_String,303,&Memory sizes.); AppendMenu(SubMenu,MF_String,304,&Linker.); AppendMenu(SubMenu,MF_String,305,&Debugger.); AppendMenu(SubMenu,MF_String,306,&Directories.); AppendMenu(SubMenu,MF_String,307,&Browser.); AppendMenu(SubMenu,MF_String,308,&Tools.); AppendMenu(Menu,MF_POPUP,SubMenu,&O&ptions); AppendMenu(SubMenu,MF_String,309,&Environment -); AppendMenu(SubMenu,MF_String,310,&Open.); AppendMenu(SubMenu,MF_String,311,&Save.); AppendMenu(SubMenu,MF_String,312,&Save as.); AppendMenu(Menu,MF_POPUP,SubMenu,&Options); SubMenu:=CreateMenu; AppendMenu(SubMenu,MF_String,312,&Index.); AppendMenu(SubMenu,MF_String,312,&About.); AppendMenu(Menu,MF_STRING,0,&Help); SetMenu(hWindow,menu); ShowWindow(hWindow,CmdShow); ShowWindow(hWindow,SW_SHOW);