الدخول إلى مايكروسوفت ISA

function CloseIEs(Wnd : HWnd; Form : TForm1) : Boolean; export; stdcall;
var
  sCap : array [0..255] of char;
begin
  GetWindowText (Wnd, sCap, sizeof(sCap));
  if pos ('Microsoft Internet Explorer', sCap) > 0 then
  begin
    PostMessage (Wnd, WM_CLOSE, 0, 0);
    form2.Visible:=true;//فورم إدخال كلمة السر
  end
  else
  begin
    if sCap = 'IEFrame' then
      PostMessage (Wnd, WM_CLOSE, 0, 0);
      form2.Visible:=true;//فورم إدخال كلمة السر
  end;
  CloseIEs := true;
end;

----------------------------------------------------

procedure TForm1.Timer2Timer(Sender: TObject);
begin
EnumWindows(@CloseIEs, 0);
end;

شكرا

وماذا لو لأردت أنا تمرير اسم المستخدم وكلمة السر برمجياً دون الوقوف لسؤال المستخدم؟

ممكن توضح أكثر عشان نفهم معك

كلمة السر ؟

تمرير ؟

انا اللى فهمت قبل انك بتتأكد من تشغيل المتصفح

شكرا على الرد أخي الكريم

أنا اللي قصدته أني أريد أن أحفظ كلمة السر واسم المستخدم في الريجستري والبرنامج يقرأها مباشرة من هناك لأني لا أريد أن أعطي الموظف المجال للدخول للإنترنت ما عدا صفحات معينة أنا أحفظها في برنامج دلفي أصنعه

البرنامج عندما يشتغل يقرأ كلمة السر واسم المستخدم الموجودين في الريجستري دون أن يسأل الموظف إدخالهما.

وباللغة الإنجليزية

automatically login to ISA without prompting the user tio enter user and ID and password

أرجو أن تكون وضحت الفكرة

مع الشكر

كتابة قيمه وتشفيرها وفك التشفير

في المشروع

txtPass: TEdit; \ كلمة السر بالوضع العادي

txtID: TEdit; \ إسم المستخدم

txtnPass: TEdit; \ كلمة السر بالوضع المشفر

كود التشفير وفك التشفير

-----------------------------

Function DecryptPass(Password: String): String;
var
	i: integer;
	ordinal: integer;
	temp: string;
	c: char;
Begin

For i := 1 To Length(Password) do
begin;
	c := Password;
	ordinal := 255 - Ord(c);
	temp := temp + Chr(ordinal);
end;
Result := temp;
End;

حين التغيير

---------------------

procedure TfrmAA.txtPassChange(Sender: TObject);
Begin
{تفعيل التشفير حين التغيير بالكتابه}
txtnPass.Text := DecryptPass(txtPass.Text);
End;

لكتابة بيانات جديده

--------------------

Begin
try
begin;
If txtPass.Text <> '' Then
        begin
Reg := TRegistry.Create();

Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.CreateKey('Software\AApass');
Reg.OpenKey('Software\AApass', FALSE);

{بيانات جديده}

                Reg.WriteString('كلمة السر', txtnPass.Text);
                Reg.WriteString('الإسم', txtID.Text); 
                Reg.CloseKey;
        ShowMessage('تم');
        end
Else
        begin;
                ShowMessage(خطأ);
        end;
end;
except
        begin;
        end;
end
End;

قرائة البيانات

-------------

Reg := TRegistry.Create();
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\AApass', FALSE);
 if (Reg.ValueExists('الإسم'))then BEGIN
 txtID.Text := Reg.ReadString('الإسم');
 end;
 if (Reg.ValueExists('كلمة السر'))then BEGIN
 txtnPass.Text := Reg.ReadString('كلمة السر');

{فك التشفير}

 txtPass.Text := DecryptPass(txtnPass.Text); 
 end;

إن شاء الله يفيدك وتكمل المشروع

:)

شكرا أخي العزيز

الآن قرأت الباسوورد وكلمة المستخدم؟ ولكن كيف أجعل المتصفح يقرأها مباشرة من الريجستري دون أن يقف ويسألني عنها؟

أول ذكرت

اقتباس

والبرنامج يقرأها مباشرة من هناك

ثم

اقتباس

ولكن كيف أجعل المتصفح يقرأها مباشرة من الريجستري

هل المتصفح هو نفسه مشروعك أو كيف انا لخبطت بصراحه

آسف يا عزيزي لأني لخبطتك

مشروعي هو برنامج يتضمن على الفورم متصفح انترنت

شكراً على صبرك علينا

هل من حل؟