program ARTICLELV_WM_LBUTTONUP;

// Version 1.08 - 26.02.2006

uses
  Forms, StdCtrls;

const
//  ----------------------------------------------------
//  Configuration settings
//  ----------------------------------------------------

   win98 = 0; // für Nutzer von WIN-XP "win98 = 0", Windows 98 "win98 = 1"
   PfadToFaceView = 'D:\VB-Projekte\FaceView'; // Vollständiger Pfad von FaceView.exe
      
//  ----------------------------------------------------
//  End of configuration settings
//  ---------------------------------------------------- 
  
   {Tag to detect a given Header}
   FaceHeader = 'Face: ';
  
function GetTickCount : cardinal; external 'GetTickCount@kernel32.dll stdcall';
function OpenClipboard(hWndNewOwner: THandle): Boolean; external 'OpenClipboard@user32.dll stdcall';
function CloseClipboard: Boolean; external 'CloseClipboard@user32.dll stdcall';
function EmptyClipboard: Boolean; external 'EmptyClipboard@user32.dll stdcall';

procedure Delay(const Milliseconds: Word);
var
  FirstTickCount: LongWord;
begin
  FirstTickCount := GetTickCount;
  lockdisplay;
  while ((GetTickCount - FirstTickCount) < Milliseconds) do
    begin
      Application.ProcessMessages;
      Sleep(0);
    end;
  unlockdisplay;
end;

var
  FaceCode : string;
  TempClip : string;
  HeadersAreHidden : Boolean;
  tmpForm   : TForm;
  tmpMemo   : TMemo;

function GetClipboardAsString: String;
var
  M: TMemo; F: TForm;
begin
  F:=TForm.Create(nil);
  M:=TMemo.Create(F);
  M.Parent:=F;
  M.PasteFromClipboard;
  Result:=M.Text;
  M.Free;
  F.Free;
end;

function GetMessageBody: String;
begin
  ADo('ArticlePane');
  ADo('SelectAll');
  Ado('Copy');
  Result:=GetClipboardAsString;
end;

function GetHeaderInfo(HeaderTag, Body: String): String;
var 
 TempBody : String;
 
 begin
   if Pos(#13#10#13#10, Body)>0 then
     TempBody:=Copy(Body, 1, Pos(#13#10#13#10, Body)+1);
   if Pos(#13#10+HeaderTag, TempBody)=0 then
     Result:=''
   else
     begin
       Delete(Body, 1, Pos(#13#10+HeaderTag, Body)+Length(HeaderTag)+1);
       Result:=Copy(Body, 1, Pos(#13#10, Body)-1);
     end;
 end;

 function AreHeadersHidden(Body: String): boolean;
 begin
   if Pos(#13#10#13#10, Body)>0 then
     Body:=Copy(Body, 1, Pos(#13#10#13#10, Body)+1);
   Result:= (Pos('Newsgroups: ', Body)=0) and (Pos('From: ', Body)=0);
 end;

function GetFaceCode: String;
var
  Body: String;
begin
  Body:=GetMessageBody;
  HeadersAreHidden:=AreHeadersHidden(Body);
  {headers must be displayed to get FaceCode}
  if HeadersAreHidden then
    ADo('ShowHeaders');
  Body:=GetMessageBody;
  if HeadersAreHidden then
    Ado('ShowHeaders');   

  Result:=GetHeaderInfo(FaceHeader, Body);

end;

procedure OnWMessage (var Msg : TMessage; var handled : boolean);
begin
  tmpForm := tForm.Create(nil);
  try
  tmpForm.Visible := False;
  tmpMemo := tmemo.Create(tmpForm);
  tmpMemo.Parent := tmpForm;
  tmpMemo.Visible := False;
  tmpMemo.Clear;
  tmpMemo.pasteFromClipboard;
  tmpMemo.SelectAll;
  TempClip := tmpMemo.text;
  lockdisplay;
  ADo('GetSelectedMessageBodies');
  Delay(800)
  unlockdisplay;

  FaceCode := GetFaceCode;

  finally

  if Length(FaceCode) < 200 then FaceCode := 'exit';
  if (win98 = 1) and (FaceCode <> 'exit') then begin
     FileExecute(0,PfadToFaceView + '\FaceView.exe', 'open','exit','',4,0);
     Delay(200)
     tmpMemo.Clear;
     tmpMemo.text := trim(FaceCode)
     tmpMemo.SelectAll;
     tmpMemo.CopyToClipboard;
//     WriteLn('Face: ' + trim(tmpMemo.text));
     FileExecute(0,PfadToFaceView + '\FaceView.exe', 'open','','',4,100);
     end
  else begin 
//     WriteLn('Face: ' + FaceCode);
     FileExecute(0,PfadToFaceView + '\FaceView.exe', 'open',FaceCode,'',4,10);
     end;

  if TempClip <> '' then begin
     tmpMemo.Clear;
     tmpMemo.text := TempClip
     tmpMemo.SelectAll;
//     WriteLn('Temp: ' + trim(tmpMemo.text));
     tmpMemo.CopyToClipboard;
  end
  else begin
     OpenClipboard(0);
     EmptyClipboard;
     CloseClipboard;
  end;
  tmpForm.free;
  ADo('HeaderlistPane');
  handled := false;

  end;

//  WriteLn('Face: ' + FaceCode);                                      
//   beep;

end;

Begin
end.