ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses ddeman;
 
function GetURL(Browser: string): string;
var
 Client_DDE: TDDEClientConv;
 temp: PChar;
begin
 Result := '';
 Client_DDE:= TDDEClientConv.Create( nil );
 with Client_DDE do
  begin
   SetLink(Browser, 'WWW_GetWindowInfo');
   temp := RequestData('0xFFFFFFFF');
   Result := StrPas(temp);
  // Return only the URL part
   Delete(Result, Pos(',', Result), Length(Result)-Pos(',', Result)+1);
   // Remove quotes
   Delete(Result, 1, 1);
   Delete(Result, Length(Result), 1);
   // ************
   StrDispose(temp);
   CloseLink;
  end;
 Client_DDE.Free;
end;
 
procedure SetURL(URL, Browser: String);
var
  Client_DDE: TDDEClientConv;
begin
  Client_DDE := TDdeClientConv.Create(nil);
  with Client_DDE do
  begin
    SetLink( Browser, 'WWW_Activate' );
    RequestData('0xFFFFFFFF');
    SetLink( Browser, 'WWW_OpenURL' );
    RequestData(URL  + ',,0xFFFFFFFF,0x3,,,');
    CloseLink;
  end;
  Client_DDE.Free;
end;

//Вызов
SetURL('http://forum.sources.ru/','FireFox');

HCBT_DESTROYWND:      
begin  GetWindowText(WParam,@WindowName,MAX_PATH);     
if WindowName='' then exit;      
NewStr:='Window destoyed at '+GetTime;       NewStr:=NewStr+'. Window name '+WindowName+#13#10;       
if WindowName='NetSpeakerphone' then //ето условие определяет закрылось ли окно, 
надо ели закрылось, то спрятать кнопку на форме             
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  h: hcursor;
begin
  h := LoadCursorFromFile('C:\windows\cursors\sizenwse.ani');
  Screen.Cursors[1] := h;
  Form1.Cursor := 1;
end;