PASCAL三大病毒软件.docxVIP

PASCAL三大病毒软件1.program?bingdu;??var??a:integer;??begin??a:=1;??while?a=1?do??write(!);??end.Program menudemo;{$APPTYPE GUI}{$MODE DELPHI}Uses Strings,Windows,CommDlg,CommCtrl;Const AppName = Welcome A++!;Var AMessage: Msg; hWindow,hStatus,Hedit: HWnd; WindowClass: WndClass; Menu: hMenu;Const EditMenus: Array[200..203] Of pchar = (Cut,Copy,Paste,Select All);Type TFileName = Array[0..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); FName[0] := #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); P[Len] := #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); P[Len] := #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