[true]

Здравствуйте, прошу помощи по данному вопросу, нужно чтобы в комбобокс попали все не занятые буквы в системе (например жесткие диски CDRom и тд), и еще один вопрос, как добавить к программе параметр например:

Если запустил в обычном режиме то запустить программу со всеми функциями.

Если запустил например так programm.exe -a тогда например можно редактировать параметры.

Вообще программа будет заниматься подключением нескольких сетевых хранилищ. Если вы знаете аналог того что я пишу то будет здорово) Подскажите, батники никак нельзя) Все делаю с WinExec,пробывал с NETRESOURCE и WnetAddconnection2 но чтото не срослось.. Я слышал что WnetAddconnection сама знает какой диск добавить, можно ли это както совместить?

[poli-smen]

Сообщение от true

Здравствуйте, прошу помощи по данному вопросу, нужно чтобы в комбобокс попали все не занятые буквы в системе (например жесткие диски CDRom и тд),

Смотри функцию GetLogicalDrives - возвращает целое число, каждый бит которой соответствует определённой букве диска. 1 - подключен, 0 - нет.

Сообщение от true

и еще один вопрос, как добавить к программе параметр например:

Если запустил в обычном режиме то запустить программу со всеми функциями.

Если запустил например так programm.exe -a тогда например можно редактировать параметры.

Параметры с которыми запущено приложение можно узнать через функции: ParamCount - количество параметров, ParamStr(i) - сами параметры.

Сообщение от true

Все делаю с WinExec,пробывал с NETRESOURCE и WnetAddconnection2 но чтото не срослось..

Что не срослось? Должно работать.

[true]

Вот с WnetAddconnection пробывал может чтото нетак, пример нашел в интернете

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WNetConnectionDialog(Handle,RESOURCETYPE_DISK) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
reg:TRegistry;
nr: NETRESOURCE;
lpLogin, lpPassword:PChar;
Begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
reg.WriteString('Disk',Pchar((Application.ExeName)));
reg.CloseKey;
reg.Free;

ZeroMemory (@nr, SizeOf (nr));
lpLogin:=Pchar(Edit3.Text);
lpPassword:=Pchar(Edit4.Text);

  if Checkbox1.Checked  then
    nr.dwType := RESOURCETYPE_PRINT
     else
     nr.dwType := RESOURCETYPE_DISK;

nr.lpLocalName := Pchar(Edit1.Text);
nr.lpRemoteName := Pchar(Edit2.Text);
nr.lpProvider :='';
If WNetAddConnection2 (nr,lpLogin, lpPassword, CONNECT_UPDATE_PROFILE) <> NO_ERROR
Then ShowMessage ('Could not connect');


end;

А можно примеры к GetLogicalDrives, я так понял что он число возвращает, как мне сделать чтобы он их в латинские буквы переводил?

[poli-smen]

Сообщение от true

А можно примеры к GetLogicalDrives, я так понял что он число возвращает, как мне сделать чтобы он их в латинские буквы переводил?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  d: DWORD;
  c: Char;
  s: string;
begin
  d := GetLogicalDrives;
  for c := 'A' to 'Z' do
  begin
    if Odd(d) then s := s + c;
    d := d shr 1;
  end;
  ShowMessage(s);
end;

[poli-smen]

Сообщение от true

Вот с WnetAddconnection пробывал может чтото нетак, пример нашел в интернете

Я сейчас не на работе, так что проверить не могу.
Попробуй эти примеры:
Подключение сетевого диска
Подключение сетевого диска 2
Отобразить, присоединить сетевые диски

[true]

Здравствуйте еще раз, наверно будет неправильно создавать новую тему для такого вопроса, я может плохо искал но как правильно записать в реестр выбранный параметр combobox'a в реестр?

Комбобокс будет заполняться после каждого вызова программы

Код:

ComboBox2.Items.Strings[ComboBox2.ItemIndex]):=FIniFile.ReadString('option','Combo2',ComboBox2.Items.Strings[ComboBox2.ItemIndex]));
FIniFile.WriteString('option','Combo2',ComboBox2.Items.Strings[ComboBox2.ItemIndex]);

Или комбобокс нужно заполнить и сохрнить все Items?

[poli-smen]

Сообщение от true

я может плохо искал

Верно. Искал плохо. Смотри >>здесь<< раздел Реестр.

Сообщение от true

но как правильно записать в реестр выбранный параметр combobox'a в реестр?

Для работы с реестром нужно использовать класс TRegistry вместо TIniFile.