inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs,inifiles, stdctrls,shellapi, mask, dbctrlseh;
//***********************
procedure tform1.openfolder(folder,ctype: string);
varsr:tsearchrec;
begin
if folder[length(folder)]<>'/' then
folder:=folder+'/';
// if findfirst(folder+'*品管*.*',faanyfile,sr)=0 then
if findfirst(folder+ctype,faanyfile,sr)=0 then
begin
repeat
if sr.attr and fadirectory=fadirectory then
begin
if (sr.name<>'.') and (sr.name<>'..') then
openfolder(folder+sr.name,ctype);
endelse
begin
shellexecute(handle, nil, pchar(sr.name), nil, pchar(folder),sw_show);// fileopen(folder+sr.name);
end;
until findnext(sr)<>0;
findclose(sr);
// shellexecute(handle, nil, pchar(sr.name), nil, pchar(folder),sw_show);// fileopen(folder+sr.name);
end;
end;
procedure tform1.button1click(sender: tobject);
varuinifile:tinifile;
inifilename,path:string;
begin
// 從 ini檔案中取晨會資料夾路徑。
if fileexists(inifilename) then
begin
uinifile:=tinifile.create(inifilename);
path :=uinifile.readstring('paths','path','');
end;
path := path +'/' + formatdatetime('mmdd',dbdatetimeediteh1.value) ;
// showmessage(path);
openfolder(path,'*品管*.*'); //自定義開啟檔案過程
end;
procedure tform1.formcreate(sender: tobject);
varuinifile:tinifile;
inifilename,path:string;
begin
// 從 ini檔案中取晨會資料夾路徑。
if fileexists(inifilename) then
begin
uinifile:=tinifile.create(inifilename);
path :=uinifile.readstring('paths','path','');
end;
path := path +'/' + formatdatetime('mmdd',date()) ;
edit1.text:=path;
form1.caption:='電子科技(東莞)****--'
+formatdatetime('yyyy"年"mm"月"dd"日"',date()) + '晨會'; //在form（視窗）標題顯示公司名稱與當前日期
dbdatetimeediteh1.value := formatdatetime( 'yyyy/mm/dd ',now);
end;
su認證失敗 資料夾裡開啟終端的方法 atom安裝
很久沒用筆記本上的ubuntu，用不順手，比在公司調教了半年多的電腦差遠了。一步一步來。先解決最不順手的三件事 1.su認證失敗。新安裝的ubuntu系統是無法切換到root賬戶的，得做一番修改 sudo passwd 密碼 輸入新的unix密碼 確認密碼 這樣就可以了 2.資料夾裡開啟終端 sud...
C 開啟指定資料夾，並選中檔案
今天寫 的時候需要乙個開啟指定資料夾並選中檔案的功能，於是乎就度娘了一下，找到了 2中方法，遂記之以留後用 這裡也順便給大家分享一下.這個方法很簡單，實際上是在 c 中呼叫了 windows 的shell 命令 explorer 例如下面我在控制台下通過這個命令開啟c盤的 windows 資料夾並且...
C 開啟指定資料夾，並選中檔案
今天寫 的時候需要乙個開啟指定資料夾並選中檔案的功能，於是乎就度娘了一下，找到了 2中方法，遂記之以留後用 這裡也順便給大家分享一下.這個方法很簡單，實際上是在 c 中呼叫了 windows 的命令 explorer 例如下面我在控制台下通過這個命令開啟c盤的 windows 資料夾並且選中 reg...