[Amin_Mansouri]

ساختن فرمی برای اتصال به اینترنت با نوشتن نام کاربری و کلمه عبور و شماره تلفن

کد:

procedure TForm1.Connect_ButtonClick(Sender: TObject);

var

   cmd,par,fil,dir : PChar;

begin

   cmd := 'Open';

   fil := 'rasdial.exe';

   par := PChar(EditEntry.Text + ' ' + EditUser.Text + ' ' +

             EditPass.Text + ' /PHONE:' + EditPhone.Text + ' /PHONEBOOK:c:\test.pbk');

   dir := 'C:';

   ShellExecute(Self.Handle,cmd,fil,par,dir,SW_SHOWMINNOACTIVE);

end;



procedure TForm1.DisConnect_ButtonClick(Sender: TObject);

var

   cmd,par,fil,dir : PChar;

begin

   cmd := 'Open';

   fil := 'rasdial.exe';

   par := PChar(EditEntry.Text + ' /DISCONNECT');

   dir := 'C:';

   ShellExecute(Self.Handle,cmd,fil,par,dir,SW_SHOWMINNOACTIVE);

end;

تغییر رنگ سطرهای یک جدول (StringGrid)




یک StringGrid بر روی فرم گذاشته و در DrawCell آن کد زیر را بنویسید:

کد:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

var

   dx : Integer;

begin

  with (Sender as TStringGrid) do

  begin

    if(ACol = 0) or (ARow = 0) then

      Canvas.Brush.Color := clBtnFace

    else

    begin

       case ARow of

         1: Canvas.Font.Color := clGreen;

         2: Canvas.Font.Color := clRed;

       end;

       if ARow mod 2 = 0 then

          Canvas.Brush.Color := $00E1FFF9

       else

          Canvas.Brush.Color := $00FFEBDF;

       Canvas.TextRect(Rect,Rect.Left + 2,Rect.Top + 2,Cells[ACol,ARow]);

       Canvas.FrameRect(Rect);

    end;

  end;

end;

برش یک فرم و تبدیل آن به دو فرم

کد:

var

  Pts: array [1..9] of TPoint;



procedure TForm1.Button2Click(Sender: TObject);

var

  I: integer;

  hRegion: THandle;

begin

  InitSize := Width;

  Pts [1] := Point (0, 0);

  Pts [2] := Point (Width div 2, 0);

  Pts [3] := Point (Width div 2, Height);

  Pts [8] := Point (0, Height);

  Pts [9] := Point (0, 0);

  for i := 0 to 100 do

  begin

    Left := Left - 1;

    Width := Width + 2;

    Pts [4] := Point (Width - InitSize div 2, Height);

    Pts [5] := Point (Width - InitSize div 2, 0);

    Pts [6] := Point (Width, 0);

    pts [7] := Point (Width, Height);

    HRegion := CreatePolygonRgn (Pts, 9, alternate);

    SetWindowRgn (Handle, HRegion, True);

    Application.ProcessMessages;

  end;

end;

غیر فعال کردن TaskManager



اگر مقدار ورودی تابع True باشد غیرفعال شده ولی اگر مقدار ورودی False باشد دوباره فعال خواهد شد.

کد:

Procedure DisableTaskManager(Const State:Boolean);

var

Reg: TRegistry;

begin



  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CURRENT_USER;

    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',

True)

    then Reg.WriteInteger('DisableTaskMgr',Integer(State)); //typecast the boolean to convert it to 1 or 0

  finally

    Reg.CloseKey;

    Reg.Free;

  end;

end;