VPF::Net use в Delphi - Форум программистов

zhefran

Дата 21.8.2010, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

Как узнать список активных подключений моего компьютера к другим в сети - имеется в виду к росшаренным папкам (аналог комманды в командной строке net use)?

Это сообщение отредактировал(а) zhefran - 21.8.2010, 16:00

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Matematik

Дата 21.8.2010, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Посмотри тут http://msdn.microsoft.com/en-us/library/aa...v=VS.85%29.aspx

zhefran

Дата 26.8.2010, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата(Matematik @ 21.8.2010, 17:58)

Посмотри тут http://msdn.microsoft.com/en-us/library/aa...v=VS.85%29.aspx

Я так понял мне нужна функция WNetOpenEnum. Только ко мне не доходит какими дожны быть в ней для моих целей параметры: dwScope и dwUsage.

Это сообщение отредактировал(а) zhefran - 26.8.2010, 11:34

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Akella

Дата 28.8.2010, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

а так?

zhefran

Дата 30.8.2010, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Я подключался к компьютеру без захода в папку на удаленной машине, в связи с этим не отображались ресурсы к которым подключался при значении dwScope равно RESOURCE_CONNECTED.

П. С. При net use в таких случаях отображается \\IP\IPC$. В Delphi это можно как-то вытянуть?

Это сообщение отредактировал(а) zhefran - 30.8.2010, 12:49

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

cat512

Дата 30.8.2010, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: нет
Всего: 15

Цитата(zhefran @ 30.8.2010, 12:47)

Да возьми заюзай Net.exe в дочернем процессе, а консольный вывод перенаправь в родительский процесс. И будет у тебя Net.exe завраплен
в гуи

zhefran

Дата 1.9.2010, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата(cat512 @ 30.8.2010, 14:14

)

Никогда такого не делал. Можешь скинуть пример или обьяснить как это делается?

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

cat512

Дата 2.9.2010, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: нет
Всего: 15

Цитата(zhefran @ 1.9.2010, 15:03)

Цитата(cat512 @ 30.8.2010, 14:14

)

Никогда такого не делал. Можешь скинуть пример или обьяснить как это делается?

примерно так:

Код



uses

unit Unit1;

interface

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ExecConsoleApp(
  const ProcessName: string;
  const CommandLine: AnsiString;
  Errors: TStrings
  );
var
  sa: TSECURITYATTRIBUTES;
  si: TSTARTUPINFO;
  pi: TPROCESSINFORMATION;
  hPipeErrorsRead: THANDLE;
  hPipeErrorsWrite: THANDLE;
  Res, bTest: Boolean;
  szBuffer: array[0..256] of Char;
  dwNumberOfBytesRead: DWORD;
  Stream: TMemoryStream;
begin
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := True;
  sa.lpSecurityDescriptor := nil;
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa, 0);
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@pi, SizeOf(pi));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_HIDE;
  si.hStdInput := 0;
  si.hStdOutput := hPipeErrorsWrite;
  si.hStdError := 0;

  Res := CreateProcess(PChar(ProcessName), pchar(CommandLine), nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi);

  if not Res then
  begin
    CloseHandle(hPipeErrorsRead);
    CloseHandle(hPipeErrorsWrite);
    Exit;
  end;
  CloseHandle(hPipeErrorsWrite);

  Stream := TMemoryStream.Create;
  try
    while true do
    begin
      bTest := ReadFile(hPipeErrorsRead, szBuffer, 256, dwNumberOfBytesRead,
        nil);
      if not bTest then
      begin
        break;
      end;
      Stream.Write(szBuffer, dwNumberOfBytesRead);
    end;
    Stream.Position := 0;
    Errors.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(hPipeErrorsRead);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  ServerName: string;
  RootDir: string;
  Password: string;
  User: string;

const
  AppName = 'C:\windows\system32\net.exe';
begin
  ExecConsoleApp(
    AppName,
//Собственно команды которые должны использ.
      Edit1.Text,
    Memo1.Lines
    );


end;

end.

Только надо строку сконвертить из Dos-овской кодировки в Win-довую

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »