새로운 Windows 프로그래밍 언어인 Delphi는
많은 우수한 기능이 하나로 통합되어 프로그래머와 프로그래머 사이에서 점점 더 인기를 얻고 있습니다.
오디오 애호가들이 선호하는 제품입니다. 다음 10가지 기술은 광범위한 영역을 포괄할 수 있기를 바랍니다.
델파이 매니아들에게는 충분히 유익할 것입니다.
1． vb와 유사합니다. doevents가 작동합니다.
Delphi에는 vb와 동등한 기능이 없다는 것을 알 수 있습니다. 도브에
ents 기능이 작동하기 때문에 때때로 Windows가 많이 응답하도록 할 수 없습니다.
동시 이벤트. 실제로 Delphi 애플리케이션 객체에서는
비슷한 메소드인 PRocessMessage가 포함되어 있습니다.
응용 프로그램을 사용하십시오. VB처럼 완료하려면 ProcessMessage를 사용하세요. 뛰어들다
동일한 기능을 수행합니다.
2． Delphi에서 NetscapeNavigator를 호출합니다.
인터넷의 인기로 인해 델파이 프로그램에서 인터넷을 사용하는 것에 대해 생각해 본 적이 있습니까?
Netscape 브라우저를 시작하고 지정한 WWW 주소의 홈 페이지를 표시하십시오.
. 다음 프로그램은 이 기능을 수행할 수 있습니다.
프로그램넷스케이프;
DDEMan을 사용합니다.
ProcedureGo??toURL(sURL: 문자열);
var
dde:TDDEClientConv;
시작하다
dde: ΚTDDEClientConv. 생성(nil);
철회하다
시작하다
//넷스케이프의 위치를 지정합니다. exe
ServiceApplication: Κ′c: ιns32ιprogramιne
풍경． exe';
//NetscapeNavigator를 활성화합니다.
SetLink('넷스케이프', 'WWW-활성화');
요청데이터('0xFFFFFFFF');
//지정된 URL로 이동
SetLink('넷스케이프', 'WWW-OpenURL');
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,
');
닫기링크;
끝;
ㅋㅋㅋ 무료;
끝;
시작하다
GotoURL('http://www.yahoo.com/');
끝.
3. 형식화된 정수 출력.
Delphi에서는 더 큰 숫자를 출력할 때 읽기 어려워 보입니다.
섹션 표시로 숫자를 표시하는 것은 다음과 같이 매우 간단한 문제입니다.
트리플 엑스. 캡션: ΚFormatFloat('#', 524667500).
4. 컴파일 타임에 힌트를 얻으세요.
Delphi2.0에서는 컴파일할 때 컴파일러에게 다음 사항을 알려달라고 요청할 수 있습니다.
선언되었지만 사용되지 않은 변수와 같은 팁. 우리는 알고 있다
예, 메뉴 옵션을 통해 Delphi에서 이 작업을 수행할지 여부를 제어할 수 있습니다.
그러나 특별한 요구 사항으로 인해 지정된 코드 세그먼트에만 필요합니다.
lphi와 같은 메시지가 나타나면 어떻게 해야 합니까? 다음 절차를 참조하십시오.
{$힌튼}
절차Tform1． Button1Click(보내는 사람: TObject
);
var
X: 정수;
시작하다
끝;
{$힌트오프}
5. Windows95 배경화면을 변경하세요.
델파이에서 배경화면을 쉽게 변경할 수 있습니다. 다음을 참고하세요.
프로그램.
절차ChangeIt;
var
등록:TregIni파일;
시작하다
등록:ΚTRegIni파일. 생성('제어판')
;
등록. WriteString('데스크탑', '벽지',
′c: ιpwin95ιfor??est. bmp');
등록. WriteString('데스크탑', '타일벽지
','1');
등록. 무료;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, 없음, SPIF-SENDWININICHANGE);
끝;
6． 파일이 마지막으로 사용된 날짜를 가져옵니다.
Win95에는 파일에 접근할 수 있는 새로운 기능이 있습니다.
마지막 데이트. 유명한 CleanSweapforWin95 소프트웨어는 이에 의존합니다.
이 기능은 파일에 자주 접근하는지 판단하는 기준 중 하나로 사용됩니다.
델파이에서는 다음 프로그램을 통해 이 기능을 구현할 수 있습니다.
functionGetFileLastaccessTime(sFileName:stri
ng):TDate??Time;
var
ffd:TWin32FindData;
dft:DWord;
왼쪽:TFileTime;
h: THandle;
시작하다
//파일정보 가져오기
h:ΚWindows. FindFirstFile(PChar(s파일이름
), ffd);
if(INVALID―HANDLE―VALUEΙΛh) then
시작하다
//우리는 파일 하나만 찾고 있습니다. socloSEOur″f
산업″
윈도우. 찾기닫기(h);
//FILETIME을 로컬FILETIME으로 변환합니다.
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,lft);
//FILETIME을DOS시간으로 변환
FileTimeToDosDateTime(lft,LongRec(dft).안녕하세요.
,LongRec(dft). 봐라);
//마지막으로 DOStime을 TDateTime으로 변환하여 사용합니다.
Delphi의 기본 날짜/시간 함수
결과: ΚFileDateToDateTime(dft);
끝;
끝;
GetFileLastAccessTime()은 Delphi의 TdateTi를 사용합니다.
me 형식은 지정한 파일의 마지막 액세스 날짜를 반환합니다.
7. 다채로운 라벨.
우리는 델파이가 제공하는 단순한 태그에 더 이상 만족하지 않습니다.
우리를 풍요롭게 하기 위해 라벨에는 다양한 글꼴과 색상이 있습니다.
수행 능력. 대답은 '그렇다'이며, 제3자가 제공하는 통제권은 필요하지 않습니다.
소프트웨어를 사용하려면 Delphi 자체에서 제공하는 TRichEdit을 영리하게 사용하면 됩니다.
그게 다야. 먼저 TRichEdit 컨트롤의 테두리를 제거합니다: RichEd??it1
． BorderStyle: ΚbsNone은 읽기 전용 속성도 true로 설정합니다.
에드??it1. ReadOnly: ΚTrue 그런 다음 쓰기 등을 사용합니다.
소프트웨어가 RichText 형식의 텍스트를 생성한 후 다음 명령문을 통해 표시할 수 있습니다.
다음과 같이 표시됩니다.
리치편집1. 일반 텍스트:ΚFalse;
리치편집1. 윤곽. LoadFromFile(′c: ιtest.r
tf');
8. Win95에서 심각한 오류가 표시되는 것을 방지하는 방법.
프로그램을 몇 번이나 디버깅하더라도 프로그램이 사용자에게 전달된 후에는 항상 오류가 발생합니다.
예기치 않은 오류가 발생할 수 있습니다. Win95가 흰색으로 표시되는 것을 방지하는 방법
당혹스럽고 예상치 못한 오류가 발생했음을 사용자에게 알리는 창은 어떻습니까? 우리는 할 수 있다
다음을 수행하십시오.
var
wOldError??모드: 단어;
시작하다
//tellwin??중요한 오류를 무시하고 저장합니다.
현재??임대오류 모드
wOldError??모드: ΚSetEr??rorMode(SEM-FAILCR
ITI??CALERRORS);
노력하다
//중요한 오류를 생성할 수 있는 코드goesher
이자형. ． ．
마지막으로
//이전 오류 모드로 돌아가기
SetErrorMode(wOldErrorMode);
끝;
끝;
이 기능을 완료하려면 주로 SetErrorMode()를 사용하십시오.
9. 방금 마우스로 클릭한 개체는 무엇입니까?
Win95에서는 마우스 오른쪽 버튼이 큰 역할을 하지만,
역사적인 이유로 인해 델파이에서도 여전히 우클릭 사용이 어렵습니다.
충분히 효과적이지 않습니다. 다음 프로그램은 마우스 오른쪽 버튼을 클릭했을 때를 아는 방법을 알려줄 수 있습니다.
개체 이름. 먼저 팝메뉴를 생성한 후 다음 코드를 사용하면 됩니다.
방금 마우스 오른쪽 버튼을 클릭한 개체의 이름을 알려면 Popup??Menu1입니다. 팝업컴
부품． 클래스명.
10． CD-ROM이나 다른 디스크가 변경되었는지 확인하십시오.
CD-ROM이나 디스크의 변경 여부를 확인하는 가장 간단한 방법
볼륨 번호를 확인하는 것입니다. 다음 함수를 사용하여 간단히 반환할 수 있습니다.
디스크 GetDiskVolSerialID('E')의 볼륨 시리즈 번호를 반환합니다.
함수 코드는 다음과 같습니다.
functionGetDiskVolSerialID(cDriveName: char)
:D워드;
var
dwTemp1, dwTemp2: DWord;
시작하다
GetVolumeInformation(PChar(cDriveName+′:
ι'),
무,
0,
Ν 결과,
dwTemp2,
dwTemp2,
무,
0);
끝;