[V_Max_S]

День (ночь) добрый(ая). Имею вот такую штуту (не знаю как называеться)
uses ShellAPI;

procedure TForm1.Create_APClick(Sender: TObject);
begin
ShellExecute(0,'open','cmd.exe','/c netsh wlan set hostednetwork mode=allow ssid="300V5A" key="joni2453" keyUsage=persistent','C:\Windows\system32\',SW_SHO W);
end;

подскажите пожалуйста что дописать чтоб это все работало от имени администратора и как вообще сделать так чтоб ком строка вообще не появлялась даж на долю сек??? заранее благодарен.

p.s. сорь если такая тема уже есть вроде все перерыл не нашел, и если есть прошу не удалять, т.к. это далеко не перый вопрос по этой теме.
основу взял отсюда http://www.delphisources.ru/forum/showthread.php?t=7276 софтину пришлось писать для подруги т.к. она не в какую не хотит понимать командную строку)) а опыта в подобном деле 0 когда то давно в школе проходил qbasic который благополучно тогда же и был забыт, а платить 3 килорублика за подобную софтину уж совсем не охото.

[NumLock]

эта штука называется "Microsoft Virtual Wi-Fi". для запуска с правами администратора нужно добавить файл манифест .rc:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
     type="win32"
     name="DelphiApplication"
     version="1.0.0.0"
     processorArchitecture="*"/>
  <dependency>
     <dependentAssembly>
       <assemblyIdentity
          type="win32"
          name="Microsoft.Windows.Common-Controls"
          version="6.0.0.0"
          publicKeyToken="6595b64144ccf1df"
          language="*"
          processorArchitecture="*"/>
     </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
     <security>
       <requestedPrivileges>
          <requestedExecutionLevel
            level="requireAdministrator"
            uiAccess="false"/>
       </requestedPrivileges>
     </security>
  </trustInfo>
</assembly>

ну и SW_HIDE на последок.

а вообще проще создать батник на рабочем столе и указать запускать с правами администратора.

[V_Max_S]

премного благодарен, а про Microsoft Virtual Wi-Fi ))) я не знаю про строки из Delphi.) и батники созданы, но чет захотелось вот так)
p.s. а как и куда этот файл можно добавить? я так понял скопировать в блокнот и поменять txt на .rc? а потом что?

[my33oh]

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

софтину пришлось писать для подруги т.к. она не в какую не хотит понимать командную строку))

а я не понял проблемы запускать твоей подруге батник с ярлыка с установленной совместимостью на запуск от админа
при чем тут понимание\не понимание командной строки ?

[V_Max_S]

да при том что батник тож надо менять " ssid="300V5A" key="joni2453" " так что делать то с тем файлом?

[angvelem]

Создать RC-файл, поместить туда указанный код, собрать, используя brcc32.exe, подключить полученный RES-файл в проект.

[NumLock]

создать файл hobbit.rc:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
     type="win32"
     name="DelphiApplication"
     version="1.0.0.0"
     processorArchitecture="*"/>
  <dependency>
     <dependentAssembly>
       <assemblyIdentity
          type="win32"
          name="Microsoft.Windows.Common-Controls"
          version="6.0.0.0"
          publicKeyToken="6595b64144ccf1df"
          language="*"
          processorArchitecture="*"/>
     </dependentAssembly>
  </dependency>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
     <security>
       <requestedPrivileges>
          <requestedExecutionLevel
            level="requireAdministrator"
            uiAccess="false"/>
       </requestedPrivileges>
     </security>
  </trustInfo>
</assembly>

Add file to project(Shift+F11) и выбрать hobbit.rc

[Bob256]

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

да при том что батник тож надо менять " ssid="300V5A" key="joni2453" " ...

Код:

@netsh wlan set hostednetwork mode=
@set /p ssid= SSID:
@if "%ssid%"=="" set ssid=MS Virtual WiFi& exit /b
@set /p key= Key:
@if "%key%"=="" set key=Pass for virtual wifi& exit /b
@netsh wlan set hostednetwork mode=allow ssid="%ssid%" key="%key%" keyUsage=persistent
@netsh wlan start hostednetwork