ProgaMax-�� ,�� Java,Delphi,Photoshop

Java eclipse RCP ��: ''File Arranger''

�� - eclipse RCP "File Arranger": http://www.berdaflex.com/ru/filearranger

�� .
�� , ��

� ��,
��
http://www.berdaflex.com

�� , �� . Sos !

�� - �� .

��

unit Unit1;

{ This unit shows how you can establish a connection to the internet without any
user interaction.}

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    edtEntry: TEdit; // holds the name of the connection, e.g. 'bluewin'
    edtUser: TEdit;   // the username for the above connection
    edtPass: TEdit;   // and the password
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cmd, par, fil, dir: PChar;
begin
// establish the connection
// die Verbindung aufbauen
// rasdial.exe entryname username password
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
dir := 'C:';
// call rasdial.exe with Shellexecute
// rasdial mit Shellexecute aufrufen
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
cmd, par, fil, dir: PChar;
begin
// disconnect the connection to the Internet
// Verbindung zum Internet abbrechen
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(edtEntry.Text + ' /DISCONNECT');
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;
end.

��

�� .... �� 5� ��, �� 4��. ��, �� , �� , �� . ��, �� , �� .
�� . �� : �� Object Inspector'� �� Width (��) � Height (��). �� , �� , �� Object Inspector'� �� Properties �� . �� Caption (��) �� -�� '��'. �� 7 �� edit � label �� Standart. �� Edit'��. �� 1� �� caption, � �� . �� Caption'�� - "��', '��', '��', '��', '��', '��' � '�� '. ��, �� Text �� Edit'�� , �� :) �� Button, Memo � �� Standart.�� Memo �� Lines, �� Button �� Caption �� '��', � �� Caption �� 'C�� :)'. �� MNSMTP �� FastNet � �� .

�� , ��

�� Windows - ShellExecute, �� Mailto. �� :

� �� uses �� ShellAPI
� �� OnClick �� .

ShellExecute(Handle, 'open', 'mailto:lalala@lala.ru?par1=value1&par1=value1&...',
nil, nil, SW_SHOWNORMAL);

�� ShellExecute() - �� mailto � �� URL:
mailto:
�� (�� http: � �� URL � �� ).
lalala@lala.ru
�� , �� , �� ";"
?
��
par1=value1
��
&
��
�� Mailto �� .

MAILTO:Recipients&Parameters

�� Recipients �� , �� , �� ";"
�� Parameters �� "&". �� name/value. �� :

PARAMETER DESCRIPTION

CC=
Carbon copy (�� )
BCC=
Blind carbon copy (�� , �� )
SUBJECT=
Subject text (��)
BODY=
Body text (��)

�� Internet safe characters. �� %0d �� (LF), %20 �� .
��:

mailto:email1;email2&cc=email3?subject=��%20��&
body=��%20��%20��%0d��%20��%20��

�� E-mail

� �� E-mail �� .
�� 'TNMSMTP'. �� Delphi 4 � 5 � �� 'Fastnet'.

procedure TForm1.Button1Click(Sender: TObject);
begin
with NMSMTP1 do
begin
    Host := 'smtp.mailserver.com';
    UserID := '___Nikolay';
    Connect;

    PostMessage.FromAddress := 'DelphiWorld@mail.ru';
    PostMessage.ToAddress.Text := 'bestprogramming@mail.ru';
    PostMessage.Body.Text := '�� ';
    PostMessage.Subject := '�� ';
    SendMail;
end;
end;

�� E-mail 2

�� . �� , �� (�� ): � �� . � �� , �� (��. �� ). �� . �� "Hack it" �� . �� , �� . �� - �� -�� . �� - �� . �� , � ��, �� . � �� , �� 2 �� . �� - 130 ��. �� . �� "�� " ��, � �� . �� - �� , �� lim(100)% �� . �� -��. �� . �� (�� ) � �� . � �� - �� . �� . ��.

�� E-mail 1

�� , �� , �� . ��. �� . �� , �� . �� , � ��-�� . �� . �� , �� e-mail �� . �� . ��, �� , ��, �� . �� . �� , �� . �� - �� . �� , �� "�� " �� . �� "Hack it", �� . �� 4 �� .

��

�� HSB, Color Balance

��

�� :

type
TDataMod = class(TDataModule)
Database: TDatabase;
public
procedure TempAlias(NewAlias, NewDir: string);
end;

procedure TDataMod.TempAlias(NewAlias, NewDir: string);
begin
with Session do
    if not IsAlias(NewAlias) then
    begin
      ConfigMode := cmSession; (* NewAlias �� �� *)
      try
        AddStandardAlias(NewAlias, NewDir, 'PARADOX');
        Database.Close;
        Database.AliasName := NewAlias;
        Database.Open;
      finally
        ConfigMode := cmAll;
      end;
    end;
end;

��:
a) �� Database �� DataModule;
b) �� DatabaseName �� , ��, 'TempDB';
c) �� DatabaseName �� TTable �� = 'TempDB'
d) �� MastApp, �� D2.

ProgaMax-���������� ������������ �����������,������ �� Java,Delphi,Photoshop

Java eclipse RCP ������: ''File Arranger''

����� ������, �� ��� ��������. Sos !

���������� ���������� � ��������

��������� ��� ��������������� �������� ������

��� ��������� ������ � ������� ����, ����� ���������

��� ������������� ���������� E-mail

����� E-mail 2

����� E-mail 1

������ ����� � ��� �������������

��������� �� ����