mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
Fix: Bug [ 1658667 ] выбрать диск которого нет
Add: mounted devices
This commit is contained in:
Alexander Koblov
parent
0716d5879f
commit
8700a1a45c
4 changed files with 758 additions and 665 deletions
54
fmain.pas
54
fmain.pas
|
|
@ -337,7 +337,6 @@ begin
|
|||
{*Tool Bar*}
|
||||
end;
|
||||
|
||||
{Alexx2000}
|
||||
procedure TfrmMain.DeleteClick(Sender: TObject);
|
||||
begin
|
||||
if pmToolBar.Tag >= 0 then
|
||||
|
|
@ -350,7 +349,6 @@ if pmToolBar.Tag >= 0 then
|
|||
end;
|
||||
end;
|
||||
|
||||
{Alexx2000}
|
||||
procedure TfrmMain.dskLeftToolButtonClick(NumberOfButton: Integer);
|
||||
var
|
||||
Command : String;
|
||||
|
|
@ -366,7 +364,18 @@ begin
|
|||
FrameLeft.pnlFile.ActiveDir := GetHomeDir;
|
||||
end
|
||||
else
|
||||
FrameLeft.pnlFile.ActiveDir := dskLeft.Commands[NumberOfButton];
|
||||
begin
|
||||
if IsAvailable(dskLeft.Commands[NumberOfButton]) then
|
||||
begin
|
||||
FrameLeft.pnlFile.ActiveDir := dskLeft.Commands[NumberOfButton];
|
||||
dskLeft.Tag := NumberOfButton;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dskLeft.Buttons[dskLeft.Tag].Down := True;
|
||||
msgOK(lngGetString(clngMsgDiskNotAvail));
|
||||
end;
|
||||
end;
|
||||
FrameLeft.pnlFile.LoadPanel;
|
||||
end;
|
||||
|
||||
|
|
@ -385,10 +394,20 @@ begin
|
|||
FrameRight.pnlFile.ActiveDir := GetHomeDir;
|
||||
end
|
||||
else
|
||||
FrameRight.pnlFile.ActiveDir := dskRight.Commands[NumberOfButton];
|
||||
begin
|
||||
if IsAvailable(dskRight.Commands[NumberOfButton]) then
|
||||
begin
|
||||
FrameRight.pnlFile.ActiveDir := dskRight.Commands[NumberOfButton];
|
||||
dskRight.Tag := NumberOfButton;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dskRight.Buttons[dskRight.Tag].Down := True;
|
||||
msgOK(lngGetString(clngMsgDiskNotAvail));
|
||||
end;
|
||||
end;
|
||||
FrameRight.pnlFile.LoadPanel;
|
||||
end;
|
||||
{Alexx2000}
|
||||
|
||||
|
||||
procedure TfrmMain.MainToolBarMouseDown(Sender: TOBject; Button: TMouseButton;
|
||||
|
|
@ -419,7 +438,6 @@ begin
|
|||
ExecCmdFork(MainToolBar.Commands[NumberOfButton]);
|
||||
writeln(MainToolBar.Commands[NumberOfButton]);
|
||||
end;
|
||||
{Alexx2000}
|
||||
|
||||
|
||||
procedure TfrmMain.actExitExecute(Sender: TObject);
|
||||
|
|
@ -1416,7 +1434,6 @@ begin
|
|||
iDirSize:=FilesSize;
|
||||
ActiveFrame.pnlFile.LastActive:=sName;
|
||||
end;
|
||||
//Alexx2000
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -1447,7 +1464,7 @@ begin
|
|||
with ActiveFrame do
|
||||
begin
|
||||
SelectFileIfNoSelected(GetActiveItem);
|
||||
{$IFNDEF WIN32} // Alexx2000 ñäåëàòü ïîçæå
|
||||
{$IFNDEF WIN32} //TODO cross platform
|
||||
ShowAttrForm(ActiveFrame.pnlFile.FileList, ActiveFrame.ActiveDir);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
|
@ -2067,7 +2084,7 @@ begin
|
|||
with ActiveFrame do
|
||||
begin
|
||||
SelectFileIfNoSelected(GetActiveItem);
|
||||
{$IFNDEF WIN32} // Alexx2000 ñäåëàòü ïîçæå
|
||||
{$IFNDEF WIN32} //TODO cross platform
|
||||
ShowFileProperties(ActiveFrame.pnlFile.FileList, ActiveFrame.ActiveDir);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
|
@ -2121,18 +2138,24 @@ Drive := PDrive(Drives.Items[I]);
|
|||
with Drive^ do
|
||||
begin
|
||||
dskPanel.AddButton(Path, Name, '');
|
||||
{Set choose drive}
|
||||
{Set chosen drive}
|
||||
if dskPanel.Align = alLeft then
|
||||
begin
|
||||
if Pos(Path, FrameLeft.pnlFile.ActiveDir) = 1 then
|
||||
dskPanel.Buttons[I].Down := True;
|
||||
begin
|
||||
dskPanel.Buttons[I].Down := True;
|
||||
dskPanel.Tag := I;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if Pos(Path, FrameRight.pnlFile.ActiveDir) = 1 then
|
||||
dskPanel.Buttons[I].Down := True;
|
||||
begin
|
||||
dskPanel.Buttons[I].Down := True;
|
||||
dskPanel.Tag := I;
|
||||
end;
|
||||
end;
|
||||
{/Set choose drive}
|
||||
{/Set chosen drive}
|
||||
dskPanel.Buttons[I].Caption := Name;
|
||||
dskPanel.Buttons[I].Glyph := PixMapManager.GetBitmap(DriveIcon, dskPanel.Buttons[I].Color);
|
||||
{Set Buttons Transparent. Is need? }
|
||||
|
|
@ -2243,7 +2266,7 @@ begin
|
|||
with ActiveFrame do
|
||||
begin
|
||||
SelectFileIfNoSelected(GetActiveitem);
|
||||
{$IFNDEF WIN32} //TODO Alexx2000 ñäåëàòü ïîçæå
|
||||
{$IFNDEF WIN32} //TODO cross platform
|
||||
ShowChownForm(ActiveFrame.pnlFile.FileList, ActiveFrame.ActiveDir);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
|
@ -2305,7 +2328,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
{Alexx2000}
|
||||
procedure TfrmMain.tbEditClick(Sender: TObject);
|
||||
begin
|
||||
if pmToolBar.Tag >= 0 then
|
||||
|
|
@ -2317,7 +2339,7 @@ begin
|
|||
ShowConfigToolbar;
|
||||
end;
|
||||
end;
|
||||
{/Alexx2000}
|
||||
|
||||
|
||||
function TfrmMain.ExecuteCommandFromEdit(sCmd: String): Boolean;
|
||||
var
|
||||
|
|
|
|||
|
|
@ -1,363 +1,364 @@
|
|||
;format of file:
|
||||
; ID:String
|
||||
; if first char is ; then all line is remark
|
||||
; english language file for Double commander
|
||||
; author: radek.cervinka@centrum.cz
|
||||
; realised under GNU GPL 2
|
||||
; contributors:
|
||||
; * Pavel Letko (1330-1367),(2200-2211),(2220-2232)
|
||||
; The Fox (thefox@pobox.sk http://www.tfden.host.sk) (minor changes/corrections)
|
||||
|
||||
1:Can't delete file %s
|
||||
2:File %s exists, overwrite?
|
||||
3:File %s changed, save?
|
||||
4:New file
|
||||
5:Delete %d selected files/directories?
|
||||
6:Delete selected "%s"?
|
||||
7:Copy %d selected files/directories?
|
||||
8:Copy selected "%s"?
|
||||
9:Rename/move %d selected files/directories?
|
||||
10:Rename/move selected "%s"?
|
||||
11:Can't create directory %s!
|
||||
12:Selected %s of %s in %d of %d files
|
||||
13:&Add %s
|
||||
14:&Configure
|
||||
15:&OK;&No;&Yes;&Cancel;&None;&Append;&Rewrite;Rewrite &All;&Skip;S&kip All;All;
|
||||
16:Files:%d, Dirs:%d, Size: %d bytes
|
||||
17:Select a directory
|
||||
18:Select mask
|
||||
19:Unselect mask
|
||||
20:Input mask:
|
||||
21:Free %s from %s bytes
|
||||
22:Directory %s exists!
|
||||
23:&Delete %s
|
||||
30:&Save position
|
||||
31:Position saved.
|
||||
|
||||
; buttons
|
||||
980:&Start
|
||||
981:&Cancel
|
||||
982:C&lose
|
||||
983:&Stop
|
||||
984:Ski&p
|
||||
985:&All
|
||||
986:&Find
|
||||
|
||||
; fMain.pas
|
||||
; Actions Captions
|
||||
1000:Exit
|
||||
1001:View F3
|
||||
1002:Edit F4
|
||||
1003:Copy F5
|
||||
1004:Rename F6
|
||||
1005:MakeDir F7
|
||||
1006:Delete F8
|
||||
1007:Menu F9
|
||||
1008:Multi &Rename Tool
|
||||
1009:Run &Term
|
||||
|
||||
;Column in TListView
|
||||
1020:Name
|
||||
1021:Ext
|
||||
1022:Size
|
||||
1023:Date
|
||||
1024:Attr
|
||||
|
||||
; Menu
|
||||
;File
|
||||
1040:&Files
|
||||
1041:Create &Link...
|
||||
1042:Create Symbolic L&ink...
|
||||
1043:&Change Attributes...
|
||||
1044:&Properties...
|
||||
1045:Calculate &Occupied Space...
|
||||
1046:&Split File...
|
||||
1047:&Combine Files...
|
||||
1048:&Show System Files
|
||||
1049:Compare b&y Content
|
||||
1050:Change &owner/group
|
||||
|
||||
;Mark
|
||||
1060:&Mark
|
||||
1061:Select &Group...
|
||||
1062:&Unselect Group...
|
||||
1063:&Select All
|
||||
1064:U&nselect All
|
||||
1065:&Invert Selection
|
||||
1066:&Compare Directories
|
||||
|
||||
;Commands
|
||||
1080:&Commands
|
||||
1081:&Search...
|
||||
1082:Directory &Hotlist
|
||||
1083:Source &<-> Target
|
||||
1084:Targed &= Source
|
||||
|
||||
;Show
|
||||
1100:&Show
|
||||
1101:&Name
|
||||
1102:&Extension
|
||||
1103:&Size
|
||||
1104:Date and &Time
|
||||
1105:&Atributes
|
||||
1106:Reverse &Order
|
||||
1107:&Reread
|
||||
|
||||
;Configuration
|
||||
1120:C&onfiguration
|
||||
1121:&Options...
|
||||
|
||||
;Help
|
||||
|
||||
1140:&Help
|
||||
1141:&About
|
||||
|
||||
;dlg Options
|
||||
1160:Options
|
||||
1161:Select language
|
||||
1162:Terminal
|
||||
1163:Select directory with keypad
|
||||
1164:Lynx like movement
|
||||
1165:Case sensitive sorting
|
||||
1166:Short Filesize format
|
||||
1167:Behaviour
|
||||
1168:Tools
|
||||
1169:External editor
|
||||
1170:External viewer
|
||||
1171:External differ
|
||||
1172:Run term
|
||||
1173:Fonts
|
||||
1174:Main font
|
||||
1175:Editor font
|
||||
1176:Viewer font
|
||||
1177:Separate extension
|
||||
|
||||
;MkdirDlg
|
||||
1180:Create new directory
|
||||
1181:Input new directory name
|
||||
|
||||
|
||||
;CopyDlg
|
||||
1200:Copy file(s)
|
||||
;1201:Copy %s:
|
||||
1202:Only type:
|
||||
|
||||
;MoveDlg
|
||||
1220:Move file(s)
|
||||
;1221:Move %s:
|
||||
1222:Only type:
|
||||
1223:Delete file(s)
|
||||
|
||||
;Editor & Viewer
|
||||
1240:&File
|
||||
1241:&Previous
|
||||
1242:&Next
|
||||
1243:E&xit
|
||||
1245:&Syntax Highlight
|
||||
1246:&New
|
||||
1247:&Open
|
||||
1248:&Save
|
||||
1249:Save &As...
|
||||
1250:&Edit
|
||||
1251:&Undo
|
||||
1252:Cu&t
|
||||
1253:&Copy
|
||||
1254:&Paste
|
||||
1255:&Find...
|
||||
1256:&Replace...
|
||||
1257:&Image
|
||||
1258:&Stretch
|
||||
1259:Show as &Text
|
||||
1260:Show as &Bin
|
||||
1261:Show as &Hex
|
||||
1262:Show as &Wrap text
|
||||
1263:View
|
||||
1264:About Viewer...
|
||||
1265:Internal Viewer of Double Commander.
|
||||
1266:Search
|
||||
;viewer find dialog
|
||||
1267:Find
|
||||
1268:Case sensitive
|
||||
1269:&Process file
|
||||
1270:&Graphics
|
||||
1271:&Copy to clipboard
|
||||
1272:Select &All
|
||||
|
||||
; find dialog
|
||||
1280:Find files
|
||||
1281:Standard
|
||||
1282:Advanced
|
||||
1283:FileDir
|
||||
1284:FileMask
|
||||
1285:Find in file
|
||||
1286:Find Data
|
||||
1287:Case sensitive
|
||||
1288:Directory %s doesn't exist!
|
||||
; Nasledujucim som si nie isty...
|
||||
1289:Begin at
|
||||
1290:Show in viewer
|
||||
1291:Scanned: %d
|
||||
|
||||
; multirename dialog
|
||||
1330:Old file name
|
||||
1331:New file name
|
||||
1332:File path
|
||||
1333:Name...
|
||||
1334:[N]ame
|
||||
1335:[Nx]ame
|
||||
1336:[Nx:x]ame
|
||||
1337:Extension...
|
||||
1338:[E]xtension
|
||||
1339:[Ex]xtension
|
||||
1340:[Ex:x]xtension
|
||||
1341:[C]ounter
|
||||
1342:Time...
|
||||
1343:[Y]ear
|
||||
1344:[Mo]nth
|
||||
1345:[D]ay
|
||||
1346:[H]our
|
||||
1347:[Mi]nute
|
||||
1348:[S]econd
|
||||
1349:Save log
|
||||
1350:Mask
|
||||
1351:File name
|
||||
1352:Extension
|
||||
1353:Find && replace
|
||||
1354:Find...
|
||||
1355:Replace...
|
||||
1356:Counter
|
||||
1357:Start number
|
||||
1358:Interval
|
||||
1359:Width
|
||||
1360:File name style
|
||||
1361:no change
|
||||
1362:UPPERCASE
|
||||
1363:lowercase
|
||||
1364:First capital
|
||||
1365:Log result
|
||||
1366:Log
|
||||
1367:Restore all
|
||||
|
||||
;Attr dialog
|
||||
1500:ChMod
|
||||
1501:Owner
|
||||
1502:Group
|
||||
1503:Other
|
||||
1504:Read
|
||||
1505:Write
|
||||
1506:Execute
|
||||
1507:In text:
|
||||
|
||||
;SymLinkDialog
|
||||
1520:Create symlink
|
||||
1521:Existing destination (where will link point)
|
||||
1522:Link name
|
||||
1523:Error creating symlink.
|
||||
|
||||
;HardLinkDialog
|
||||
1530:Create hardlink
|
||||
1531:Existing destination (where will link point)
|
||||
1532:Link name
|
||||
1533:Error creating hardlink.
|
||||
|
||||
;Shift+F4
|
||||
1540:new.txt
|
||||
1541:Open file
|
||||
1542:Filename:
|
||||
|
||||
;search & replace in editor
|
||||
1560:Search
|
||||
1561:Replace
|
||||
1562:Search for:
|
||||
1563:Replace with:
|
||||
1564:&Forward
|
||||
1565:&Backward
|
||||
1566:C&ase sensitivity
|
||||
1567:&Whole words only
|
||||
1568:Search from &cursor
|
||||
1569:&Selected text only
|
||||
|
||||
;chown/chgrp dialog
|
||||
1580:Change Owner/Group
|
||||
1581:Owner
|
||||
1582:Group
|
||||
|
||||
1600:&Configuration
|
||||
1601:Editor configuration
|
||||
1602:Sample
|
||||
1603:&Bold
|
||||
1604:&Italic
|
||||
1605:&Underline
|
||||
1606:&StrikeOut
|
||||
1607:Predefined
|
||||
1608:%s loaded OK.
|
||||
|
||||
;File/Directory properties
|
||||
2000:Properties
|
||||
2001:Yes (%s)
|
||||
2002:No
|
||||
2003:Close
|
||||
2004:Next
|
||||
2005:File
|
||||
2006:Directory
|
||||
2007:Special block device
|
||||
2008:Special character device
|
||||
2009:Named pipe
|
||||
2010:Symbolic link
|
||||
2011:Socket
|
||||
2012:Unknown type
|
||||
|
||||
2013:Read
|
||||
2014:Write
|
||||
2015:Execute
|
||||
2016:UID after execution
|
||||
2017:GID after execution
|
||||
2018:Sticky bit
|
||||
|
||||
2020:Name:
|
||||
2021:Path:
|
||||
2022:Type:
|
||||
2023:Size:
|
||||
2024:Last access:
|
||||
2025:Last modification:
|
||||
2026:Last change of status:
|
||||
2027:Owner:
|
||||
2028:Group:
|
||||
2029:Symlink:
|
||||
2030:Attributes
|
||||
2031:Other:
|
||||
2032:Bits:
|
||||
2033:Alternative reprezentation:
|
||||
|
||||
;Compare by content Dialog
|
||||
2101:Number of changes:
|
||||
|
||||
;Linker
|
||||
2200:File name
|
||||
2201:Exit
|
||||
2202:OK
|
||||
2203:Item
|
||||
2204:Delete
|
||||
2205:Down
|
||||
2206:Bottom
|
||||
2207:Up
|
||||
2208:Top
|
||||
2209:Save to...
|
||||
2210:Save All
|
||||
2211:Linker complete
|
||||
|
||||
;Splitter
|
||||
2220:Exit
|
||||
2221:OK
|
||||
2222:File name
|
||||
2223:Directory target
|
||||
2224:File source
|
||||
2225:File size
|
||||
2226:Watchtower
|
||||
2227:Incorrect file size format!
|
||||
2228:Unable to create target directory!
|
||||
2229:Unable to split the file!
|
||||
2230:Created:
|
||||
2231:size:
|
||||
2232:Select directory:
|
||||
|
||||
;format of file:
|
||||
; ID:String
|
||||
; if first char is ; then all line is remark
|
||||
; english language file for Double commander
|
||||
; author: radek.cervinka@centrum.cz
|
||||
; realised under GNU GPL 2
|
||||
; contributors:
|
||||
; * Pavel Letko (1330-1367),(2200-2211),(2220-2232)
|
||||
; The Fox (thefox@pobox.sk http://www.tfden.host.sk) (minor changes/corrections)
|
||||
|
||||
1:Can't delete file %s
|
||||
2:File %s exists, overwrite?
|
||||
3:File %s changed, save?
|
||||
4:New file
|
||||
5:Delete %d selected files/directories?
|
||||
6:Delete selected "%s"?
|
||||
7:Copy %d selected files/directories?
|
||||
8:Copy selected "%s"?
|
||||
9:Rename/move %d selected files/directories?
|
||||
10:Rename/move selected "%s"?
|
||||
11:Can't create directory %s!
|
||||
12:Selected %s of %s in %d of %d files
|
||||
13:&Add %s
|
||||
14:&Configure
|
||||
15:&OK;&No;&Yes;&Cancel;&None;&Append;&Rewrite;Rewrite &All;&Skip;S&kip All;All;
|
||||
16:Files:%d, Dirs:%d, Size: %d bytes
|
||||
17:Select a directory
|
||||
18:Select mask
|
||||
19:Unselect mask
|
||||
20:Input mask:
|
||||
21:Free %s from %s bytes
|
||||
22:Directory %s exists!
|
||||
23:&Delete %s
|
||||
24:Disk is not available
|
||||
30:&Save position
|
||||
31:Position saved.
|
||||
|
||||
; buttons
|
||||
980:&Start
|
||||
981:&Cancel
|
||||
982:C&lose
|
||||
983:&Stop
|
||||
984:Ski&p
|
||||
985:&All
|
||||
986:&Find
|
||||
|
||||
; fMain.pas
|
||||
; Actions Captions
|
||||
1000:Exit
|
||||
1001:View F3
|
||||
1002:Edit F4
|
||||
1003:Copy F5
|
||||
1004:Rename F6
|
||||
1005:MakeDir F7
|
||||
1006:Delete F8
|
||||
1007:Menu F9
|
||||
1008:Multi &Rename Tool
|
||||
1009:Run &Term
|
||||
|
||||
;Column in TListView
|
||||
1020:Name
|
||||
1021:Ext
|
||||
1022:Size
|
||||
1023:Date
|
||||
1024:Attr
|
||||
|
||||
; Menu
|
||||
;File
|
||||
1040:&Files
|
||||
1041:Create &Link...
|
||||
1042:Create Symbolic L&ink...
|
||||
1043:&Change Attributes...
|
||||
1044:&Properties...
|
||||
1045:Calculate &Occupied Space...
|
||||
1046:&Split File...
|
||||
1047:&Combine Files...
|
||||
1048:&Show System Files
|
||||
1049:Compare b&y Content
|
||||
1050:Change &owner/group
|
||||
|
||||
;Mark
|
||||
1060:&Mark
|
||||
1061:Select &Group...
|
||||
1062:&Unselect Group...
|
||||
1063:&Select All
|
||||
1064:U&nselect All
|
||||
1065:&Invert Selection
|
||||
1066:&Compare Directories
|
||||
|
||||
;Commands
|
||||
1080:&Commands
|
||||
1081:&Search...
|
||||
1082:Directory &Hotlist
|
||||
1083:Source &<-> Target
|
||||
1084:Targed &= Source
|
||||
|
||||
;Show
|
||||
1100:&Show
|
||||
1101:&Name
|
||||
1102:&Extension
|
||||
1103:&Size
|
||||
1104:Date and &Time
|
||||
1105:&Atributes
|
||||
1106:Reverse &Order
|
||||
1107:&Reread
|
||||
|
||||
;Configuration
|
||||
1120:C&onfiguration
|
||||
1121:&Options...
|
||||
|
||||
;Help
|
||||
|
||||
1140:&Help
|
||||
1141:&About
|
||||
|
||||
;dlg Options
|
||||
1160:Options
|
||||
1161:Select language
|
||||
1162:Terminal
|
||||
1163:Select directory with keypad
|
||||
1164:Lynx like movement
|
||||
1165:Case sensitive sorting
|
||||
1166:Short Filesize format
|
||||
1167:Behaviour
|
||||
1168:Tools
|
||||
1169:External editor
|
||||
1170:External viewer
|
||||
1171:External differ
|
||||
1172:Run term
|
||||
1173:Fonts
|
||||
1174:Main font
|
||||
1175:Editor font
|
||||
1176:Viewer font
|
||||
1177:Separate extension
|
||||
|
||||
;MkdirDlg
|
||||
1180:Create new directory
|
||||
1181:Input new directory name
|
||||
|
||||
|
||||
;CopyDlg
|
||||
1200:Copy file(s)
|
||||
;1201:Copy %s:
|
||||
1202:Only type:
|
||||
|
||||
;MoveDlg
|
||||
1220:Move file(s)
|
||||
;1221:Move %s:
|
||||
1222:Only type:
|
||||
1223:Delete file(s)
|
||||
|
||||
;Editor & Viewer
|
||||
1240:&File
|
||||
1241:&Previous
|
||||
1242:&Next
|
||||
1243:E&xit
|
||||
1245:&Syntax Highlight
|
||||
1246:&New
|
||||
1247:&Open
|
||||
1248:&Save
|
||||
1249:Save &As...
|
||||
1250:&Edit
|
||||
1251:&Undo
|
||||
1252:Cu&t
|
||||
1253:&Copy
|
||||
1254:&Paste
|
||||
1255:&Find...
|
||||
1256:&Replace...
|
||||
1257:&Image
|
||||
1258:&Stretch
|
||||
1259:Show as &Text
|
||||
1260:Show as &Bin
|
||||
1261:Show as &Hex
|
||||
1262:Show as &Wrap text
|
||||
1263:View
|
||||
1264:About Viewer...
|
||||
1265:Internal Viewer of Double Commander.
|
||||
1266:Search
|
||||
;viewer find dialog
|
||||
1267:Find
|
||||
1268:Case sensitive
|
||||
1269:&Process file
|
||||
1270:&Graphics
|
||||
1271:&Copy to clipboard
|
||||
1272:Select &All
|
||||
|
||||
; find dialog
|
||||
1280:Find files
|
||||
1281:Standard
|
||||
1282:Advanced
|
||||
1283:FileDir
|
||||
1284:FileMask
|
||||
1285:Find in file
|
||||
1286:Find Data
|
||||
1287:Case sensitive
|
||||
1288:Directory %s doesn't exist!
|
||||
; Nasledujucim som si nie isty...
|
||||
1289:Begin at
|
||||
1290:Show in viewer
|
||||
1291:Scanned: %d
|
||||
|
||||
; multirename dialog
|
||||
1330:Old file name
|
||||
1331:New file name
|
||||
1332:File path
|
||||
1333:Name...
|
||||
1334:[N]ame
|
||||
1335:[Nx]ame
|
||||
1336:[Nx:x]ame
|
||||
1337:Extension...
|
||||
1338:[E]xtension
|
||||
1339:[Ex]xtension
|
||||
1340:[Ex:x]xtension
|
||||
1341:[C]ounter
|
||||
1342:Time...
|
||||
1343:[Y]ear
|
||||
1344:[Mo]nth
|
||||
1345:[D]ay
|
||||
1346:[H]our
|
||||
1347:[Mi]nute
|
||||
1348:[S]econd
|
||||
1349:Save log
|
||||
1350:Mask
|
||||
1351:File name
|
||||
1352:Extension
|
||||
1353:Find && replace
|
||||
1354:Find...
|
||||
1355:Replace...
|
||||
1356:Counter
|
||||
1357:Start number
|
||||
1358:Interval
|
||||
1359:Width
|
||||
1360:File name style
|
||||
1361:no change
|
||||
1362:UPPERCASE
|
||||
1363:lowercase
|
||||
1364:First capital
|
||||
1365:Log result
|
||||
1366:Log
|
||||
1367:Restore all
|
||||
|
||||
;Attr dialog
|
||||
1500:ChMod
|
||||
1501:Owner
|
||||
1502:Group
|
||||
1503:Other
|
||||
1504:Read
|
||||
1505:Write
|
||||
1506:Execute
|
||||
1507:In text:
|
||||
|
||||
;SymLinkDialog
|
||||
1520:Create symlink
|
||||
1521:Existing destination (where will link point)
|
||||
1522:Link name
|
||||
1523:Error creating symlink.
|
||||
|
||||
;HardLinkDialog
|
||||
1530:Create hardlink
|
||||
1531:Existing destination (where will link point)
|
||||
1532:Link name
|
||||
1533:Error creating hardlink.
|
||||
|
||||
;Shift+F4
|
||||
1540:new.txt
|
||||
1541:Open file
|
||||
1542:Filename:
|
||||
|
||||
;search & replace in editor
|
||||
1560:Search
|
||||
1561:Replace
|
||||
1562:Search for:
|
||||
1563:Replace with:
|
||||
1564:&Forward
|
||||
1565:&Backward
|
||||
1566:C&ase sensitivity
|
||||
1567:&Whole words only
|
||||
1568:Search from &cursor
|
||||
1569:&Selected text only
|
||||
|
||||
;chown/chgrp dialog
|
||||
1580:Change Owner/Group
|
||||
1581:Owner
|
||||
1582:Group
|
||||
|
||||
1600:&Configuration
|
||||
1601:Editor configuration
|
||||
1602:Sample
|
||||
1603:&Bold
|
||||
1604:&Italic
|
||||
1605:&Underline
|
||||
1606:&StrikeOut
|
||||
1607:Predefined
|
||||
1608:%s loaded OK.
|
||||
|
||||
;File/Directory properties
|
||||
2000:Properties
|
||||
2001:Yes (%s)
|
||||
2002:No
|
||||
2003:Close
|
||||
2004:Next
|
||||
2005:File
|
||||
2006:Directory
|
||||
2007:Special block device
|
||||
2008:Special character device
|
||||
2009:Named pipe
|
||||
2010:Symbolic link
|
||||
2011:Socket
|
||||
2012:Unknown type
|
||||
|
||||
2013:Read
|
||||
2014:Write
|
||||
2015:Execute
|
||||
2016:UID after execution
|
||||
2017:GID after execution
|
||||
2018:Sticky bit
|
||||
|
||||
2020:Name:
|
||||
2021:Path:
|
||||
2022:Type:
|
||||
2023:Size:
|
||||
2024:Last access:
|
||||
2025:Last modification:
|
||||
2026:Last change of status:
|
||||
2027:Owner:
|
||||
2028:Group:
|
||||
2029:Symlink:
|
||||
2030:Attributes
|
||||
2031:Other:
|
||||
2032:Bits:
|
||||
2033:Alternative reprezentation:
|
||||
|
||||
;Compare by content Dialog
|
||||
2101:Number of changes:
|
||||
|
||||
;Linker
|
||||
2200:File name
|
||||
2201:Exit
|
||||
2202:OK
|
||||
2203:Item
|
||||
2204:Delete
|
||||
2205:Down
|
||||
2206:Bottom
|
||||
2207:Up
|
||||
2208:Top
|
||||
2209:Save to...
|
||||
2210:Save All
|
||||
2211:Linker complete
|
||||
|
||||
;Splitter
|
||||
2220:Exit
|
||||
2221:OK
|
||||
2222:File name
|
||||
2223:Directory target
|
||||
2224:File source
|
||||
2225:File size
|
||||
2226:Watchtower
|
||||
2227:Incorrect file size format!
|
||||
2228:Unable to create target directory!
|
||||
2229:Unable to split the file!
|
||||
2230:Created:
|
||||
2231:size:
|
||||
2232:Select directory:
|
||||
|
||||
|
|
|
|||
641
uOSUtils.pas
641
uOSUtils.pas
|
|
@ -1,286 +1,355 @@
|
|||
unit uOSUtils;
|
||||
{
|
||||
This unit contains platform depended functions.
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Koblov Alexander (Alexx2000@mail.ru)
|
||||
|
||||
contributors:
|
||||
}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes {$IFDEF WIN32}, Windows, ShellApi, MMSystem{$ELSE}, BaseUnix{$ENDIF};
|
||||
|
||||
type
|
||||
TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM,
|
||||
dtRAM);
|
||||
|
||||
TDrive = record
|
||||
Name,
|
||||
Path,
|
||||
DriveLabel :String;
|
||||
DriveType : TDriveType;
|
||||
DriveIcon : Integer;
|
||||
end;
|
||||
PDrive = ^TDrive;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
const
|
||||
WM_DEVICECHANGE = $0219;
|
||||
|
||||
type
|
||||
_DEV_BROADCAST_HDR = record // Device broadcast header
|
||||
dbch_size: DWORD;
|
||||
dbch_devicetype: DWORD;
|
||||
dbch_reserved: DWORD;
|
||||
end;
|
||||
DEV_BROADCAST_HDR = _DEV_BROADCAST_HDR;
|
||||
PDEV_BROADCAST_HDR = ^DEV_BROADCAST_HDR;
|
||||
|
||||
// The following messages are for WM_DEVICECHANGE. The immediate list
|
||||
// is for the wParam. ALL THESE MESSAGES PASS A POINTER TO A STRUCT
|
||||
// STARTING WITH A DWORD SIZE AND HAVING NO POINTER IN THE STRUCT.
|
||||
|
||||
const
|
||||
DBT_DEVICEARRIVAL = $8000; // system detected a new device
|
||||
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
|
||||
|
||||
DBT_DEVTYP_VOLUME = $00000002; // logical volume
|
||||
|
||||
DBTF_MEDIA = $0001; // media comings and goings
|
||||
DBTF_NET = $0002; // network volume
|
||||
|
||||
type
|
||||
_DEV_BROADCAST_VOLUME = record
|
||||
dbcv_size: DWORD;
|
||||
dbcv_devicetype: DWORD;
|
||||
dbcv_reserved: DWORD;
|
||||
dbcv_unitmask: DWORD;
|
||||
dbcv_flags: WORD;
|
||||
end;
|
||||
DEV_BROADCAST_VOLUME = _DEV_BROADCAST_VOLUME;
|
||||
PDEV_BROADCAST_VOLUME = ^DEV_BROADCAST_VOLUME;
|
||||
{$ENDIF}
|
||||
|
||||
function FPS_ISDIR(iAttr:Cardinal) : Boolean;
|
||||
function FPS_ISLNK(iAttr:Cardinal) : Boolean;
|
||||
function CreateHardLink(Path, LinkName: string) : Boolean;
|
||||
function CreateSymLink(Path, LinkName: string) : Boolean;
|
||||
function GetHomeDir : String;
|
||||
function GetLastDir(Path : String) : String;
|
||||
|
||||
function GetAllDrives : TList;
|
||||
|
||||
implementation
|
||||
|
||||
(*Is Directory*)
|
||||
|
||||
function FPS_ISDIR(iAttr:Cardinal) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
Result := Boolean(iAttr and faDirectory);
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := BaseUnix.FPS_ISDIR(iAttr);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function FPS_ISLNK(iAttr:Cardinal) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
Result := False;
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := BaseUnix.FPS_ISLNK(iAttr);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function CreateHardLink(Path, LinkName: string) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
// on NTFS
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := (fplink(PChar(@Path[1]),PChar(@LinkName[1]))=0);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function CreateSymLink(Path, LinkName: string) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
// on NTFS
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := (fpsymlink(PChar(@Path[1]),PChar(@LinkName[1]))=0);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function GetHomeDir : String;
|
||||
{$IFDEF WIN32}
|
||||
var
|
||||
size : Integer;
|
||||
begin
|
||||
size := GetEnvironmentVariable('USERPROFILE', nil, 0);
|
||||
if size > 0 then
|
||||
begin
|
||||
SetLength(Result, size);
|
||||
GetEnvironmentVariable('USERPROFILE', PChar(Result), size);
|
||||
end;
|
||||
Delete(Result, size, 1);
|
||||
Result := Result + DirectorySeparator;
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := GetEnvironmentVariable('HOME')+DirectorySeparator;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
function GetLastDir(Path : String) : String;
|
||||
begin
|
||||
Result := ExtractFileName(ExcludeTrailingPathDelimiter(Path));
|
||||
if Result = '' then
|
||||
Result := ExtractFileDrive(Path);
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF WIN32}
|
||||
(* Drive ready *)
|
||||
|
||||
function DriveReady(const Drv: Char): Boolean;
|
||||
var
|
||||
NotUsed: DWORD;
|
||||
begin
|
||||
Result := GetVolumeInformation(PChar(Drv + ':\'), nil, 0, nil,
|
||||
NotUsed, NotUsed, nil, 0);
|
||||
end;
|
||||
|
||||
(* Disk label *)
|
||||
|
||||
function GetLabelDisk(const Drv: Char; const VolReal: Boolean): string;
|
||||
|
||||
function DisplayName(const Drv: Char): string;
|
||||
var
|
||||
SFI: TSHFileInfo;
|
||||
begin
|
||||
FillChar(SFI, SizeOf(SFI), 0);
|
||||
SHGetFileInfo(PChar(Drv + ':\'), 0, SFI, SizeOf(SFI), SHGFI_DISPLAYNAME);
|
||||
Result := SFI.szDisplayName;
|
||||
|
||||
// Â Win9x, Me - íåò ìåòêè äèñêà -> #32 + (x:)
|
||||
// Â WinNT 5.x - íåò ìåòêè äèñêà -> Íàçâàíèå óñòðîéñòâà + #32 + (x:)
|
||||
if Pos('(', Result) <> 0 then
|
||||
SetLength(Result, Pos('(', Result) - 2);
|
||||
end;
|
||||
|
||||
var
|
||||
WinVer: Byte;
|
||||
DriveType, NotUsed: DWORD;
|
||||
Buf: array [0..MAX_PATH - 1] of Char;
|
||||
begin
|
||||
Result := '';
|
||||
WinVer := LOBYTE(LOWORD(GetVersion));
|
||||
DriveType := GetDriveType(PChar(Drv + ':\'));
|
||||
|
||||
if (WinVer <= 4) and (DriveType <> DRIVE_REMOVABLE) or VolReal then
|
||||
begin // Win9x, Me, NT <= 4.0
|
||||
Buf[0] := #0;
|
||||
GetVolumeInformation(PChar(Drv + ':\'), Buf, DWORD(SizeOf(Buf)), nil,
|
||||
NotUsed, NotUsed, nil, 0);
|
||||
Result := Buf;
|
||||
|
||||
if VolReal and (WinVer >= 5) and (Result <> '') and
|
||||
(DriveType <> DRIVE_REMOVABLE) then // Win2k, XP è âûøå
|
||||
Result := DisplayName(Drv)
|
||||
else if (Result = '') and (not VolReal) then
|
||||
Result := '<none>';
|
||||
end else
|
||||
Result := DisplayName(Drv);
|
||||
end;
|
||||
|
||||
(* Wait for change disk label *)
|
||||
|
||||
procedure WaitLabelChange(const Drv: Char; const Str: string);
|
||||
var
|
||||
st1, st2: string;
|
||||
begin
|
||||
if GetLabelDisk(Drv, True) = '' then
|
||||
Exit;
|
||||
st1 := TrimLeft(Str);
|
||||
st2 := st1;
|
||||
while st1 = st2 do
|
||||
st2 := GetLabelDisk(Drv, FALSE);
|
||||
end;
|
||||
|
||||
(* Close CD/DVD *)
|
||||
|
||||
procedure CloseCD(const Drive: string);
|
||||
var
|
||||
OpenParms: MCI_OPEN_PARMS;
|
||||
begin
|
||||
FillChar(OpenParms, SizeOf(OpenParms), 0);
|
||||
OpenParms.lpstrDeviceType := 'CDAudio';
|
||||
OpenParms.lpstrElementName := PChar(Drive + ':');
|
||||
mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParms));
|
||||
mciSendCommand(OpenParms.wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
|
||||
mciSendCommand(OpenParms.wDeviceID, MCI_CLOSE, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParms));
|
||||
end;
|
||||
|
||||
(* Drive icon *)
|
||||
|
||||
function DriveIconSysIdx(const Path: string): Integer;
|
||||
var
|
||||
SFI: TSHFileInfo;
|
||||
begin
|
||||
SFI.iIcon := 0;
|
||||
SHGetFileInfo(PChar(Path), 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX);
|
||||
Result := SFI.iIcon + $1000;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
(*Return a list of drives in system*)
|
||||
|
||||
function GetAllDrives : TList;
|
||||
var
|
||||
Drive : PDrive;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
DriveNum: Integer;
|
||||
DriveBits: set of 0..25;
|
||||
begin
|
||||
Result := TList.Create;
|
||||
{ fill list }
|
||||
Integer(DriveBits) := GetLogicalDrives;
|
||||
for DriveNum := 0 to 25 do
|
||||
begin
|
||||
New(Drive);
|
||||
with Drive^ do
|
||||
begin
|
||||
if not (DriveNum in DriveBits) then Continue;
|
||||
Name := Char(DriveNum + Ord('a')) + ':\';
|
||||
Path := Name;
|
||||
DriveType := TDriveType(GetDriveType(PChar(Name)));
|
||||
if DriveType <> dtFloppy then
|
||||
DriveLabel := GetLabelDisk(Name[1], True);
|
||||
DriveIcon := DriveIconSysIdx(Path);
|
||||
end;
|
||||
Result.Add(Drive);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := TList.Create;
|
||||
//need to make
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
end.
|
||||
unit uOSUtils;
|
||||
{
|
||||
This unit contains platform depended functions.
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Koblov Alexander (Alexx2000@mail.ru)
|
||||
|
||||
contributors:
|
||||
}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes {$IFDEF WIN32}, Windows, ShellApi, MMSystem{$ELSE}, BaseUnix, Libc{$ENDIF};
|
||||
|
||||
type
|
||||
TDriveType = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM,
|
||||
dtRAM);
|
||||
|
||||
TDrive = record
|
||||
Name,
|
||||
Path,
|
||||
DriveLabel :String;
|
||||
DriveType : TDriveType;
|
||||
DriveIcon : Integer;
|
||||
end;
|
||||
PDrive = ^TDrive;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
const
|
||||
WM_DEVICECHANGE = $0219;
|
||||
|
||||
type
|
||||
_DEV_BROADCAST_HDR = record // Device broadcast header
|
||||
dbch_size: DWORD;
|
||||
dbch_devicetype: DWORD;
|
||||
dbch_reserved: DWORD;
|
||||
end;
|
||||
DEV_BROADCAST_HDR = _DEV_BROADCAST_HDR;
|
||||
PDEV_BROADCAST_HDR = ^DEV_BROADCAST_HDR;
|
||||
|
||||
// The following messages are for WM_DEVICECHANGE. The immediate list
|
||||
// is for the wParam. ALL THESE MESSAGES PASS A POINTER TO A STRUCT
|
||||
// STARTING WITH A DWORD SIZE AND HAVING NO POINTER IN THE STRUCT.
|
||||
|
||||
const
|
||||
DBT_DEVICEARRIVAL = $8000; // system detected a new device
|
||||
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
|
||||
|
||||
DBT_DEVTYP_VOLUME = $00000002; // logical volume
|
||||
|
||||
DBTF_MEDIA = $0001; // media comings and goings
|
||||
DBTF_NET = $0002; // network volume
|
||||
|
||||
type
|
||||
_DEV_BROADCAST_VOLUME = record
|
||||
dbcv_size: DWORD;
|
||||
dbcv_devicetype: DWORD;
|
||||
dbcv_reserved: DWORD;
|
||||
dbcv_unitmask: DWORD;
|
||||
dbcv_flags: WORD;
|
||||
end;
|
||||
DEV_BROADCAST_VOLUME = _DEV_BROADCAST_VOLUME;
|
||||
PDEV_BROADCAST_VOLUME = ^DEV_BROADCAST_VOLUME;
|
||||
{$ENDIF}
|
||||
|
||||
function FPS_ISDIR(iAttr:Cardinal) : Boolean;
|
||||
function FPS_ISLNK(iAttr:Cardinal) : Boolean;
|
||||
function CreateHardLink(Path, LinkName: string) : Boolean;
|
||||
function CreateSymLink(Path, LinkName: string) : Boolean;
|
||||
function GetHomeDir : String;
|
||||
function GetLastDir(Path : String) : String;
|
||||
|
||||
function IsAvailable(Path : String) : Boolean;
|
||||
function GetAllDrives : TList;
|
||||
|
||||
implementation
|
||||
|
||||
(*Is Directory*)
|
||||
|
||||
function FPS_ISDIR(iAttr:Cardinal) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
Result := Boolean(iAttr and faDirectory);
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := BaseUnix.FPS_ISDIR(iAttr);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
(*Is Link*)
|
||||
|
||||
function FPS_ISLNK(iAttr:Cardinal) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
Result := False;
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := BaseUnix.FPS_ISLNK(iAttr);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function CreateHardLink(Path, LinkName: string) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
// TODO on NTFS
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := (fplink(PChar(@Path[1]),PChar(@LinkName[1]))=0);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function CreateSymLink(Path, LinkName: string) : Boolean;
|
||||
{$IFDEF WIN32}
|
||||
begin
|
||||
// TODO on NTFS
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := (fpsymlink(PChar(@Path[1]),PChar(@LinkName[1]))=0);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
(* Return home directory*)
|
||||
|
||||
function GetHomeDir : String;
|
||||
{$IFDEF WIN32}
|
||||
var
|
||||
size : Integer;
|
||||
begin
|
||||
size := GetEnvironmentVariable('USERPROFILE', nil, 0);
|
||||
if size > 0 then
|
||||
begin
|
||||
SetLength(Result, size);
|
||||
GetEnvironmentVariable('USERPROFILE', PChar(Result), size);
|
||||
end;
|
||||
Delete(Result, size, 1);
|
||||
Result := Result + DirectorySeparator;
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := GetEnvironmentVariable('HOME')+DirectorySeparator;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
function GetLastDir(Path : String) : String;
|
||||
begin
|
||||
Result := ExtractFileName(ExcludeTrailingPathDelimiter(Path));
|
||||
if Result = '' then
|
||||
Result := ExtractFileDrive(Path);
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF WIN32}
|
||||
(* Drive ready *)
|
||||
|
||||
function DriveReady(const Drv: Char): Boolean;
|
||||
var
|
||||
NotUsed: DWORD;
|
||||
begin
|
||||
Result := GetVolumeInformation(PChar(Drv + ':\'), nil, 0, nil,
|
||||
NotUsed, NotUsed, nil, 0);
|
||||
end;
|
||||
|
||||
(* Disk label *)
|
||||
|
||||
function GetLabelDisk(const Drv: Char; const VolReal: Boolean): string;
|
||||
|
||||
function DisplayName(const Drv: Char): string;
|
||||
var
|
||||
SFI: TSHFileInfo;
|
||||
begin
|
||||
FillChar(SFI, SizeOf(SFI), 0);
|
||||
SHGetFileInfo(PChar(Drv + ':\'), 0, SFI, SizeOf(SFI), SHGFI_DISPLAYNAME);
|
||||
Result := SFI.szDisplayName;
|
||||
|
||||
|
||||
if Pos('(', Result) <> 0 then
|
||||
SetLength(Result, Pos('(', Result) - 2);
|
||||
end;
|
||||
|
||||
var
|
||||
WinVer: Byte;
|
||||
DriveType, NotUsed: DWORD;
|
||||
Buf: array [0..MAX_PATH - 1] of Char;
|
||||
begin
|
||||
Result := '';
|
||||
WinVer := LOBYTE(LOWORD(GetVersion));
|
||||
DriveType := GetDriveType(PChar(Drv + ':\'));
|
||||
|
||||
if (WinVer <= 4) and (DriveType <> DRIVE_REMOVABLE) or VolReal then
|
||||
begin // Win9x, Me, NT <= 4.0
|
||||
Buf[0] := #0;
|
||||
GetVolumeInformation(PChar(Drv + ':\'), Buf, DWORD(SizeOf(Buf)), nil,
|
||||
NotUsed, NotUsed, nil, 0);
|
||||
Result := Buf;
|
||||
|
||||
if VolReal and (WinVer >= 5) and (Result <> '') and
|
||||
(DriveType <> DRIVE_REMOVABLE) then // Win2k, XP and higher
|
||||
Result := DisplayName(Drv)
|
||||
else if (Result = '') and (not VolReal) then
|
||||
Result := '<none>';
|
||||
end else
|
||||
Result := DisplayName(Drv);
|
||||
end;
|
||||
|
||||
(* Wait for change disk label *)
|
||||
|
||||
procedure WaitLabelChange(const Drv: Char; const Str: string);
|
||||
var
|
||||
st1, st2: string;
|
||||
begin
|
||||
if GetLabelDisk(Drv, True) = '' then
|
||||
Exit;
|
||||
st1 := TrimLeft(Str);
|
||||
st2 := st1;
|
||||
while st1 = st2 do
|
||||
st2 := GetLabelDisk(Drv, FALSE);
|
||||
end;
|
||||
|
||||
(* Close CD/DVD *)
|
||||
|
||||
procedure CloseCD(const Drive: string);
|
||||
var
|
||||
OpenParms: MCI_OPEN_PARMS;
|
||||
begin
|
||||
FillChar(OpenParms, SizeOf(OpenParms), 0);
|
||||
OpenParms.lpstrDeviceType := 'CDAudio';
|
||||
OpenParms.lpstrElementName := PChar(Drive + ':');
|
||||
mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParms));
|
||||
mciSendCommand(OpenParms.wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
|
||||
mciSendCommand(OpenParms.wDeviceID, MCI_CLOSE, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@OpenParms));
|
||||
end;
|
||||
|
||||
(* Drive icon *)
|
||||
|
||||
function DriveIconSysIdx(const Path: string): Integer;
|
||||
var
|
||||
SFI: TSHFileInfo;
|
||||
begin
|
||||
SFI.iIcon := 0;
|
||||
SHGetFileInfo(PChar(Path), 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX);
|
||||
Result := SFI.iIcon + $1000;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
function IsAvailable(Path: String): Boolean;
|
||||
{$IFDEF WIN32}
|
||||
var
|
||||
Drv: Char;
|
||||
DriveLabel: string;
|
||||
begin
|
||||
|
||||
Drv := ExtractFileDrive(Path)[1];
|
||||
|
||||
{ Close CD/DVD }
|
||||
if (GetDriveType(PChar(Drv + ':\')) = DRIVE_CDROM) and
|
||||
(not DriveReady(Drv)) then
|
||||
begin
|
||||
DriveLabel:= GetLabelDisk(Drv, False);
|
||||
CloseCD(Drv);
|
||||
if DriveReady(Drv) then
|
||||
WaitLabelChange(Drv, DriveLabel);
|
||||
end;
|
||||
Result := DriveReady(Drv);
|
||||
end;
|
||||
{$ELSE}
|
||||
var
|
||||
mtab: PIOFile;
|
||||
pme: PMountEntry;
|
||||
begin
|
||||
Result:= False;
|
||||
mtab:= setmntent(_PATH_MOUNTED,'r');
|
||||
if not Assigned(mtab) then exit;
|
||||
pme:= getmntent(mtab);
|
||||
while (pme <> nil) do
|
||||
begin
|
||||
if pme.mnt_dir = Path then
|
||||
begin
|
||||
Result:= True;
|
||||
Break;
|
||||
end;
|
||||
pme:= getmntent(mtab);
|
||||
end;
|
||||
endmntent(mtab);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
(*Return a list of drives in system*)
|
||||
|
||||
function GetAllDrives : TList;
|
||||
var
|
||||
Drive : PDrive;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
DriveNum: Integer;
|
||||
DriveBits: set of 0..25;
|
||||
begin
|
||||
Result := TList.Create;
|
||||
{ fill list }
|
||||
Integer(DriveBits) := GetLogicalDrives;
|
||||
for DriveNum := 0 to 25 do
|
||||
begin
|
||||
New(Drive);
|
||||
with Drive^ do
|
||||
begin
|
||||
if not (DriveNum in DriveBits) then Continue;
|
||||
Name := Char(DriveNum + Ord('a')) + ':\';
|
||||
Path := Name;
|
||||
DriveType := TDriveType(GetDriveType(PChar(Name)));
|
||||
if DriveType <> dtFloppy then
|
||||
DriveLabel := GetLabelDisk(Name[1], True);
|
||||
DriveIcon := DriveIconSysIdx(Path);
|
||||
end;
|
||||
Result.Add(Drive);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
{$ELSE}
|
||||
fstab: PIOFile;
|
||||
pme: PMountEntry;
|
||||
begin
|
||||
Result := TList.Create;
|
||||
fstab:= setmntent(_PATH_FSTAB,'r');
|
||||
if not Assigned(fstab) then exit;
|
||||
pme:= getmntent(fstab);
|
||||
while (pme <> nil) do
|
||||
begin
|
||||
if (pme.mnt_dir <> '/') and (pme.mnt_dir <> 'none') and
|
||||
(pme.mnt_dir <> 'swap') and (pme.mnt_dir <> '/proc') and
|
||||
(pme.mnt_dir <> '/dev/pts') then
|
||||
begin
|
||||
New(Drive);
|
||||
with Drive^ do
|
||||
begin
|
||||
Name := ExtractFileName(pme.mnt_dir);
|
||||
Path := pme.mnt_dir;
|
||||
// TODO drive icons on Linux
|
||||
end;
|
||||
Result.Add(Drive);
|
||||
end;
|
||||
pme:= getmntent(fstab);
|
||||
end;
|
||||
endmntent(fstab);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
end.
|
||||
|
|
|
|||
1
ulng.pas
1
ulng.pas
|
|
@ -41,6 +41,7 @@ const
|
|||
clngFreeMsg=21;
|
||||
clngMsgErrDirExists=22;
|
||||
clngMsgPopUpHotDelete=23;
|
||||
clngMsgDiskNotAvail=24;
|
||||
|
||||
clngSavePosition=30;
|
||||
clngPositionSaved=31;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue