Ĺadny brzuch
begin
reg := TRegistry.Create;
Nazwa_programu:=Application.ExeName; //pobranie lokalizacji w której uruchomiono nasz program
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\
StandardProfile\AuthorizedApplications\List', True);
if aktywuj = True then
reg.WriteString(Nazwa_programu,Nazwa_programu+':*:Enabled:'+ExtractFileName(
Nazwa_programu)) // zapisanie wyjątku wg. opisu z punktu 1.1, natomiast nazwą własną będzie nazwa naszego projektu
else if aktywuj = False then
reg.DeleteValue(Nazwa_programu); //usunięcie wyjątku
end;
reg.CloseKey;
end;
mam taki kod, i nie wiem co wpisac w tym miejscu tylko nazwe_programu? czy sciezke tez?
Nazwa_programu:=Application.ExeName;
i tak samo tutaj
reg.WriteString(Nazwa_programu,Nazwa_programu+':*:Enabled:'+ExtractFileName( Nazwa_programu))
nazwe programu mam wpisac w nawiasach czy jak?
chcesz to zmienić tak, żeby działało dla jakiegoś innego programu? Jeżeli ma obsługiwać ten który piszesz, zostaw jak jest, jeżeli nie wystarczy, że linijkę
Nazwa_programu:=Application.ExeName; //pobranie lokalizacji w której uruchomiono nasz program
zamienisz na
Nazwa_programu:='C:\scieżka\do\programu.exe';
i będzie ok, w następnych linijkach już nic nie musisz zmieniać.
czyli moj program na przykład nazywa sie win.exe i znajduje sie na dysku c wiec ta linia powina wyglądac tak?? komplikator wywala bład
'win.exe';='('C:\win.exe');
[Error] Unit1.pas(31): Statement expected, but expression of type 'String' found
[Error] Unit1.pas(31): Missing operator or semicolon
Tak chce zmienic zeby dzialało dla mojego programu.
Jeżeli to jest ten program który właśnie piszesz to NICZEGO nie zmieniaj.
W przykładzie który podałeś to będzie wyglądać tak:
Nazwa_programu:='C:\win.exe';
Nazwa_programu to zmienna, ktoś dość mylący identyfikator dla niej wybrał.
Dzięki wielkie!! działa ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
mam taki kod, i nie wiem co wpisac w tym miejscu tylko nazwe_programu? czy sciezke tez?
Nazwa_programu:=Application.ExeName;
i tak samo tutaj
reg.WriteString(Nazwa_programu,Nazwa_programu+':*:Enabled:'+ExtractFileName( Nazwa_programu))
nazwe programu mam wpisac w nawiasach czy jak?
chcesz to zmienić tak, żeby działało dla jakiegoś innego programu? Jeżeli ma obsługiwać ten który piszesz, zostaw jak jest, jeżeli nie wystarczy, że linijkę
Nazwa_programu:=Application.ExeName; //pobranie lokalizacji w której uruchomiono nasz program
zamienisz na
Nazwa_programu:='C:\scieżka\do\programu.exe';
i będzie ok, w następnych linijkach już nic nie musisz zmieniać.
czyli moj program na przykład nazywa sie win.exe i znajduje sie na dysku c wiec ta linia powina wyglądac tak?? komplikator wywala bład
'win.exe';='('C:\win.exe');
[Error] Unit1.pas(31): Statement expected, but expression of type 'String' found
[Error] Unit1.pas(31): Missing operator or semicolon
Tak chce zmienic zeby dzialało dla mojego programu.
Jeżeli to jest ten program który właśnie piszesz to NICZEGO nie zmieniaj.
W przykładzie który podałeś to będzie wyglądać tak:
Nazwa_programu:='C:\win.exe';
Nazwa_programu to zmienna, ktoś dość mylący identyfikator dla niej wybrał.
Dzięki wielkie!! działa ;)