웃으세요 제발 ^^;...theF..

var
  AA: TDateTime;
begin
  AA := Now();

  // 1시간 더하기
  AA := AA + (1/24);

  // 1분 더하기
  AA := AA + (1/(24*60));

  // 1초 더하기
  AA := AA + (1/(24*60*60));
end;

살펴보면 규칙이 보일겁니다.

TDateTime은 하루를 1로 계산합니다.

따라서,

1시간은 1일/24시간
1분은 1일/(24시간 * 60분)
1초는 1일/(24시간 * 60분 * 60초)

가 되는 겁니다.

궁금 님이 쓰신 글 :
: 델파이에서 now 해서 시간을 찍어보면
:
: 2006-10-10 오전 07:08:11 이렇게 나오는데 여기에 초를 더하면 시간을 알아서 계산해주는 함수가 있나요?
:
: 수동으로 하려면 오전인지 오후인지 판단해서 24시간으로 바꾸고 거기서 초를더해서
: 만약 24시간을 넘어가면 2006-10-10 에 해당하는 날짜를 +1해주고 나머지값을 시간에셋팅해주고 등등 번거로운데요..걍 간단히 tdatetime 형의 시간에 1초를더한 날짜/시간을
: 계산해주는함수가있는지요??
:
: 프로그램시작시에 현재시간을 tdatetime변수에 넣어두고.. tickcount를 계산해서..
: 현재시간에서 초를 계속더해서..윈도우시계와는상관없이.. 독자적인 시간을 만들려고하거든요! 근데 현재시간을 저장해뒀다가 지나간tick을초로환잔해서 더할때마다 시간계산이 복잡해서리..--;

출처  : http://www.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=11140

20KHz의 신호를 입력받고자 하는데 신호가 부정확합니다

DAQ-2000시리즈를 이용하여 20Khz의 신호를 수집하고자 하는데

정상적인 신호가 들어오지 않습니다.

답변: 일단 DAQ-2000시리즈 뿐만 아니라 모든 데이터 수집 제품을 사용하여

정확한 데이터를 수집하기 위해서 고려해야할 사항은 3가지 정도입니다.

첫째. Sampling rate를 얼마나 지원하고 얼마를 설정해야 하는가?

먼저 Sampling rate에 대해 설명드리면 아주 간단하게 1초에 원래 신호를 몇 개나 디지털화 할것인가?를 나타내는 비율이라고 보시면 됩니다.

예를 들어 100KS/s의 Sampling rate이면 1초에 원래 신호 중에 10만개를 디지털화 합니다.

따라서 이 부분은 보통 측정하고자 하는 신호의 10배 정도의 Sampling rate를 추천합니다.

10배 정도는 되어야 정확한 데이터 수집이 가능합니다.

위의 예처럼 20Khz의 신호를 측정하고할 경우 200KS/s정도의 Sampling rate를 사용하면 정확한 데이터를 수집할 수 있습니다.

둘째. 지원하는 입력 범위가 얼마인가?

보통의 데이터 수집제품의 경우 최대 -10V ~ +10V의 bipolar범위를 제공하며 

최소 -0.05V ~ +0.05V의 Bipolar 또는 0 ~ 0.1V의 unipolar의 범위를 제공합니다.

이러한 입력 범위는 측정하고자 하는 신호의 출력 범위를 정확하게 파악하신 다음에

그 범위에 가장 적합한 범위를 지원해 주는가가 관건입니다.

최대한 수집하고자 하는 신호의 출력 범위와 같은 범위로 설정해야 정확하고 정밀한

데이터를 수집할 수 있습니다.

보통의 센서들은 수mv, 4~20mA, 1~5V, 0~10V 정도의 출력 범위를 가집니다.

참고로 위의 센서 출력 범위 중 4~20mA의 경우는 signal conditioner 또는 250Ω의 저항을 이용하여 1~5V의 전압출력으로 변환하여 입력을 받습니다. 

V=IR이므로 전압=전류*저항의 식을 이용하여

4mA일때 V=4*250=1V, 20mA일때 V=20*250=5V가 됩니다.

셋째. Resolution(분해능) Bit수는 얼마인가?

보통의 데이터수집 제품은 12bit와 14bit 16bit를 제공합니다. 여기서 비트수의 차이점은 sampling rate를 통해 1초에 수집된 신호를 디지털로 몇 비트를 이용하여 표현하는가를 나타냅니다. 

예를 들어 똑같은 Sampling rate와 입력 범위(예를 들어 0~10V)로 데이터를 수집하여도 12bit는 입력 범위  0~10V를 2의 12승인 4096개로 나누어서 0.002V단위로 표시가 가능하지만 16bit는 2의 16승인 65536개로 나누어 0.00015V 단위로 표시가 가능하므로  수집된 데이터가 훨씬 정밀해 집니다.

위에서 언급한 3가지를 충분히 고려하여 데이터 수집 제품을 선정하여 사용하시면

원하시는 정확성과 정밀도를 가진 데이터를 수집할 수 있습니다.

물론 가장 중요한 측정하고자 하는 신호의 정확한 범위와 단위 신호의 주파수 성분을

잊으시면 안되겠죠?

출처 : http://www.dassystem.co.kr/support/faq.php

  { Virtual Keys, Standard Set }
  {$EXTERNALSYM VK_LBUTTON}
  VK_LBUTTON = 1;
  {$EXTERNALSYM VK_RBUTTON}
  VK_RBUTTON = 2;
  {$EXTERNALSYM VK_CANCEL}
  VK_CANCEL = 3;
  {$EXTERNALSYM VK_MBUTTON}
  VK_MBUTTON = 4;  { NOT contiguous with L & RBUTTON }
  {$EXTERNALSYM VK_BACK}
  VK_BACK = 8;
  {$EXTERNALSYM VK_TAB}
  VK_TAB = 9;
  {$EXTERNALSYM VK_CLEAR}
  VK_CLEAR = 12;
  {$EXTERNALSYM VK_RETURN}
  VK_RETURN = 13;
  {$EXTERNALSYM VK_SHIFT}
  VK_SHIFT = $10;
  {$EXTERNALSYM VK_CONTROL}
  VK_CONTROL = 17;
  {$EXTERNALSYM VK_MENU}
  VK_MENU = 18;
  {$EXTERNALSYM VK_PAUSE}
  VK_PAUSE = 19;
  {$EXTERNALSYM VK_CAPITAL}
  VK_CAPITAL = 20;
  {$EXTERNALSYM VK_KANA }
  VK_KANA = 21;
  {$EXTERNALSYM VK_HANGUL }
  VK_HANGUL = 21;
  {$EXTERNALSYM VK_JUNJA }
  VK_JUNJA = 23;
  {$EXTERNALSYM VK_FINAL }
  VK_FINAL = 24;
  {$EXTERNALSYM VK_HANJA }
  VK_HANJA = 25;
  {$EXTERNALSYM VK_KANJI }
  VK_KANJI = 25;
  {$EXTERNALSYM VK_CONVERT }
  VK_CONVERT = 28;
  {$EXTERNALSYM VK_NONCONVERT }
  VK_NONCONVERT = 29;
  {$EXTERNALSYM VK_ACCEPT }
  VK_ACCEPT = 30;
  {$EXTERNALSYM VK_MODECHANGE }
  VK_MODECHANGE = 31;
  {$EXTERNALSYM VK_ESCAPE}
  VK_ESCAPE = 27;
  {$EXTERNALSYM VK_SPACE}
  VK_SPACE = $20;
  {$EXTERNALSYM VK_PRIOR}
  VK_PRIOR = 33;
  {$EXTERNALSYM VK_NEXT}
  VK_NEXT = 34;
  {$EXTERNALSYM VK_END}
  VK_END = 35;
  {$EXTERNALSYM VK_HOME}
  VK_HOME = 36;
  {$EXTERNALSYM VK_LEFT}
  VK_LEFT = 37;
  {$EXTERNALSYM VK_UP}
  VK_UP = 38;
  {$EXTERNALSYM VK_RIGHT}
  VK_RIGHT = 39;
  {$EXTERNALSYM VK_DOWN}
  VK_DOWN = 40;
  {$EXTERNALSYM VK_SELECT}
  VK_SELECT = 41;
  {$EXTERNALSYM VK_PRINT}
  VK_PRINT = 42;
  {$EXTERNALSYM VK_EXECUTE}
  VK_EXECUTE = 43;
  {$EXTERNALSYM VK_SNAPSHOT}
  VK_SNAPSHOT = 44;
  {$EXTERNALSYM VK_INSERT}
  VK_INSERT = 45;
  {$EXTERNALSYM VK_DELETE}
  VK_DELETE = 46;
  {$EXTERNALSYM VK_HELP}
  VK_HELP = 47;
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
  {$EXTERNALSYM VK_LWIN}
  VK_LWIN = 91;
  {$EXTERNALSYM VK_RWIN}
  VK_RWIN = 92;
  {$EXTERNALSYM VK_APPS}
  VK_APPS = 93;
  {$EXTERNALSYM VK_NUMPAD0}
  VK_NUMPAD0 = 96;
  {$EXTERNALSYM VK_NUMPAD1}
  VK_NUMPAD1 = 97;
  {$EXTERNALSYM VK_NUMPAD2}
  VK_NUMPAD2 = 98;
  {$EXTERNALSYM VK_NUMPAD3}
  VK_NUMPAD3 = 99;
  {$EXTERNALSYM VK_NUMPAD4}
  VK_NUMPAD4 = 100;
  {$EXTERNALSYM VK_NUMPAD5}
  VK_NUMPAD5 = 101;
  {$EXTERNALSYM VK_NUMPAD6}
  VK_NUMPAD6 = 102;
  {$EXTERNALSYM VK_NUMPAD7}
  VK_NUMPAD7 = 103;
  {$EXTERNALSYM VK_NUMPAD8}
  VK_NUMPAD8 = 104;
  {$EXTERNALSYM VK_NUMPAD9}
  VK_NUMPAD9 = 105;
  {$EXTERNALSYM VK_MULTIPLY}
  VK_MULTIPLY = 106;
  {$EXTERNALSYM VK_ADD}
  VK_ADD = 107;
  {$EXTERNALSYM VK_SEPARATOR}
  VK_SEPARATOR = 108;
  {$EXTERNALSYM VK_SUBTRACT}
  VK_SUBTRACT = 109;
  {$EXTERNALSYM VK_DECIMAL}
  VK_DECIMAL = 110;
  {$EXTERNALSYM VK_DIVIDE}
  VK_DIVIDE = 111;
  {$EXTERNALSYM VK_F1}
  VK_F1 = 112;
  {$EXTERNALSYM VK_F2}
  VK_F2 = 113;
  {$EXTERNALSYM VK_F3}
  VK_F3 = 114;
  {$EXTERNALSYM VK_F4}
  VK_F4 = 115;
  {$EXTERNALSYM VK_F5}
  VK_F5 = 116;
  {$EXTERNALSYM VK_F6}
  VK_F6 = 117;
  {$EXTERNALSYM VK_F7}
  VK_F7 = 118;
  {$EXTERNALSYM VK_F8}
  VK_F8 = 119;
  {$EXTERNALSYM VK_F9}
  VK_F9 = 120;
  {$EXTERNALSYM VK_F10}
  VK_F10 = 121;
  {$EXTERNALSYM VK_F11}
  VK_F11 = 122;
  {$EXTERNALSYM VK_F12}
  VK_F12 = 123;
  {$EXTERNALSYM VK_F13}
  VK_F13 = 124;
  {$EXTERNALSYM VK_F14}
  VK_F14 = 125;
  {$EXTERNALSYM VK_F15}
  VK_F15 = 126;
  {$EXTERNALSYM VK_F16}
  VK_F16 = 127;
  {$EXTERNALSYM VK_F17}
  VK_F17 = 128;
  {$EXTERNALSYM VK_F18}
  VK_F18 = 129;
  {$EXTERNALSYM VK_F19}
  VK_F19 = 130;
  {$EXTERNALSYM VK_F20}
  VK_F20 = 131;
  {$EXTERNALSYM VK_F21}
  VK_F21 = 132;
  {$EXTERNALSYM VK_F22}
  VK_F22 = 133;
  {$EXTERNALSYM VK_F23}
  VK_F23 = 134;
  {$EXTERNALSYM VK_F24}
  VK_F24 = 135;
  {$EXTERNALSYM VK_NUMLOCK}
  VK_NUMLOCK = 144;
  {$EXTERNALSYM VK_SCROLL}
  VK_SCROLL = 145;
{ VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
  Used only as parameters to GetAsyncKeyState() and GetKeyState().
  No other API or message will distinguish left and right keys in this way. }
  {$EXTERNALSYM VK_LSHIFT}
  VK_LSHIFT = 160;
  {$EXTERNALSYM VK_RSHIFT}
  VK_RSHIFT = 161;
  {$EXTERNALSYM VK_LCONTROL}
  VK_LCONTROL = 162;
  {$EXTERNALSYM VK_RCONTROL}
  VK_RCONTROL = 163;
  {$EXTERNALSYM VK_LMENU}
  VK_LMENU = 164;
  {$EXTERNALSYM VK_RMENU}
  VK_RMENU = 165;
  {$EXTERNALSYM VK_PROCESSKEY}
  VK_PROCESSKEY = 229;
  {$EXTERNALSYM VK_ATTN}
  VK_ATTN = 246;
  {$EXTERNALSYM VK_CRSEL}
  VK_CRSEL = 247;
  {$EXTERNALSYM VK_EXSEL}
  VK_EXSEL = 248;
  {$EXTERNALSYM VK_EREOF}
  VK_EREOF = 249;
  {$EXTERNALSYM VK_PLAY}
  VK_PLAY = 250;
  {$EXTERNALSYM VK_ZOOM}
  VK_ZOOM = 251;
  {$EXTERNALSYM VK_NONAME}
  VK_NONAME = 252;
  {$EXTERNALSYM VK_PA1}
  VK_PA1 = 253;
  {$EXTERNALSYM VK_OEM_CLEAR}
  VK_OEM_CLEAR = 254;

ShowMessage(IntToStr(Ord(Key)));

2007/01/16 10:43

MDB의 한계 값

http://www.superxt.com/program/vb/tip/tip_18.htm

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

 MS Access 헬프에 있는 내용입니다.

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

Microsoft Access 데이터베이스의 일반 사양

 속성 최대 크기

 Microsoft Access 데이터베이스(.mdb) 파일 크기 2GB까지 지정할 수 있습니다.

 그러나, 데이터베이스에 다른 파일의 연결 테이블을 포함할 수 있으므로 데이터베이스의

 전체 크기는 사용할 수 있는 저장 용량에 의해만 제한됩니다. 

 데이터베이스의 개체 수 32,768개까지 포함할 수 있습니다. 

 모듈 포함/HasModule 속성이 True로 설정된 폼과 보고서를 포함한 모듈 1,000개까지

 포함할 수 있습니다. 

 개체 이름의 문자 수 64자까지 지정할 수 있습니다. 

 암호의 문자 수 14자까지 지정할 수 있습니다. 

 사용자 이름이나 그룹 이름의 문자 수 20자까지 지정할 수 있습니다. 

 동시에 가능한 사용자 수 255명까지 가능합니다. 

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

Microsoft Access 프로젝트의 일반 사양

 특성 최대값

 Microsoft Access 프로젝트(.adp)의 개체 수 32,768개까지 사용할 수 있습니다. 

 모듈 포함/HasModule 속성이 True로 설정된 폼과 보고서를 포함한 모듈 수 1,000개까지

 사용할 수 있습니다.  

 개체 이름의 문자 수 64자까지 지정할 수 있습니다. 

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

Microsoft Access 데이터베이스 테이블 사양

 속성 최대 크기

 테이블 이름의 문자 수 64자까지 지정할 수 있습니다. 

 필드 이름의 문자 수 64자까지 지정할 수 있습니다. 

 테이블의 필드 수 255개까지 지정할 수 있습니다. 

 열려 있는 테이블 수 2,048개까지 지정할 수 있습니다.

 Microsoft Access에서 내부적으로 여는 테이블 때문에 실제 개수는 더 적을 수 있습니다. 

 테이블 크기 1GB까지 지정할 수 있습니다. 

 텍스트 필드의 문자 수 255자까지 지정할 수 있습니다. 

 메모 필드의 문자 수 사용자 인터페이스를 사용해 데이터를 입력할 때는

 65,535자까지 지정할 수 있습니다.

 프로그램에서 데이터를 입력할 때는 1GB까지 지정할 수 있습니다. 

 OLE 개체 필드의 크기 1GB까지 지정할 수 있습니다. 

 테이블에서의 인덱스 수 32개까지 지정할 수 있습니다. 

 인덱스의 필드 수 10개까지 지정할 수 있습니다. 

 유효성 검사 메시지의 문자 수 255자까지 지정할 수 있습니다. 

 유효성 검사 규칙의 문자 수 2,048자까지 지정할 수 있습니다. 

 테이블이나 필드 설명의 문자 수 255자까지 지정할 수 있습니다. 

 메모와 OLE 개체 필드를 제외한 레코드의 문자 수 2,000자까지 지정할 수 있습니다. 

 필드 속성 설정의 문자 수 255자까지 지정할 수 있습니다. 

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

Microsoft Access 데이터베이스 쿼리 사양

 속성 최대 크기

 강제 관계 수 테이블마다 테이블에서 관계에 포함되지 않는 필드나 필드 조합에 대한 인덱스

 수를 32에서 뺀 수까지 지정할 수 있습니다. 

 쿼리의 테이블 수 32개까지 지정할 수 있습니다.

 레코드 집합의 필드 수 255개까지 지정할 수 있습니다. 

 레코드 집합의 크기 1GB까지 지정할 수 있습니다. 

 정렬 제한 하나 이상의 필드에서 255자까지 지정할 수 있습니다.

 중첩된 쿼리의 수준 수 50까지 지정할 수 있습니다. 

 쿼리 디자인 눈금에서 셀의 문자 수 1,024자까지 지정할 수 있습니다. 

 매개 변수 쿼리에서 매개 변수의 문자 수 255자까지 지정할 수 있습니다.

 WHERE나 HAVING 절의 AND 수 40개까지 지정할 수 있습니다. 

 SQL 문의 문자 수 약 64,000자까지 지정할 수 있습니다. 

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

폼 및 보고서 사양

 속성 최대 크기

 레이블의 문자 수 2,048자까지 지정할 수 있습니다. 

 입력란의 문자 수 65,535자까지 지정할 수 있습니다. 

 폼이나 보고서의 너비 22인치(55.87cm)까지 지정할 수 있습니다.

 구역 높이 22인치(55.87cm)까지 지정할 수 있습니다. 

 디자인 보기에서 모든 구역과 구역 머리글을 합한 높이 200인치(508cm)까지 지정할 수 있습니다. 

 중첩된 폼이나 보고서의 수준 수 7까지 지정할 수 있습니다.

 보고서에서 정렬이나 그룹화할 수 있는 필드나 식의 수 10개까지 지정할 수 있습니다. 

 보고서의 머리글과 바닥글 수 보고서 바닥글 하나에 보고서 머리글 하나,

 페이지 바닥글 하나에 페이지 머리글 하나, 그룹 바닥글 하나에 그룹 머리글 10개까지 지정할

 수 있습니다.

 보고서에 인쇄되는 페이지 수 65,536페이지까지 지정할 수 있습니다. 

 폼이나 보고서를 사용하는 동안 추가할 수 있는 컨트롤과 구역의 수 754개까지 지정할 수 있습니다. 

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

매크로 사양

 속성 최대 크기

 매크로의 매크로 함수 개수 999개까지 지정할 수 있습니다. 

 조건의 문자 수 255자까지 지정할 수 있습니다. 

 설명의 문자 수 255자까지 지정할 수 있습니다. 

 매크로 함수 인수의 문자 수 255자까지 지정할 수 있습니다. 

VBBank.Net 에서 퍼온 자료입니다.　

본페이지는 CopyLeft 규약을 준수합니다. CopyLeft ⓒ 2000 SuperXT = 박재영

출처 : http://factory.tistory.com/?page=4

 StringReplace(DataBuf,' ','',[rfReplaceAll]) ;

  -> 문제가 가끔 있다.  내가 경험한 빡치는 상황은

텍스트 파일을 while 문으로 한 줄씩 읽고 해당 줄의 공백을 제거 하는건데..

공백 제거가 안된다.  ㅜㅜ

버튼 하나 만들어서 while 안쓰고 하면 잘 된다..

검색해 봤다.while 문으로 공백을 제거하는 간단한 코드가 있다.

존경스럽다.

원문링크

function gfDel32(s: string): string;
begin
 while not(pos(' ',s)=0) do delete(s,pos(' ',s),1);
 result:=s;
end;

아니면 자체 내장함수인 StringReplace 을 사용하면

str := StringReplace(str1, ' ', '', [rfReplaceAll, rfIgnoreCase]);

참고.

원문 블로그 주인분이 암 투병 중이시다.  쾌차하셔서  산좋고 물좋은 곳에서 요양중이시길 바래본다.

 lib 목록

 - Tled, Tindicator, logmeter,scope....

Component 메뉴 - Install Package - Add

델파이 bin 폴더 안에 dclqrt70.bpl 을 선택

끝.

Component -> Install Packages

델파이 7 설치 폴더에 bin

dclSockets70.bpl -> add 

끝  .

var

    aHandle : THandle;

    PID : Integer;

aHandel := FindWindow ('TfrmMain',nil);                      //첫번째 인자는 클래스명(델파이 제작프로그램)

aHandel := FindWindow('NotePad',nil);                          //메모장등은 프로그램명만 

또는

aHandel := FindWindow(nil,'제목 없음 - 메모장');            //캡션만

또는

aHandel := FindWindow('NotePad','제목 없음 - 메모장'); //둘다 알때

procedure TForm1.Button1Click(Sender: TObject);
var
  time1,time2,ptime, msecday : TTimeStamp;
  //msecday1 : Double;
  itmp1, tmp1,tmp2,tmp3, tmp4,tmp5,tmp6,tmp7 : integer;
begin
 //msecday1 := (1/(24*60*60));
  time1 := DateTimeToTimeStamp(StrToDateTime('2000-02-02 02:50:00'));
  time2 := DateTimeToTimeStamp(StrToDateTime('2000-02-03 05:51:20'));

  ptime.Time := time2.Time - time1.Time;
  ptime.Date := time2.Date - time1.Date;

  if ptime.Time < 0 then begin
    Dec(ptime.Date);
    ptime.Time := MSecsPerDay + ptime.Time;
  end;

  edit2.Text := IntToStr(ptime.date * MSecsPerDay + ptime.Time);

  itmp1 := StrToInt(edit2.Text);  //msec

  itmp1 := Trunc(itmp1/1000);


  tmp1 := itmp1 div 86400; //day

  tmp2 := itmp1 mod 86400;

  tmp3 := tmp2 div 3600;  //HH

  tmp4 := tmp2 mod 3600;

  tmp5 := tmp4 div 60;  //NN

  tmp6 := tmp4 mod 60;   //ss

  edit3.Text := IntToStr(tmp1)+'일'+IntToStr(tmp3)+'시간'+IntToStr(tmp5)+'분'+ IntToStr(tmp6)+'초';



end;

두 날짜 뺀후 결과 msec 출력.

해당 msec를 날짜 시간 분 초로 구분...

원문1 : http://newworlds.tistory.com/618

원문2 : http://bloodguy.tistory.com/entry/PHP-%EC%8B%9C%EA%B0%84%EC%9D%84-%EC%B4%88%EB%A1%9C-%ED%99%98%EC%82%B0-%EC%B4%88%EB%A5%BC-%EC%8B%9C%EA%B0%84%EC%9C%BC%EB%A1%9C-%ED%99%98%EC%82%B0

꽤 뒤늦게 윈도우7을 사용하게 되었는데,(그것도 HOME 버젼 ㅜㅜ)

뭐이리 복잡한지...쯧.

델파이 설치하는데 프로그램폴더가 뭔가 애매해서 D:\Borland 폴더에 설치했다.

그리고 실행하니 호환안된다는 겁주는 메시지 출력!!

무시하고 실행!!

잘된다...  ^^;

든데, Ctrl+Alt+F11 키가 안먹는다...   노트북 기능키 문제라 생각되어지는데, 해결책을 찾아 봐야지...

또하나. 도움말 표시가 되지 않는다.

그래서 검색했더니

"윈도우7에는 Winhelp32.exe가 없습니다. 요걸 깔아줘야 합니다.

원문 : 

윈도우7에서 델파이7을 설치하고 도움말 동작이 안될경우 해결방법

준비물 

 - 남는 스맛폰 (넥서스S)

 - 거치대.

 - 시거잭용 전원케이블

설치 프로그램 

 - 블랙박스 어플 (카루)

내용.

스맛폰 교체후 남는 공기계인 넥s를 어찌쓸까 고민하던중.

네비게이션과 블랙박스 어플을 설치해서 내비&블박 겸용으로 사용 시도 했으나..

  - 네비는 GPS 만 잡히면 되는  하이드라이브(루센맵 이용) 네비를 이용.

  - 블박 어플은 본 시험에 사용한 카루

완충하고 약 한시간이 못되어 밧데리 조루 증상으로 기기 다운.. 물론 시거잭 충전을 하고 있던 상태였음.

그래서 내비는 포기하고 블박만 테스트 진행.

위 영상과 같이 어디서 주은 거치대 기둥에 박스와 테이프 신공으로 케이스를 만들어 넥s를 설치.

블박 실행후 주행.

회사차량인 마티즈 중간부분에 설치하니 화면이 딱 좋음.

좀 아래나 위에 설치하면 화면조절 꽤 잘해야할 필요 있음.

카루를 잘 활용할 줄 몰라서 그러는지, 간혹 약간에 충격에도 녹화가 되는바...

근데, 개인적으로는 무조건 녹화가 되었으면 좋겠음.

충격을 감지해서 녹화가 되게 한다는거...그거 셋팅 잘못하면 사고나도 녹화 안될수도 있지 않을까?

김기사 네비에 포함된 블박같이 2분이면 2분짜리 영상이 계속 녹화되고 저장되다가

용량이 어느정도 차면 맨 처음 영상을 지우는(쉬프트) 방식의 어플이 있다면 좋겠다.

(함 찾아봐야지..분명히 있을꺼 같다.)

아무튼.. 위 영상과 같이 거치대 등을 막쓰기 위해 만들어 놓으면 

나같이 다양한 차량을 이용해서 운전하는 사람이라면

요래 쓰는것도 좋을듯 싶다.

블박 땟다가 다시 붙이기도 힘들고... ㅋㅋㅋ

아~~~그냥 공짜로 블박이 떨어졌으면 좋겠다 ㅜㅜㅜ

오옷~

스맛폰 때문에 mp3 안팔려서 힘들다더만, 스맛폰을 내놨는데...와우~ 가격이   짱이다!!!!!

통신사 안끼고 이정도 가격이면 경쟁력이 있을것 같네...

이참에 가족 다 바꿀까? ^^;

윈 xp 기준..

C:\Documents and Settings\사용자 아이디\Local Settings\Application Data\ucloud\large_file\sc

C:\Documents and Settings\ 사용자 아이디 \Local Settings\Application Data\ucloud\small_file\sc

안에 캐쉬파일... 다 지워도 무방함.

업로드시 자꾸 씨 드라이브의 용량이 증가하길래 밨더니

캐쉬파일이 계속 쌓이네..

검색해보니, 일정기간 지나면 자동 삭제 된다는데

새빨간 거짖말 같은데......

참고 사이트.

http://gsnu.tistory.com/69

..

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                       SE_SHUTDOWN_NAME,
                                       TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

// Example to shutdown Windows:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

// Example to reboot Windows:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyExitWindows(EWX_REBOOT or EWX_FORCE);
end;


// Parameters for MyExitWindows()

출처 : 한국 델파이 개발자 동호회

http://www.delphi.co.kr/?document_srl=157263&act=trackback&key=d5f