◇ [델파이] 네트워크 이웃 사본 파일
Shellapi를 사용합니다.
CopyFile (pchar ( 'newfile.txt'), pchar ( '// computername/direction/targer.txt'), false);
◇ [Delphi]는 마우스 드래그 효과를 생성합니다
MouseMove 이벤트, Dragover Event 및 Enddrag 이벤트를 통해 구현되어 패널의 레이블과 같은 Enddrag 이벤트가 있습니다.
var xpanel, ypanel, xlabel, ylabel : 정수;
패널의 MouseMove 이벤트 : xpanel : = x; ypanel : = y;
패널의 드래그 오버 이벤트 : xpanel : = x; ypanel : = y;
레이블의 MouseMove 이벤트 : Xlabel : = x; ylabel : = y;
레이블의 엔드 드래그 이벤트 : label.left : = xpanel-xlabel; label.top : = ypanel-ylabel;
◇ [delphi] Windows 디렉토리를 얻습니다
Shellapi를 사용합니다.
var windir : char의 배열 [0..255];
getwindir 디렉토리 (Windir, sizeof (windir));
또는 레지스트리에서 읽으십시오. 위치 :
hkey_local_machine/소프트웨어/Microsoft/Windows/CurrentVersion
SystemRoot 키, get : c :/windows
◇ [Delphi] 형태 또는 기타 용기에 선을 그립니다
var x, y : 정수의 배열 [0..50];
Canvas.pen.color : = clred;
canvas.pen.style:=PSDASH;
form1.canvas.moveto (trunc (x [i]), trunc (y [i]));
form1.canvas.lineto (trunc (x [j]), trunc (y [j]));
◇ [델파이] 문자열 목록 사용
var 팁 : tstringlist;
팁 : = tstringlist.create;
tips.loadfromfile ( 'filename.txt');
edit1.text : = 팁 [0];
tips.add ( '마지막 줄 추가 문자열');
TIPS.INSERT (1, '2 행에 문자열 삽입');
팁 .savetofile ( 'newfile.txt');
팁.
◇ [델파이] 간단한 클립 보드 작동
Richedit1.selectall;
Richedit1.copytoclipboard;
Richedit1.cuttoclipboard;
edit1.pastefromclipboard;
◇ [Delphi] 파일 및 디렉토리 작업에 대해
chdir ( 'c :/abcdir');
mkdir ( 'dirname'); 디렉토리 생성
rmdir ( 'dirname');
getCurrentDir; // 현재 디렉토리 이름 가져 오기, 아니오 '/'
getDir (0, s); // 작업 디렉토리 이름을 가져옵니다. s : = 'c :/abcdir';
deletfile ( 'abc.txt'); // 파일을 삭제합니다
RenameFile ( 'Old.txt', 'new.txt'); // 파일 이름 변경
ExtractFileName (filElistbox1.filename); // 파일 이름을 가져옵니다
ExtractFileExt (FilElistbox1.Filename); // 파일 접미사를 가져옵니다
◇ [delphi] 프로세스 파일 속성
attr : = fileGetAttr (filElistbox1.filename);
if (and and fareadonly) = fareadonly then ... // readonly 만
if (attr and fasysfile) = fasysfile then ... // system
if (attr and faarchive) = faarchive then ... // 아카이브
if (attr and fahidden) = Fahidden then ... // 숨기기
◇ [delphi] 외부 프로그램 파일을 실행합니다
Winexec // 실행 파일 호출
Winexec ( 'command.com /c copy *. * c : /', sw_normal);
Winexec ( 'start abc.txt');
shellexecute 또는 shellexecuteex // 파일 협회 프로그램을 시작합니다
함수 executeFile (const filename, params, defaultDir : String; showcmd : Integer) : Thandle;
executeFile ( 'c :/abc/a.txt', 'x.abc', 'c :/abc/', 0);
executeFile ( 'http : //tingweb.yeah.net',','''',0);
executeFile ( 'mailto : [email protected]', '', '', 0);
◇ [Delphi] 실행중인 시스템의 프로세스 이름을 얻습니다
var hcurrentwindow : hwnd; sztext : char의 배열 [0..254];
시작하다
hcurrentwindow : = getwindow (핸들, gw_hwndfrist);
hcurrentwindow <> 0
시작하다
getWindowText (hcurrnetwindow,@sztext, 255)> 0 인 경우 listbox1.items.add (strpas (@sztext));
hcurrentwindow : = getwindow (hcurrentwindow, gw_hwndnext);
끝;
끝;
◇ [Delphi] 어셈블리에 포함됩니다
ASM 끝;
EAX, ECX, EDX는 ESI, EDI, ESP, EBP 및 EBC를 수정할 수 있습니다.
◇ 유형 변환 함수에 대한 [델파이]
floattostr // floatpoint to String
floattostrf // floatpoint to string with format
inttohex // 정수로 16 진수
timetostr
dateToStr
dateTimetOStr
fmtstr // 지정된 형식의 출력 문자열입니다
FormatDateTime ( 'yyyy-mm-dd, hh-mm-ss', 날짜);
◇ [델파이] 문자열의 프로세스 및 기능
삽입 (obj, target, pos); // 문자열 대상은 POS 위치에 삽입됩니다. 삽입 결과가 대상의 최대 길이보다 크면 추가 문자가 차단됩니다. POS가 255 외부에 있으면 오류가 발생합니다. 예를 들어, st : = 'brian', 삽입 ( 'ok', st, 2)은 st가 'brokian'이됩니다.
삭제 (st, pos, num); // ST 문자열의 POS 위치에서 여러 NUM (적분) 문자로 하위 문자를 떨어 뜨립니다. 예를 들어, st : = 'brian', 삭제 (st, 3,2)가 BRN이됩니다.
str (value, st); // 숫자 값 (적분 또는 실제)을 문자열로 변환하여 st에 넣습니다. 예를 들어, a = 2.5e4 인 경우 str (a : 10, st)은 st의 값을 '25000'으로 만듭니다.
val (st, var, code); // 문자열 표현식 st를 해당 정수 또는 실제 값으로 변환하여 var에 저장하십시오. ST는 숫자 값을 나타내는 문자열이어야하며 숫자 상수의 규칙을 준수해야합니다. 변환 프로세스 중에 오류가 감지되지 않으면 변수 코드가 0으로 설정되고 그렇지 않으면 첫 번째 오류 문자의 위치로 설정됩니다. 예를 들어, st : = 25.4e3, x는 실제 변수이며 val (st, x, code)은 x 값 25400과 코드 값 0을 만듭니다.
COPY (st.pos.num); // POS (Integral)의 ST String에서 시작하는 부분 문자열을 반환하고 NUM (Integral) 문자를 포함합니다. POS가 ST 문자열의 길이보다 크면 POS가 255 외부에 있으면 오류가 발생합니다. 예를 들어, st : = 'brian', 복사 (st, 2,2)는 'ri'를 반환합니다.
concat (st1, st2, st3 ..., stn); // 인수로 표시되는 모든 문자열을 주어진 순서로 연결하고 연결된 값을 반환합니다. 결과가 길이 255 인 경우 실행 중 오류가 생성됩니다. 예를 들어, st1 : = 'brian', st2 : = '', st3 : = 'wilfred', concat (st1, st2, st3)는 'Brian Wilfred'를 반환합니다.
길이 (st); // 문자열 표현식 st의 길이를 반환합니다. 예를 들어, st : = 'brian', 길이 (st) 반환 값은 5입니다.
pos (obj, target); // 대상 문자열 대상에 문자열 OBJ가 먼저 나타나는 위치를 리턴합니다. 예를 들어, Target : = 'Brian Wilfred', POS ( 'wil', target)의 반환 값은 7이고 POS ( 'Hurbet', Target)의 반환 값은 0입니다.
◇ 레지스트리 처리에 대한 [델파이]
레지스트리를 사용합니다.
var reg : tregistry;
Reg : = tregistry.create;
reg.rootkey : = 'hkey_current_user';
reg.openkey ( '제어판/데스크탑', false);
Reg.Writestring ( '제목 벽지', '0');
Reg.Writestring ( 'Wallpaper', FilElistbox1.filename);
Reg.Closereg;
Reg.free;
◇ 키보드 상수 이름에 대한 [델파이]
vk_back/vk_tab/vk_return/vk_shift/vk_control/vk_menu/vk_pause/vk_escape
/vk_space/vk_left/vk_right/vk_up/vk_down
F1--F12 : $ 70 (112)-$ 7B (123)
AZ : $ 41 (65)-$ 5A (90)
0-9 : $ 30 (48)-$ 39 (57)
◇ [델파이] 예비 판단 프로그램 모국어
DELPHI 소프트웨어에 대한 DOS 팁 :이 프로그램은 Win32에 따라 실행되어야합니다.
VC ++ 소프트웨어에 대한 DOS 팁 :이 프로그램은 DOS 모드에서 실행할 수 없습니다.
◇ [델파이] 작동 쿠키
응답 .cookies ( "name") .Domain : = 'http : //www.086net.com';
응답으로 .cookies.add do
시작하다
이름 : = '사용자 이름';
값 : = '사용자 이름';
끝
◇ [delphi] 문서 메뉴 연결에 추가하십시오
Shellapi, Shlobj를 사용합니다.
shaddtorecentDocs (shard_path, pchar (filepath)); // 연결 추가
ShaddToreCentDocs (Shard_Path, NIL); // Clear
◇ [결혼 범주] 백업 지능형 ABC 입력 메소드 사전
Windows/System/User.REM
Windows/System/TMMR.REM
◇ [델파이] 마우스 판사 버튼
getAsynckeystate (vk_lbutton) <> 0이면 ... // 왼쪽 키
getAsynCkeyState (vk_mbutton) <> 0이면 ... // 중간 키
getAsynckeystate (vk_rbutton) <> 0 인 경우 ... // 마우스 오른쪽 버튼을 클릭하십시오
◇ [델파이] 양식의 최대 표시를 설정합니다
Onformcreate 이벤트
self.width : = screen.width;
self.height : = screen.height;
◇ [delphi] 버튼은 메시지를 받아들입니다
OnCreate 이벤트 처리 : 응용 프로그램. 온message : = myOnMessage;
절차 tform1.MyOnMessage (var msg : tmsg; var 핸들 : 부울);
시작하다
msg.message = 256 인 경우 ... // 키
msg.message = 112 인 경우 ... // f1
msg.message = 113 인 경우 ... // f2
끝;
◇ [결혼 범주] 공유 폴더를 숨 깁니다
공유 효과 : 액세스 가능하지만 가시적이지 않음 (자원 관리, 네트워크 이웃)
공유 이름 : Direction $
방문 : // 컴퓨터/방향/
◇ [Java Script] Java 스크립트 웹 페이지의 일반적인 효과
웹 페이지는 60 초 동안 정기적으로 닫힙니다
<script language = "java script"> <!-
settimeout ( 'window.close ();', 60000)
-> </script>
창을 닫으십시오
<a href = "/"onclick = "javaScript : window.close (); return false;"> Close </a>
시간이 정한 URL
<meta http-equiv = "Refresh"content = "40; url = http : //www.086net.com">
홈페이지로 설정합니다
<a onclick = "this.style.behavior = 'url (#default#homepage)'; this.sethomepage ( 'http://086net.com');"href = "#"> 홈페이지로 설정 </a>
이 사이트를 북마크하십시오
<a href = "javaScript : wind
채널에 가입하십시오
<a href = "javaScript : wind
◇ [Delphi]는 텍스트 색상을 무작위로 생성합니다
무작위 화; // 씨앗을 무작위 화하십시오
memo1.font.color : = rgb (random (255), random (255), random (255));
◇ [Delphi] Delphi5 업데이트 업그레이드 패치 일련 번호
1000003185
90x25fx0
◇ [델파이] 파일 이름의 불법 문자 필터링
i : = 1에서 길이까지
[ '/', '/', ':', '*', ','? ','< ','> ','| ']에서 s [i]가 있다면
[델파이] 변환 함수의 정의 및 설명
dateMeTofiledate (dateTime : tdateTime) : longint;
DateMeToStr (dateTime : tdateTime) : string; 반환 문자열이 반환됩니다. 디스플레이의 시간 부분은 00:00:00 AM입니다
DateTimetOString (var result string;
const 형식 : 문자열;
DateTime : tdateTime); 주어진 형식 문자열에 따라 시간과 날짜 값을 변환하면 결과 문자열, 형식은 변환 형식 문자열이며 DateTime은 DateTime 값입니다.
DateToStr (날짜 : tdateTime) ShortDateFormat Global Variable에 의해 정의 된 형식을 사용하여 날짜 매개 변수를 해당 문자열로 변환합니다.
floattodecimal (var 결과 : tfloatrec; value :
확장; 정밀, 소수점 :
정수); 부동 소수점 번호를 소수점 표현으로 변환합니다
floattostr (value : extended) : String은 부동 소수점 값을 문자열 형식으로 변환합니다.
floattotext (버퍼 : pchar; 값 : 확장;
형식 : tfloatformat; 정밀도,
숫자 : 정수; 정밀도 및 소수점을 사용하여 변환 결과는 버퍼 매개 변수에 저장됩니다. 버퍼에서 버퍼는 0 결과 문자열 버퍼가 아닙니다.
floattotextfmt (버퍼 : pchar; 값 : 확장;
형식 : pchar) : 정수는 부동 소수점 값을 주어진 형식으로 소수점 표현으로 변환하며, 변환 결과는 버퍼 매개 변수에 저장됩니다.
inttoHex (value : longint; digits : Integer) :
문자열; 주어진 숫자 값을 16 진수로 변환합니다. 매개 변수 자릿수는 변환 결과 문자열에 포함 된 숫자 수를 제공합니다.
inttostr (value : longint) : 문자열 정수를 소수점으로 변환합니다
strtodate (const s : string) : tdateTime은 문자열을 날짜 값으로 변환해야합니다.
strtodateTime (const s : string) : tdateTime은 문자열을 날짜 시간 형식으로 변환합니다. 시스템 시간 시간 상수 설정 관련. AM 또는 PM 정보가 지정되지 않으면 24 시간 시스템이 사용됨을 의미합니다.
strtofloat (const s : string) : 주어진 문자열을 플로팅 포인트 번호로 변환하고 문자열은 다음과 같습니다.
[+|-] nnn… [.] nnn…
strtoint (const s : string) : Longint는 문자열을 정수로 변환합니다.
strtointDef (const s : string; 기본값 :
longint) : longint; strtointdef 함수는 숫자로 변환 할 수 없습니다.
strtotime (const s : string) : tdateTime은 문자열 s를 tdateTime 값으로 변환하고 s는 hh : mm : ss [am | pm] 형식을 가지고 있으며 실제 형식은 시스템 시간과 관련된 글로벌 변수와 관련이 있습니다.
timetoStr (시간 : tdateTime) : String은 매개 변수 시간을 문자열로 변환합니다. 변환 결과 문자열의 형식은 시스템의 시간 의존적 상수 설정과 관련이 있습니다.
◇ [Delphi] 프로그램은 Alt+Ctrl+del에 나타나지 않습니다
구현 후 선언 추가 :
함수 registerserviceprocess (dwprocessid, dwtype : 정수);
RegisterServiceProcess (getCurrentProcessId, 1); // 숨기기
RegisterServiceProcess (getCurrentProcessId, 0); // show
Alt+Del+Ctrl로 볼 수 없습니다
◇ [델파이] 프로그램은 작업 표시 줄에 나타나지 않습니다
Windows를 사용합니다
var
ExtendedStyle : 정수;
시작하다
application.initialize;
// ================================================ ===================
ExtendedStyle : = GetWindowLong (application.handle, gwl_exstyle);
setwindowlong (application.handle, gwl_exstyle, extendedstyle 또는 ws_ex_toolwindow
그리고 ws_ex_appwindow가 아닙니다);
// ================================================ =====================
application.createform (tform1, form1);
application.run;
끝.
짐
getSystemMetrics (SM_NETWORK)와 $ 01 = $ 01이면
showmessage ( '온라인!')
else showmessage ( '온라인이 아닙니다!');
◇ [delphi] 도메인 이름 변환에 IP를 구현합니다
함수 getDomainName (ip : String) : String;
var
PH : Phostent;
데이터 : twsadata;
II : dword;
시작하다
WSASTARTUP ($ 101, 데이터);
ii : = inet_addr (pchar (ip));
pH : = gethostbyaddr (@ii, sizeof (ii), pf_inet);
if (ph <> nil) 그러면
결과 : = ph.h_name
또 다른
결과 : = '';
wsacleanup;
끝;
◇ [Delphi] "마우스 오른쪽 버튼 클릭 메뉴"처리 방법
var
Reg : Tregistry;
시작하다
Reg : = tregistry.create;
reg.rootkey : = hkey_classes_root;
reg.openkey ( '*/shell/check/command', true);
Reg.Writestring ( '', ' "' + application.exename + '" "%1"');
reg.closekey;
reg.openkey ( '*/shell/diary', false);
reg.writestring ( '', 'action (& c)');
reg.closekey;
Reg.free;
showmessage ( 'done!');
끝;
◇ [Delphi] 가상 키 값을 보내십시오 Ctrl v
절차 보내기 보내기;
시작하다
keybd_event (vk_control, mapvirtualkey (vk_control, 0), 0, 0);
keybd_event (ord ( 'v'), mapvirtualkey (ord ( 'v'), 0), 0, 0);
keybd_event (ord ( 'v'), mapvirtualkey (ord ( 'v'), 0), keyeventf_keyup, 0);
keybd_event (vk_control, mapvirtualkey (vk_control, 0), keyeventf_keyup, 0);
끝;
[델파이] 현재 광학 드라이브 드라이브 문자
절차 getcdrom (var cd : char);
var
str : 문자열;
드라이버 : 정수;
드라이버 : 숯;
I, 임시 : 정수;
시작하다
드라이버 : = GetLogicalDrives;
온도 : = (1 및 드라이버);
i : = 0 ~ 26의 경우
시작하다
임시 = 1이면
시작하다
드라이버 : = char (i+정수 ( 'a'));
str : = 드라이버+':';;
GetDriveType (pchar (str)) = drive_cdrom이면
시작하다
CD : = 드라이버;
출구;
끝;
끝;
드라이버 : = (드라이버 SHR 1);
온도 : = (1 및 드라이버);
끝;
끝;
◇ [델파이] 캐릭터 암호화 및 암호 해독
function cryptstr (const s : string; type : dword) : String;
var
I : 정수;
fkey : 정수;
시작하다
결과 : = '';
사례 유형
0 : setpass;
시작하다
무작위 화;
fkey : = random ($ ff);
i : = 1에서 길이까지
결과 : = 결과+chr (ord (s [i]) xor i xor fkey);
결과 : = 결과 + char (fkey);
끝;
1 : getpass
시작하다
fkey : = ord (s [길이 (s)];
i : = 1에서 길이까지 -1
결과 : = 결과+chr (ord (s [i]) xor i xor fkey);
끝;
끝;
□ ◇ [Delphi] 다른 응용 프로그램에 시뮬레이션 키를 보냅니다
var
H : thandle;
시작하다
H : = FindWindow (NIL, '응용 프로그램 제목');
postMessage (h, wm_keydown, vk_f9, 0); // f9 키를 보내십시오
끝;
□ ◇ [Delphi] Delphi는 DAO 데이터 형식을 지원했습니다