mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Simple network WFX plugin for Windows
This commit is contained in:
Alexander Koblov
parent
c437d13097
commit
bcaa437765
4 changed files with 543 additions and 0 deletions
346
plugins/wfx/Network/src/netfunc.pas
Normal file
346
plugins/wfx/Network/src/netfunc.pas
Normal file
|
|
@ -0,0 +1,346 @@
|
|||
unit NetFunc;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$mode delphi}{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, NetUtils, ufsplugin;
|
||||
|
||||
function FsInit(PluginNr: Integer; pProgressProc: TProgressProc; pLogProc: TLogProc; pRequestProc: TRequestProc): Integer; stdcall;
|
||||
|
||||
function FsFindFirst(Path: PChar; var FindData: TWin32FindData): THandle; stdcall;
|
||||
function FsFindNext(Hdl: THandle; var FindData: TWin32FindData): BOOL; stdcall;
|
||||
function FsFindClose(Hdl: THandle): Integer; stdcall;
|
||||
|
||||
function FsGetFile(RemoteName, LocalName: PChar; CopyFlags: Integer; RemoteInfo: PRemoteInfo): Integer; stdcall;
|
||||
|
||||
function FsMkDir(RemoteDir: PChar): BOOL; stdcall;
|
||||
function FsRemoveDir(RemoteName: PChar): BOOL; stdcall;
|
||||
|
||||
procedure FsGetDefRootName(DefRootName: PChar; MaxLen: Integer); stdcall;
|
||||
|
||||
implementation
|
||||
|
||||
var
|
||||
ProgressProc: TProgressProc;
|
||||
LogProc: TLogProc;
|
||||
RequestProc: TRequestProc;
|
||||
PluginNumber: Integer;
|
||||
|
||||
type
|
||||
TListRec = record
|
||||
List: TList;
|
||||
Index: Integer;
|
||||
Handle: THandle;
|
||||
end;
|
||||
PListRec = ^TListRec;
|
||||
|
||||
type
|
||||
TProgressInfo = record
|
||||
RemoteName,
|
||||
LocalName: PAnsiChar;
|
||||
end;
|
||||
PProgressInfo = ^TProgressInfo;
|
||||
|
||||
{$IFDEF FPC}
|
||||
const
|
||||
kernel32 = 'kernel32.dll';
|
||||
|
||||
function MoveFileWithProgress(lpExistingFileName, lpNewFileName: PChar; lpProgressRoutine: Pointer; lpData: Pointer; dwFlags: DWORD): BOOL; stdcall; external kernel32 Name 'MoveFileWithProgressA';
|
||||
function CopyFileEx(lpExistingFileName, lpNewFileName: PChar; lpProgressRoutine: Pointer; lpData: Pointer; pbCancel: PBool; dwCopyFlags: DWORD): BOOL; stdcall; external kernel32 Name 'CopyFileExA';
|
||||
{$ELSE}
|
||||
const
|
||||
AllowDirectorySeparators: set of char = ['\', '/'];
|
||||
|
||||
Function GetDirs(Var DirName: String; Var Dirs: Array of PChar): Longint;
|
||||
Var
|
||||
I: Longint;
|
||||
begin
|
||||
I := 1;
|
||||
Result := -1;
|
||||
While I <= Length(DirName) do
|
||||
begin
|
||||
If (DirName[i] in AllowDirectorySeparators) and
|
||||
{ avoid error in case last char=pathdelim }
|
||||
(length(dirname) > i) then
|
||||
begin
|
||||
DirName[i] := #0;
|
||||
Inc(Result);
|
||||
Dirs[Result] := @DirName[I + 1];
|
||||
end;
|
||||
Inc(I);
|
||||
end;
|
||||
If Result > -1 then
|
||||
Inc(Result);
|
||||
end;
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
function ExcludeTrailingPathDelimiters(Path: String): String;
|
||||
var
|
||||
iLength: Integer;
|
||||
begin
|
||||
if Path[1] = PathDelim then
|
||||
if (Length(Path) > 1) and (Path[2] = PathDelim) then
|
||||
Delete(Path, 1, 2)
|
||||
else
|
||||
Delete(Path, 1, 1);
|
||||
iLength := Length(Path);
|
||||
if Path[iLength] = PathDelim then
|
||||
Delete(Path, iLength, 1);
|
||||
Result := Path;
|
||||
end;
|
||||
|
||||
function ExtractNetworkFileName(const FileName: String): String;
|
||||
var
|
||||
I, iCount: Integer;
|
||||
begin
|
||||
Result := FileName;
|
||||
for I := 0 to 2 do
|
||||
begin
|
||||
iCount := Pos(PathDelim, Result);
|
||||
System.Delete(Result, 1, iCount);
|
||||
end;
|
||||
Result := '\\' + Result;
|
||||
end;
|
||||
|
||||
function CopyProgressRoutine(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: Int64; dwStreamNumber, dwCallbackReason: DWORD; hSourceFile, hDestinationFile: THandle; lpData: Pointer): DWORD; stdcall;
|
||||
var
|
||||
Percent: Integer;
|
||||
ProgressInfo: PProgressInfo;
|
||||
begin
|
||||
if TotalFileSize = 0 then
|
||||
Percent := 100
|
||||
else
|
||||
Percent := TotalBytesTransferred * 100 div TotalFileSize;
|
||||
ProgressInfo := PProgressInfo(lpData);
|
||||
Result := ProgressProc(PluginNumber, ProgressInfo^.RemoteName, ProgressInfo^.LocalName, Percent);
|
||||
end;
|
||||
|
||||
function FsInit(PluginNr: Integer; pProgressProc: tProgressProc; pLogProc: tLogProc; pRequestProc: tRequestProc): Integer; stdcall;
|
||||
begin
|
||||
ProgressProc := pProgressProc;
|
||||
LogProc := pLogProc;
|
||||
RequestProc := pRequestProc;
|
||||
PluginNumber := PluginNr;
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function FsFindFirst(Path: PChar; var FindData: TWin32FindData): THandle; stdcall;
|
||||
var
|
||||
ListRec: PListRec;
|
||||
I, iCount: Integer;
|
||||
bFound: Boolean;
|
||||
sDirName: AnsiString;
|
||||
Dirs: Array[0..127] of PChar;
|
||||
NetRes: TNetRes;
|
||||
begin
|
||||
New(ListRec);
|
||||
ListRec^.Index := 0;
|
||||
ListRec^.Handle := INVALID_HANDLE_VALUE;
|
||||
FillChar(FindData, SizeOf(FindData), #0);
|
||||
// root directory
|
||||
if Path = PathDelim then
|
||||
begin
|
||||
ListRec^.List := GetContainerList(nil); // get list of networks
|
||||
FindData.dwFileAttributes := FILE_ATTRIBUTE_DIRECTORY;
|
||||
StrPCopy(FindData.cFileName, PNetRes(ListRec^.List[0])^.RemoteName);
|
||||
end
|
||||
else
|
||||
begin
|
||||
bFound := False;
|
||||
sDirName := StrPas(Path);
|
||||
|
||||
iCount := GetDirs(sDirName, Dirs);
|
||||
if iCount = 0 then
|
||||
Exit;
|
||||
// open shared folder
|
||||
if iCount > 3 then
|
||||
begin
|
||||
sDirName := ExtractNetworkFileName(Path) + PathDelim + '*';
|
||||
ListRec^.Handle := FindFirstFile(PChar(sDirName), FindData);
|
||||
Result := THandle(ListRec);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
sDirName := Dirs[0];
|
||||
ListRec^.List := GetContainerList(nil); // get list of networks
|
||||
for I := 0 to ListRec^.List.Count - 1 do
|
||||
begin
|
||||
// open subnet
|
||||
if PNetRes(ListRec^.List[i])^.RemoteName = sDirName then
|
||||
begin
|
||||
NetRes := PNetRes(ListRec^.List[I])^;
|
||||
FreeNetResList(ListRec^.List);
|
||||
ListRec^.List := GetContainerList(@NetRes);
|
||||
bFound := True;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
// open domen
|
||||
if bFound and Assigned(ListRec^.List) and (iCount > 1) then
|
||||
begin
|
||||
bFound := False;
|
||||
sDirName := Dirs[1];
|
||||
for I := 0 to ListRec^.List.Count - 1 do
|
||||
begin
|
||||
if PNetRes(ListRec^.List[i])^.RemoteName = sDirName then
|
||||
begin
|
||||
NetRes := PNetRes(ListRec^.List[I])^;
|
||||
FreeNetResList(ListRec^.List);
|
||||
ListRec^.List := GetContainerList(@NetRes);
|
||||
bFound := True;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
// open computer
|
||||
if bFound and Assigned(ListRec^.List) and (iCount = 3) then
|
||||
begin
|
||||
bFound := False;
|
||||
sDirName := Dirs[2];
|
||||
for I := 0 to ListRec^.List.Count - 1 do
|
||||
begin
|
||||
if PNetRes(ListRec^.List[i])^.RemoteName = '\\' + sDirName then
|
||||
begin
|
||||
NetRes := PNetRes(ListRec^.List[I])^;
|
||||
FreeNetResList(ListRec^.List);
|
||||
ListRec^.List := GetContainerList(@NetRes);
|
||||
bFound := True;
|
||||
Break;
|
||||
end;
|
||||
end; // for
|
||||
|
||||
if not Assigned(ListRec^.List) then
|
||||
begin
|
||||
Result := INVALID_HANDLE_VALUE;
|
||||
Exit;
|
||||
end;
|
||||
end; // openPC
|
||||
end; // open Domen
|
||||
|
||||
FindData.dwFileAttributes := FILE_ATTRIBUTE_DIRECTORY;
|
||||
StrPCopy(FindData.cFileName, ExtractFileName(ExcludeTrailingPathDelimiters(PNetRes(ListRec^.List[0])^.RemoteName)));
|
||||
end; // PathDelim
|
||||
Result := THandle(ListRec);
|
||||
end;
|
||||
|
||||
function FsFindNext(Hdl: THandle; var FindData: TWin32FindData): bool; stdcall;
|
||||
var
|
||||
ListRec: PListRec;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
ListRec := PListRec(Pointer(Hdl));
|
||||
|
||||
if ListRec^.Handle <> INVALID_HANDLE_VALUE then
|
||||
Result := FindNextFile(ListRec^.Handle, FindData)
|
||||
else if Assigned(ListRec^.List) and (ListRec^.Index < ListRec^.List.Count - 1) then
|
||||
begin
|
||||
Inc(ListRec^.Index);
|
||||
// if PNetRes(ListRec^.List[ListRec^.Index])^.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN then
|
||||
FindData.dwFileAttributes := FILE_ATTRIBUTE_DIRECTORY;
|
||||
//else
|
||||
//FindData.dwFileAttributes:= 0;
|
||||
|
||||
StrPCopy(FindData.cFileName, ExcludeTrailingPathDelimiters(PNetRes(ListRec^.List[ListRec^.Index])^.RemoteName));
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
function FsFindClose(Hdl: THandle): Integer; stdcall;
|
||||
var
|
||||
ListRec: PListRec;
|
||||
begin
|
||||
ListRec := PListRec(Pointer(Hdl));
|
||||
if ListRec^.Handle <> INVALID_HANDLE_VALUE then
|
||||
Result := Integer(Windows.FindClose(ListRec^.Handle));
|
||||
if Assigned(ListRec^.List) then
|
||||
FreeNetResList(ListRec^.List);
|
||||
Dispose(ListRec);
|
||||
end;
|
||||
|
||||
function FsGetFile(RemoteName, LocalName: PChar; CopyFlags: Integer; RemoteInfo: PRemoteInfo): Integer; stdcall;
|
||||
var
|
||||
err: Integer;
|
||||
ok, OverWrite, Resume, Move: Boolean;
|
||||
sRemoteName: String;
|
||||
ProgressInfo: TProgressInfo;
|
||||
begin
|
||||
OverWrite := (CopyFlags and FS_COPYFLAGS_OVERWRITE) = 1;
|
||||
Resume := (CopyFlags and FS_COPYFLAGS_RESUME) = 1;
|
||||
Move := (CopyFlags and FS_COPYFLAGS_MOVE) = 1;
|
||||
|
||||
if (Resume) then
|
||||
Result := FS_FILE_NOTSUPPORTED;
|
||||
sRemoteName := ExtractNetworkFileName(RemoteName);
|
||||
if sRemoteName = EmptyStr then
|
||||
begin
|
||||
Result := FS_FILE_NOTFOUND;
|
||||
Exit;
|
||||
end;
|
||||
RemoteName := PChar(sRemoteName);
|
||||
err := ProgressProc(PluginNumber, RemoteName, LocalName, 0);
|
||||
if (err = 1) then
|
||||
Result := FS_FILE_USERABORT;
|
||||
|
||||
ProgressInfo.RemoteName := RemoteName;
|
||||
ProgressInfo.LocalName := LocalName;
|
||||
|
||||
if OverWrite then
|
||||
DeleteFile(LocalName);
|
||||
if Move then
|
||||
ok := MoveFileWithProgress(RemoteName, LocalName, @CopyProgressRoutine, @ProgressInfo, MOVEFILE_COPY_ALLOWED)
|
||||
else
|
||||
ok := CopyFileEx(RemoteName, LocalName, @CopyProgressRoutine, @ProgressInfo, nil, 0);
|
||||
|
||||
if ok then
|
||||
begin
|
||||
ProgressProc(PluginNumber, RemoteName, LocalName, 100);
|
||||
Result := FS_FILE_OK;
|
||||
end
|
||||
else
|
||||
begin
|
||||
err := GetLastError();
|
||||
case (err) of
|
||||
ERROR_FILE_NOT_FOUND,
|
||||
ERROR_PATH_NOT_FOUND,
|
||||
ERROR_TOO_MANY_OPEN_FILES,
|
||||
ERROR_ACCESS_DENIED:
|
||||
Result := FS_FILE_NOTFOUND;
|
||||
ERROR_FILE_EXISTS:
|
||||
Result := FS_FILE_EXISTS;
|
||||
ERROR_REQUEST_ABORTED:
|
||||
Result := FS_FILE_USERABORT;
|
||||
else
|
||||
Result := FS_FILE_READERROR;
|
||||
end; // case
|
||||
end;
|
||||
end;
|
||||
|
||||
function FsMkDir(RemoteDir: PChar): BOOL; stdcall;
|
||||
var
|
||||
sDirName: String;
|
||||
begin
|
||||
sDirName := ExtractNetworkFileName(RemoteDir);
|
||||
Result := CreateDirectory(PChar(sDirName), nil);
|
||||
end;
|
||||
|
||||
function FsRemoveDir(RemoteName: PChar): BOOL; stdcall;
|
||||
var
|
||||
sDirName: String;
|
||||
begin
|
||||
sDirName := ExtractNetworkFileName(RemoteName);
|
||||
Result := RemoveDirectory(PChar(sDirName));
|
||||
end;
|
||||
|
||||
procedure FsGetDefRootName(DefRootName: PChar; MaxLen: Integer); stdcall;
|
||||
begin
|
||||
StrPLCopy(DefRootName, 'Network', MaxLen);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
116
plugins/wfx/Network/src/netutils.pas
Normal file
116
plugins/wfx/Network/src/netutils.pas
Normal file
|
|
@ -0,0 +1,116 @@
|
|||
unit NetUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Classes;
|
||||
|
||||
Type
|
||||
{$H+}
|
||||
PNetRes = ^TNetRes;
|
||||
|
||||
TNetRes = Record
|
||||
dwScope: Integer;
|
||||
dwType: Integer;
|
||||
dwDisplayType: Integer;
|
||||
dwUsage: Integer;
|
||||
LocalName: String;
|
||||
RemoteName: String;
|
||||
Comment: String;
|
||||
Provider: String;
|
||||
End;
|
||||
|
||||
{H-}
|
||||
|
||||
function GetContainerList(ListRoot: PNetResource): TList;
|
||||
procedure FreeNetResList(var NetResList: TList);
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
type
|
||||
PnetResourceArr = ^TNetResource; {TNetResource - ýòî çàïèñü,
|
||||
ýêâèâàëåíòíàÿ TNetRes, çà èñêëþ÷åíèåì òîãî, ÷òî
|
||||
âìåñòî òèïîâ string òàì òèïû PChar. }
|
||||
|
||||
function GetContainerList(ListRoot: PNetResource): TList;
|
||||
{âîçâðàùàåò ñïèñîê ñåòåâûõ èì¸í ñ ïîäóðîâíÿ ListRoot, êàæäûé
|
||||
ýëåìåíò ñïèñêà TList - ýòî PNetRes, ãäå ïîëå RemoteName îïðåäåëÿåò
|
||||
ñîîòâåòñòâåííî ñåòåâîå èìÿ ýëåìåíòà ñïèñêà. Åñëè ListRoot=nil, òî
|
||||
âîçâðàùàåòñÿ ñàìûé âåðõíèé óðîâåíü òèïà:
|
||||
1. Microsoft Windows Network
|
||||
2. Novell Netware Network
|
||||
×òîáû ïîëó÷èòü ñïèñîê äîìåíîâ/ðàáî÷èõ ãðóïï ñåòè Microsoft, íóæíî
|
||||
âûçâàòü ýòó ôóíêöèþ âòîðîé ðàç, ïåðåäàâ åé â êà÷åñòâå ïàðàìåòðà,
|
||||
ñîîòâåòñòâóþùèé ýëåìåíò ñïèñêà, ïîëó÷åííîãî ïðè ïåðâîì å¸ âûçîâå.
|
||||
×òîáû ïîëó÷èòü ñïèñîê êîìïüþòåðîâ äîìåíà - âûçâàòü òðåòèé ðàç...}
|
||||
{Åäèíñòâåííîå, ÿ íå çíàþ êàê óçíàòü èìÿ òåêóùåãî äîìåíà.}
|
||||
Var
|
||||
TempRec: PNetRes;
|
||||
Buf: Pointer;
|
||||
Count, BufSize, Res: DWORD;
|
||||
lphEnum: THandle;
|
||||
p: PNetResourceArr;
|
||||
i: SmallInt;
|
||||
NetworkList: TList;
|
||||
Begin
|
||||
NetworkList := TList.Create;
|
||||
Result := nil;
|
||||
BufSize := 8192;
|
||||
GetMem(Buf, BufSize);
|
||||
Try
|
||||
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, ListRoot, lphEnum);
|
||||
{â ðåçóëüòàòå ïîëó÷àåì ññûëêó lphEnum}
|
||||
If Res <> 0 Then
|
||||
Raise Exception(Res);
|
||||
Count := $FFFFFFFF; {òðåáóåì âûäàòü ñòîëüêî çàïèñåé â
|
||||
ñïèñîê, ñêîëüêî åñòü}
|
||||
Res := WNetEnumResource(lphEnum, Count, Buf, BufSize);
|
||||
{â áóôåðå Buf - ñïèñî÷åê
|
||||
â âèäå ìàññèâà óêàçàòåëåé íà ñòðóêòóðû òèïà TNetResourceArr
|
||||
à â Count - ÷èñëî ýòèõ ñòðóêòóð}
|
||||
If Res = ERROR_NO_MORE_ITEMS Then
|
||||
Exit;
|
||||
If (Res <> 0) Then
|
||||
Raise Exception(Res);
|
||||
P := PNetResourceArr(Buf);
|
||||
For I := 0 To Count - 1 Do
|
||||
Begin //Òðåáóåòñÿ êîïèðîâàíèå èç áóôåðà, òàê êàê îí
|
||||
New(TempRec); //äåéñòâèòåëåí òîëüêî äî ñëåäóþùåãî âûçîâà ôóíêöèé ãðóïïû WNet
|
||||
TempRec^.dwScope := P^.dwScope;
|
||||
TempRec^.dwType := P^.dwType;
|
||||
TempRec^.dwDisplayType := P^.dwDisplayType;
|
||||
TempRec^.dwUsage := P^.dwUsage;
|
||||
TempRec^.LocalName := StrPas(P^.lpLocalName); {èìåþòñÿ ââèäó âîò ýòè óêàçàòåëè}
|
||||
TempRec^.RemoteName := StrPas(P^.lpRemoteName); {â ñìûñëå - ñòðîêè PChar}
|
||||
TempRec^.Comment := StrPas(P^.lpComment);
|
||||
TempRec^.Provider := StrPas(P^.lpProvider);
|
||||
NetworkList.Add(TempRec);
|
||||
Inc(P);
|
||||
End;
|
||||
Res := WNetCloseEnum(lphEnum);
|
||||
{à ñëåäóþùèé âûçîâ - âîò îí!}
|
||||
If Res <> 0 Then
|
||||
Raise Exception(Res);
|
||||
Result := NetWorkList;
|
||||
Finally
|
||||
FreeMem(Buf);
|
||||
End;
|
||||
End;
|
||||
|
||||
procedure FreeNetResList(var NetResList: TList);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
for I := NetResList.Count - 1 downto 0 do
|
||||
begin
|
||||
Dispose(PNetRes(NetResList[I]));
|
||||
NetResList.Delete(I);
|
||||
end;
|
||||
FreeAndNil(NetResList);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
22
plugins/wfx/Network/src/network.dpr
Normal file
22
plugins/wfx/Network/src/network.dpr
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
library network;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$mode delphi}{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
Classes, NetFunc;
|
||||
|
||||
exports
|
||||
FsInit,
|
||||
FsFindFirst,
|
||||
FsFindNext,
|
||||
FsFindClose,
|
||||
FsGetFile,
|
||||
FsMkDir,
|
||||
FsRemoveDir,
|
||||
FsGetDefRootName;
|
||||
|
||||
begin
|
||||
end.
|
||||
|
||||
59
plugins/wfx/Network/src/network.lpi
Normal file
59
plugins/wfx/Network/src/network.lpi
Normal file
|
|
@ -0,0 +1,59 @@
|
|||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
</VersionInfo>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<HostApplicationFilename Value="D:\Alexx\Totalcmd\TOTALCMD.EXE"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<Units Count="1">
|
||||
<Unit0>
|
||||
<Filename Value="network.dpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="network"/>
|
||||
</Unit0>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="..\..\..\..\sdk\"/>
|
||||
<UnitOutputDirectory Value="..\lib"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<SyntaxMode Value="Delphi"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Options>
|
||||
<ExecutableType Value="Library"/>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</CONFIG>
|
||||
Loading…
Add table
Add a link
Reference in a new issue