function windowslogin( host, user, passwd: pchar ): dword;
varrc: dword;
netres: tnetresource;
begin
fillchar(netres, sizeof(tnetresource), 0);
netres.dwtype := resourcetype_any;
netres.lpremotename := host;
rc := wnetaddconnection2(netres, passwd ,user, 0);
if rc<>no_error then rc := getlasterror;
result := rc;
end;
.......
vari : integer;
lpusername : array[0..255] of char;
vsize : cardinal;
begin
vsize := 256;
if wnetgetuser(pchar('//'+mainform.myinifile.dvsserverip+'/ipc$'),lpusername,vsize) <> 0 then
begin
if windowslogin(pchar('//'+mainform.myinifile.dvsserverip),'guest','')<>0 then
begin
showmessage('伺服器guest使用者不可用');
postmessage(handle,wm_close,0,0);
end;
end;
Oracle中使用到的函式
1.字串相關 1 查詢字串 insrt函式 對指定字串進行判斷，判斷其是否含有指定的字元 instr 源字串 目標字串 開始位置 第幾次出現 用於模糊查詢以及判斷包含關係 select code,name,dept,occupation from staff where instr code,001...
JUnit中使用到的設計模式
1.junit在testcase中應用了模板方法模式 public void runbare throws throwablefinally 2.junit在testcase類中應用了介面卡 adapter 模式 public void runbare throws throwable catch ...
Delphi中使用 取函式地址的問題
例如以下 unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs type tform1 class tform procedure one function...
Android ADB 日常開發中使用到的命令
檢視總體記憶體分配 adb shell dumpsys meminfo adb shell dumpsys meminfo package name or pid檢視當前應用包名資訊 adb shell dumpsys activity top恢復出廠設定 adb reboot bootloader...
程序通訊中使用到的函式講解
函式可用於建立一個管道，以實現程序間的通訊。pipe函式的定義如下 includeint pipe int fd 2 pipe函式定義中的fd引數是一個大小為2的一個陣列型別的指標。該函式成功時返回0，並將一對開啟的檔案描述符值填入fd引數指向的陣列。失敗時返回 1並設定errno。通過pipe函式...