Windows용 Google 크롬(베타)

아직 베타이긴 하지만 한번 써보는것도 좋을듯 싶다.

다운로드

http://www.google.com/chrome/index.html?hl=ko&brand=CHMG&utm_source=ko-hpp&utm_medium=hpp&utm_campaign=ko

델파이로 개발되었으며 무료 프로그램입니다. 인포믹스 DBMS를 쓰시는 개발자분들은

많은 도움이 될겁니다.

먼저 ODBC가 연결되어 있어야함

단점 : 임시테이블 생성안됨

 <- Batch SQL 실행 - 현재 화면에 전체 쿼리를 실행하는 아이콘

1.제품특징

모발에 즉시 작용하여 수분과 .영.양.을 공급해 주는 간편하게 뿌리면서 케어하는 인스턴트 2페이스 트리트먼트 파란층은 모발내 모피질을 강화해 주고 흰층은 모발외부의 큐티클층을 보호해 주는 이중 구조의 트리트먼트 제품입니다. 건조하고 정전기가 심한 손상 모발에 간편하게 뿌려 주면 촉촉하고 찰랑찰랑한 윤기와 상큼한 향에 의한 심신의 리프레싱 효과를 얻을 수 있습니다

2.사용방법

두 층이 잘 섞이도록 흔들어준 다음 드라이전 모발 보호를 위해 또는 건조한 모발에 수시로 적당량 뿌려 줍니다.

3.제품용량:460ml

아래 소스중 빨간부분을 추가하면 프로그램을 중복실행시 한번만 실행하게 할수 있습니다.

program Project1;

uses

  Forms,Windows,Dialogs,

  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin

  Application.Initialize;

  CreateFileMapping ( $FFFFFFFF, nil, PAGE_READWRITE, 0,1024, 'SharedExists' );

  if GetLastError=ERROR_ALREADY_EXISTS then

  begin

    ShowMessage('현재 프로그램이 실행중입니다.');

    halt;

  end;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.

정의한 경로의 윈도우창이 생성됩니다.

예제소스

procedure TForm1.Button6Click(Sender: TObject);

var

   DirInfo:String;

begin

   DirInfo := 'C:\dongbu_client_src_apply';

   //ShellExecute(0, pchar(`open`), pchar(`explorer.exe`), pchar(Edit1.Text), nil, SW_SHOW);

   ShellExecute(0 , 'Open', pchar(DirInfo), nil, '', SW_SHOWNORMAL);

   //# SW_SHOWNORMAL - 최대화, SW_SHOW - 일반

end;

아이피에 대한 정보를 알수있는 사이트

http://ipwhois.nic.or.kr/