12 replies to this topic

[theteo]

Me disseram que funciona

//Nome do Computador
function TForm1.NomeComputador : String; //--> Declare Registry no uses da unit
var
lpBuffer : PChar;
nSize : DWord;
const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;
begin
nSize := Buff_Size;
lpBuffer := StrAlloc(Buff_Size);
GetComputerName(lpBuffer,nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;

Como retorno isso ai em uma variável ??????

[Frankozus]

Ola Pessoal, Bom Dia

Meu nome e Frankozus, aqui no forum estou a procura de um web com conhecimento em Javascript para fazer alterações em dois sites que eu tenho, poderiam me indicar alguem ou me contatar pelo email: frankozus@gmail.com.

Edição feita por: Frankozus, 24/09/2008, 10:27.

[JavaTeam]

Me disseram que funciona
QUOTE
//Nome do Computador
function TForm1.NomeComputador : String; //--> Declare Registry no uses da unit
var
lpBuffer : PChar;
nSize : DWord;
const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;
begin
nSize := Buff_Size;
lpBuffer := StrAlloc(Buff_Size);
GetComputerName(lpBuffer,nSize);

StrDispose(lpBuffer);
end;

Como retorno isso ai em uma variável ??????

Primeiro .... postou isso na área errada ! isso não é java .....

Segundo , como assim retornar isso em uma variável ??? pelo o que dá pra ver no código , essa linha aqui :

GetComputerName(lpBuffer,nSize);

ele pega o nome do PC .. e coloca na variável Result que nem foi declarada .. ( O_O )

Result := String(lpBuffer);

[LarPhozyHah]

Macrobid Free Doctor Consultation cialis Priligy Senza Ricetta Medica
Therapie Levitra Medicament Cialis 10 Lastlonger
Buying 60 Mg Orlistat Outside The Us <a href=http://cialtobuy.com>cialis buy online</a> Generic Viagra Vs Brand Viagra Reviews
Farmacias Kamagra cialis Order Valtrex With No Prescription
Viagra Afecta Espermatozoides
Dapoxetine Hydrochloride <a href=http://cialtobuy.com>buy cialis</a> Kamagra Next Day Uk
At buy cialis Real Generic Doryx Internet Over Night Fedex Pas Cher Priligy Dapoxetine Side Effects Cephalexin Dogs Amoxicillin Get High viagra cialis Propecia Serenoa Repens

[LarPhozyHah]

Proscar Avodart Sale Viagra Alle Erbe Naturale viagra online pharmacy Cheapeast Ordering Finasteride

[xapedlok]

Discounts! women's best product reviews Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked! If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included). READ MORE Hot sale retro star and skull pattern denim bow tie for men ( 3.38 $)OUKITEL K6000 4G Phablet-139.73 $Oukitel K6000 Pro 4G Phablet-222.39 $For film iphone 6s 7 Tempered Glass film on the iphone 6s Screen Protector Toughened Protective Glass on the For iphone 6 glass ( 0.85 $)Free Shipping 2016 Women Fashion Double Zippers Wallets Ultra-large Capacity Lady Luxury Purses Clutch Card Holders J422 ( 4.99 $)8a malaysian virgin hair with closure malaysian body wave with closure ombre 3 bundles blonde human hair weave with lace closure ( 128.56 $)12Storeez - Women's Clothes | Online ShoppingAuxmart h1h4h7h11h1390059006 cob 72w led car headlight bulbs 6500k 8000lm headlight all-in-one hi-losingle beam fog lamps ( 26.39 $)Ophir 3pcs airbrush spray gun with pro air tank compressor for model hobby body paint nail art equipment _ac090+004a+071+070 ( 121.25 $)1PC Flash Dragonfly Propeller ( $0.75 )Elough usb type c usb 3 1 otg for xiaomi mi4c macbook nexus 5x 6p usb ( 1.59 $)New car dvr camera mirror dual lens rearview mirror full hd 1080p recorder video registrar camcorder black box dash cam ( 108.96 $)Car Windscreen Dashboard Magnetic Mount Holder Stand ( $5.23 )7a glueless silk top full lace wigs peruvian virgin hair silk base lace front human hair wigs with baby hair 4x4 silk base wig ( 142.76 $)28 inch Classic striped patch Trolley suitcaserolling spinner wheels Pull Rod luggageWomen Girl traveller case boarding bag ( 161.11 $)
Discounts! 2017 best makeup products


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
HIZERO Multifunctional Bionic Floor Cleaner-399.00 $
European Authentic Fine BEADS jewelry silver plated owl beads pinkwhite crystal Charm bracelets for women Original DIY Jewelry ( 4.30 $)
CST-09 DIY 3D VR Glasses-15.39 $
Maan Na Kari (Full Audio Song) / Jashan Singh / Goldboy / Nirmaan / Latest Song 2017 / T-Series
Stylish heart shape valentine's day gift luminous letters embellished pillow ( 15.92 $)
Lanvera genuine leather women purse wallets female short wallet for credit card ladies small wallets clutch portefeuille femme ( 38.90 $)
1pc cat eye strong magnet slice 3d effect magnetic stick for uv gel polish manicure nail ( 1.79 $)
wireless wifi outdoor waterproof camera + indoor bell video doorphone intercom doorbell for cell phone ( 118.43 $)
Mihels, Stefan
CHUWI Hi10 Pro 2 in 1 Ultrabook Tablet PC-210.89 $
7a virgin mongolian afro kinky curly hair 3 pcslot, cheap afro kinky human hair rosa hair products curly virgin hair bundles ( 80.44 $)
1 piece black and dark grey color electrical juction aluminum box for extruded aluminum rack enclosures 395x271x129.5mm ( 105.56 $)
New arrive mens shorts surf board shorts summer sport beach homme bermuda short pants quick dry silver boardshorts 2016 new ( 16.79 $)
1920X1080P FHD Screen 8GB+750GB Windows 10 Ultrathin Laptop Notbook Computer Quad Core Up to 2.42 GHz Fast Run for office ( 309.00 $)
Winter Hat Scarf Men Windproof Thick Ski Mask Warm Cotton Head Scarves Fishing Cycling Headgear Outdoor Camping Hiking Equipment ( 4.99 $)



Discounts! best brand for makeup products


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
Shacklewell silver glitter printed suede bootie ( 259.45 $) McQ Alexander McQueen
Indian virgin hair straight 4 pcs 7a unprocessed indian straight virgin hair bundles deal cheap virgin human hair weave bundles ( 43.00 $)
Chrysie black and gold suede and metallic leather slide ( 296.36 $) Charlotte Olympia
IMAN Victor 4G Smartphone-229.99 $
12V Hi-Fi Car Amplifier Subwoofer Music Player Aluminum Car Digital Stereo Amplifier 2 Channel Audio Player CD DVD MP3 Input ( 7.98 $)
CHUWI LapBook 14.1 inch Windows 10 Notebook ( 239.99 $)
Le Pen prizvala strani ES otkazatsya ot evro
36 PotsSet Pure Color Decor UV Gel Color For Nail Art Tips Extension Nail Gel French Manicure Brand ( 22.92 $)
Car Radio Mp4 Mp5 Player 1 Din HD With Rearview Camera 4.1 Inch Video Player Bluetooth Remote Control Stereo Aux Fm Usb Sd ( 46.58 $)
Car-styling liquid glass coating rain and water repel nano hydrophobic coating car windshield self cleaner ( 76.00 $)
F16278 flysky fs-it4s 2.4ghz 4ch afhds 2 rc boat car radio system transmitter with touch screen fs it4s better than it4 i4 ( 129.71 $)
Moschino Brown Wool Hat ( 53.40 $)
2pcs h7 light bulbs 3000k halogen h7 12v 55w golden yellow fog factory price car styling ( 2.99 $)
2016 lovers skin sunscreen clothing men women quick fast dry hiking jackets windproof sun uv protection outdoor sport rain coats ( 13.99 $)
8A Queen Hair Products Brazilian Body Wave 3 Bundles Brazilian Virgin Hair Body Wave Cheap Brazilian Hair Weave Bundles 100gpc ( 60.45 $)

[aapedlok]

Discounts! top selling products Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked! If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included). READ MORE Passione - Red, Gold and Black Murano Glass Heart Pendant ( 38.00 $)SAFEBET Multipurpose 5 Liters Water Resistance Rafting Dry Bag Swimming Beach Clothes Storage Bag ( $8.13 )Makeblock Robot LED Matrix Display mBot ( $9.03 )Printing backpacks female women bag 2016 new korean cartoon graffiti girl back bag school bag ladies ( 12.30 $)Cabas petite canvas small tote bag ( 63.65 $) Vanessa BrunoFrida - Murano Glass Bead Necklace ( 69.60 $)New 2016 Belts Men High Quality Canvas Belt Casual belts fast dry Plastic Automatic Buckle 110-140cm ( 4.43 $)Modal adjustable strap built in bra padded self mold bra tank top camisole ( 4.59 $)Teclast X3 Pro 2 in 1 Ultrabook Tablet PC-476.17 $Electric vehicle - the Internet-shop of mobile electric and eco - vehicles in Moscow with delivery across RussiaYellow Aluminum Case Watch wRubber Strap ( 160.00 $)Ombre brazilian virgin hair straight ombre human hair extensions queen hair products 3 bundles blonde straight brazilian hair ( 55.00 $)Ulefone Paris 4G Smartphone-132.24 $Women's fluffy ultrashort inclined bang human hair wig ( 36.76 $)2017 stainless steel manual salt pepper mill grinder portable kitchen mill muller home kitchen tool spice ( 4.68 $)
Discounts! cool product design


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
LY MAX 8 4G Phablet-84.99 $
JinKaiRui Infrared Heating Kneading Body Device Electric Neck Shoulder Back Massage Pillow Multifunctional Car Shiatsu Massager ( 50.00 $)
2016 new canvas waterproof travel bag mulitifun ctional out men women luggage men s backpacks bags ( 19.00 $)
Premiya «Emmi» za luchshij dramaticheskij serial
Hot sale 2016 cats printing women handbags shell bag women pu leather messenger bags new arrival women cross-body bags wlhb1116 ( 47.77 $)
Auxmart H4H7H11H1390059006 COB 72W LED Car Headlight Bulb 6500K 8000LM Headlight All-In-One Hi-LoSingle Beam Fog lamps 12v ( 26.39 $)
Galatia Natural Leather Flat Sandal ( 195.00 $)
Jet Set Travel Large Phone Case ( 110.00 $)
1 box steel beads nail studs gold sliver champagne 0 8mm 1 0mm 1 2mm 1 ( 1.99 $)
H Quality Branded Tennis Racket Overgrips Wearable Dry Tenis Overgrip Abrasive Racquets Hand Glue Badminton Thin Type Over grip ( 1.44 $)
Diamond embroidery women's bag velvet luxury handbags women bags designer fashion bolsa feminina women shoulder bags ( 29.99 $)
Albicocca Leather Sandal ( 142.50 $)
Green Clip-On Drop Earrings ( 148.00 $)
Bamoer unique design gold plated mona lisa ring for female wedding with aaa colorful cubic zircon ( 5.82 $)
3 category Flytrap Seed Bonsai Potted Dionaea Muscipula Plant Seed Terrace Garden Carnivorous Plant Seed 1 Package 100 Pieces ( 0.99 $)



Discounts! the best selling products


Products which fall under this return policy can be returned domestically, as long as they are unused and in the original packaging. No questions asked!
If a product that falls under this guarantee is found to be counterfeit, you will get a full refund (shipping costs included).


READ MORE
40 Colors Colourpop Matte Naked Eyeshadow Pallete Professional Lasting Make Up Cosmetics Kyshadow Shades Eye Shadow Set H20 ( 8.39 $)
Lovely funny jdm child boys baby in car on board car sticker for window glass truck ( 2.09 $)
Light blue striped non iron cotton dress shirt ( 47.61 $) Forzieri
5V 3.1A 3 Port EU Wall Home Travel AC Charger Adapter for iPhone6 6s 6 plus 5 4 4S for Samsung for HTC ( 1.49 $)
2016 new guitars 40-3 40 inch high quality acoustic guitar rosewood fingerboard guitarra with guitar strings ( 132.05 $)
Vortice - Turquoise Murano Glass Swirling Heart Sterling Silver Necklace ( 60.00 $)
Hot european large genuine cowhide leather women wallets fashion long female woman wallet ladies purses purse for iphone galaxy ( 30.07 $)
Papaya 2 Orange Pastel Murano Glass Choker ( 58.00 $)
Dogs print silk narrow tie ( 40.44 $) Laura Biagiotti
To buy the Ivanovo textile in online store with delivery to Russia
UNO R3 Arduino Development Board Microcontroller MEGA328P ATMEGA16U2 Compat ( $8.64 )
Make up organizer bag 22cm x18cm x8cm women men casual travel multi functional cosmetic bag storage ( 3.55 $)
Thick knit british wool mens beanie hat ( 59.91 $) Paul Smith
New Arrival Titanium Steel Couple Ring Fashion Design Ring for Men and Women Popular Jewelry Free Shipping OTR03 ( 2.99 $)
Fashion ombre silver grey big wave synthetic lace front wig glueless long natural blackgray heat resistant hair wigs for women ( 47.00 $)

[Miguceamma]

Buy Revatio Online Comprar Cialis Por Telefono Cephalexin Interaction With Acohol cialis online Cialis Farmacia On Line Propecia Pack Where Can I Buy Levitra In Massachusetts

[RonsisM]

Generic Priligy Buy Acheter Finasteride Ligne cheap cialis Pc100 Tadalis Sx Soft Cephalexin Alternative For Dogs

[RonsisM]

Cialis 20 Mg Paypal viagra Cialis Tadalafil Avis
Amoxicillin 400 Priligy Online Kaufen Ohne Rezept viagra online prescription Precio Viagra 50 Mg Pfizer Ed Pills Comparison
Best Value Cialis generic viagra Prix Du Levitra 10 Minimum Garanti Amoxil By Vbulletin Intitle View Profile Cephalexin Hydrochloride

[LarPhozyHah]

Free Levitra Sample Pack Zoloft Online Pharmacy How To Use Cialis viagra Xenical 120 Mg For Sale
Propecia Hiperprolactinemia Alli Ordering In Canada Mezclar Viagra Y Alcohol cialis price Viagra Oder Levitra

[RonsisM]

Sildenafil From China Sildenafil buy levitra professional Levitra Nexium Buy Deltasone Without Prescription
Cialis Effetti Indesiderati viagra prescription Azithromycin 500mg Dosage For Chlamydia Is Expired Amoxicillin Dangerous
Cialis 10 Mg Online Amoxil Dosage For Children Cialis Efectos Secundarios Fotos viagra Viagra Naturale Viagra Achat Pharmacie
Where Can I Buy Acticin Levitra Wirkt Nicht generic cialis General Pharmacy Levitra
Viagra Super Active For Sale cialis price Keflex Inc Cialis Y El Alcohol

[LarPhozyHah]

Levitra 10 Mg Caratteristiche Cialis Oder Generika Generic Tadalafil 40 Mg viagra Cialis Effets Posologie Propecia For Og Efter Cephalexin For Dogs Give Gas
Fast Viagra Delivery buy viagra online Lowest Price Viagra Cialis 60 Mg Prices Levitra 20 Mg Effetti Collaterali
Order Fluoxetine Online No Prescription Nolvadex Vente Libre Amoxicillin Espanol buy levitra Buy Xenical 120 Mg Uk Colchicine Online Canada Where Can I Get Viagra Super Active