Ĺadny brzuch
Czy za pomocą komponentu ZipForge można kompresować całe katalogi? Jeżeli tak to jak można to zrobić?
cytat:Edi22 napisał:
Czy za pomocą komponentu ZipForge można kompresować całe katalogi? Jeżeli tak to jak można to zrobić?
Nie wiem czy nie ma gotowej proceduru, ale jak nie ma to trzeba pokombinować z findfirst, findnext
----
m@il: ali88@tlen.pl
GG: 2083160
to jestprocdura pakujaca -dziala dobrze
procedure TForm1.Button1Click(Sender: TObject);
begin
ZipForge1.FileName := 'c:spakowany.zip' ;
ZipForge1.OpenArchive(fmCreate);
ZipForge1.BaseDir := 'C:Documents';
ZipForge1.AddFiles('*.*');
ZipForge1.CloseArchive;
end;
A jak to rozpakowac
Kombinowalem jak poniżej ale bez skutku
Prosze o pomoc jesli wykombinujesz -- dalem pytani na forum
procedure TForm1.Button2Click(Sender: TObject);
begin
Zipforge1,OpenArchive;
ZipForge1.FileName := 'c:spakowany.zip' ;
ZipForge1.BaseDir := 'C:Do_tego_katalogu';
ZipForge1.{Extract} {mysl ze tu jest problem}
ZipForge1.ClosArchive;
end;
JESZCZE RAZ JA
PRZY ROZPAKOWANIU NALEZY WPISAC ZIPFORGE1.EXTRACT(*.*);
TAM GDZIE OSTATNIO SIEE ZATRTZYMAŁEM
a KATALOG POKUJESZ POPROSTU KONCZC NA NIM WPIS DO ZIFORGE1.BASEDIR:='C:TENKATALOG';
mOŻNA TEZ PAKOWAĆ DO PLIKU PLIK.EXE Z HASŁEM
TRZEBA PODAĆ RZSZEZENIE EXE W ZIPFORGE1.FILENAME:='C:TEGOTO.EXE.
A JESZCZE CIEKAWIEJ BEDZIE
GDY SIE SPAKUJE HASLEM
ZIPFORGE1.PASSWORD:='ALAMAKOTA';
UZYWAJAC TEGO PREZD ZIPFORGE1.ADD(*.*);
JESTEDM CIEKAWY CZY DA SIE ZLAMAC TAKI SPAKOWANY PLIK PRZEZ HASŁO
OCZYWISCIE NIE PRZEZ ZIPFORGE (GDZIE PODAJE SIE HASLO)
JESTEM TYM ZAINTERESOWANY
JESLI BEDZIESZ WIEDZIAL UMIESC DO TEGO KOMENTARZ
Ok wielkie dzięki. A co do złamania takiego hasła to są odpowiednie programy. Nie pamiętam gdzie, ale gdzieś już je widziałem. Dam znać jak znajde. A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany?? Bo np. chce spakowac jakis katalog który jest w C:Documents and SettingsUseritd... I nie wiem jaki jest ten User. Czy mozna to jakos sprawdzić, potem zapisać to w zmiennej i podstwić do ścieżki ??
user:=....;
$katalog:='C:Documents and Settings' + user + 'reszta';
ZipForge1.BaseDir := katalog
EXTRACTFILEPATH(APPLICATION.EXENAME) - to jest sciezka aplikacji
czyli program dziala w c:costam to wlasnie mozna wyciagnac ta funkcja -- ale aplikacje z dephi
Popatrze moze cos znajde na usera (chyba dalo by sie to wyciagnac z widowsa)
wiem ze mozna komendy do uruchomienia notatnika pezez podanie sciezek dostepu moze i sie da dotrzec do usera (jak mi sie uda znaleśc odpowiem)
Interesuje mnie cos takiego. Kopiowanie ale nie przez FO_COpy to co przerabialsmy ani przez copyfie('skad','dokad',false) ale cos przez ip tak aby nie udostepniac zasobow czyli jakis connect ---
pewnie sa jakies komponety do tego ale sie jeszcze nie wgeryzlem tak daleko moze cos wiesz --- odpowiedz tu albo na skrzynke
moj adres antikiusz@poczta.onet.pl
cytat:Edi22 napisał:
A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany??
Jest jakaś funkcja systemowa do tego. W tej chwili nie pamiętam jaka, ale na jutro spróbuje sie dowiedzieć :D
----
m@il: ali88@tlen.pl
GG: 2083160
Wroce do zipforge
czy do zastosowan komercyjnych jest darmowy zipforge
cytat:Edi22 napisał:
A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany??
//-------Testowane jedynie na WinXP-------
var
Log: String; //nazwa Użytkownika
Komp: String; //nazwa Komputera
zm: Pchar; //zmienna by obciąć Buf do rzeczywistego rozmiaru
Buf: DWORD; //długość
begin
Buf:=767;
SetLength(Log,Buf);
SetLength(Komp,Buf);
GetUserName(PChar(Log),Buf);
GetComputerName(PChar(Komp),Buf);
// bez tej "głupiej" zamiany zamiany byby problem z długością
zm:=PChar(Log);
Log:=zm;
zm:=PChar(Komp);
Komp:=zm;
ShowMessage('Użytkownik: ['+Log+']'+#13+'Nazwa Komputera: ['+Komp+']');
//---------------------
767
a jak wygladała procedura dekompresji w ekspercie ?
bo dąłem płytke koledze i mi ją zniszczył :(( :mad: , jak byście mogli to wrzućie tu jąalbo ten plik pdf z nia na rapidshare.de. bede wam bardzo wdzięczny. :)
Ale Ci archeolog... Pobijasz powoli rekordy...
Ale z drugej strony, za zalozenie tematu tez bys pewnie dostal baty...
Z tego co ja pamietam to chyba byly jakies demka w paczce, wiec moze tam poszukaj.
A jak nie to na stronie powinny byc.
Google - tam na pewno znajdziesz.
ale ja chce procedurke dekompresji dla menagera z eksperta bo mój dział na tej samej zasadzie. dlatego prosze o ten plik.
Podaj w jakim numerze eksperta /albo w jakich numerach, bo nowych juz nie mam, tylko starsze/ to bylo, bo mi sie szukac nie chce. :P
Wtedy Ci wysle.
to było w Ekspercie 4/2003 sierpień-wrzesień. na płycie w pdf jak dobrze pamiętam :)
Wrzucilem cala paczke z plyty, wszystko tam masz.
http://www.yousendit...DBF56D6518FF212
super jesteś wielki ! :)
tego własnie szukałem. jeszcze raz wielkie dzięki.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
cytat:Edi22 napisał:
Czy za pomocą komponentu ZipForge można kompresować całe katalogi? Jeżeli tak to jak można to zrobić?
Nie wiem czy nie ma gotowej proceduru, ale jak nie ma to trzeba pokombinować z findfirst, findnext
----
m@il: ali88@tlen.pl
GG: 2083160
to jestprocdura pakujaca -dziala dobrze
procedure TForm1.Button1Click(Sender: TObject);
begin
ZipForge1.FileName := 'c:spakowany.zip' ;
ZipForge1.OpenArchive(fmCreate);
ZipForge1.BaseDir := 'C:Documents';
ZipForge1.AddFiles('*.*');
ZipForge1.CloseArchive;
end;
A jak to rozpakowac
Kombinowalem jak poniżej ale bez skutku
Prosze o pomoc jesli wykombinujesz -- dalem pytani na forum
procedure TForm1.Button2Click(Sender: TObject);
begin
Zipforge1,OpenArchive;
ZipForge1.FileName := 'c:spakowany.zip' ;
ZipForge1.BaseDir := 'C:Do_tego_katalogu';
ZipForge1.{Extract} {mysl ze tu jest problem}
ZipForge1.ClosArchive;
end;
JESZCZE RAZ JA
PRZY ROZPAKOWANIU NALEZY WPISAC ZIPFORGE1.EXTRACT(*.*);
TAM GDZIE OSTATNIO SIEE ZATRTZYMAŁEM
a KATALOG POKUJESZ POPROSTU KONCZC NA NIM WPIS DO ZIFORGE1.BASEDIR:='C:TENKATALOG';
mOŻNA TEZ PAKOWAĆ DO PLIKU PLIK.EXE Z HASŁEM
TRZEBA PODAĆ RZSZEZENIE EXE W ZIPFORGE1.FILENAME:='C:TEGOTO.EXE.
A JESZCZE CIEKAWIEJ BEDZIE
GDY SIE SPAKUJE HASLEM
ZIPFORGE1.PASSWORD:='ALAMAKOTA';
UZYWAJAC TEGO PREZD ZIPFORGE1.ADD(*.*);
JESTEDM CIEKAWY CZY DA SIE ZLAMAC TAKI SPAKOWANY PLIK PRZEZ HASŁO
OCZYWISCIE NIE PRZEZ ZIPFORGE (GDZIE PODAJE SIE HASLO)
JESTEM TYM ZAINTERESOWANY
JESLI BEDZIESZ WIEDZIAL UMIESC DO TEGO KOMENTARZ
Ok wielkie dzięki. A co do złamania takiego hasła to są odpowiednie programy. Nie pamiętam gdzie, ale gdzieś już je widziałem. Dam znać jak znajde. A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany?? Bo np. chce spakowac jakis katalog który jest w C:Documents and SettingsUseritd... I nie wiem jaki jest ten User. Czy mozna to jakos sprawdzić, potem zapisać to w zmiennej i podstwić do ścieżki ??
user:=....;
$katalog:='C:Documents and Settings' + user + 'reszta';
ZipForge1.BaseDir := katalog
EXTRACTFILEPATH(APPLICATION.EXENAME) - to jest sciezka aplikacji
czyli program dziala w c:costam to wlasnie mozna wyciagnac ta funkcja -- ale aplikacje z dephi
Popatrze moze cos znajde na usera (chyba dalo by sie to wyciagnac z widowsa)
wiem ze mozna komendy do uruchomienia notatnika pezez podanie sciezek dostepu moze i sie da dotrzec do usera (jak mi sie uda znaleśc odpowiem)
Interesuje mnie cos takiego. Kopiowanie ale nie przez FO_COpy to co przerabialsmy ani przez copyfie('skad','dokad',false) ale cos przez ip tak aby nie udostepniac zasobow czyli jakis connect ---
pewnie sa jakies komponety do tego ale sie jeszcze nie wgeryzlem tak daleko moze cos wiesz --- odpowiedz tu albo na skrzynke
moj adres antikiusz@poczta.onet.pl
cytat:Edi22 napisał:
A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany??
Jest jakaś funkcja systemowa do tego. W tej chwili nie pamiętam jaka, ale na jutro spróbuje sie dowiedzieć :D
----
m@il: ali88@tlen.pl
GG: 2083160
Wroce do zipforge
czy do zastosowan komercyjnych jest darmowy zipforge
cytat:Edi22 napisał:
A mam jeszcze jedne problem czy można w Win XP dowiedzieć się jaki user jest zalogowany??
//-------Testowane jedynie na WinXP-------
var
Log: String; //nazwa Użytkownika
Komp: String; //nazwa Komputera
zm: Pchar; //zmienna by obciąć Buf do rzeczywistego rozmiaru
Buf: DWORD; //długość
begin
Buf:=767;
SetLength(Log,Buf);
SetLength(Komp,Buf);
GetUserName(PChar(Log),Buf);
GetComputerName(PChar(Komp),Buf);
// bez tej "głupiej" zamiany zamiany byby problem z długością
zm:=PChar(Log);
Log:=zm;
zm:=PChar(Komp);
Komp:=zm;
ShowMessage('Użytkownik: ['+Log+']'+#13+'Nazwa Komputera: ['+Komp+']');
//---------------------
767
a jak wygladała procedura dekompresji w ekspercie ?
bo dąłem płytke koledze i mi ją zniszczył :(( :mad: , jak byście mogli to wrzućie tu jąalbo ten plik pdf z nia na rapidshare.de. bede wam bardzo wdzięczny. :)
Ale Ci archeolog... Pobijasz powoli rekordy...
Ale z drugej strony, za zalozenie tematu tez bys pewnie dostal baty...
Z tego co ja pamietam to chyba byly jakies demka w paczce, wiec moze tam poszukaj.
A jak nie to na stronie powinny byc.
Google - tam na pewno znajdziesz.
ale ja chce procedurke dekompresji dla menagera z eksperta bo mój dział na tej samej zasadzie. dlatego prosze o ten plik.
Podaj w jakim numerze eksperta /albo w jakich numerach, bo nowych juz nie mam, tylko starsze/ to bylo, bo mi sie szukac nie chce. :P
Wtedy Ci wysle.
to było w Ekspercie 4/2003 sierpień-wrzesień. na płycie w pdf jak dobrze pamiętam :)
Wrzucilem cala paczke z plyty, wszystko tam masz.
http://www.yousendit...DBF56D6518FF212
super jesteś wielki ! :)
tego własnie szukałem. jeszcze raz wielkie dzięki.