FlamingClaw

just a question B.I.O.S password or operating system password?

long ago,you asked the community for a lotto games,there I send a source for the generating numbers,and one number exists only once.Try to use your head a bit,the mechanism was written.Of course that is another question that how can you read a file to array that contains records?,. You need …

I think the down link solve your problem [URL="http://www.processlibrary.com/directory/files/autochk/"]http://www.processlibrary.com/directory/files/autochk/[/URL]

of course,update your computer :D

Is it helps? [URL="http://www.petri.co.il/configure_outlook_xp_2003_2007_to_prompt_for_a_password.htm"]http://www.petri.co.il/configure_outlook_xp_2003_2007_to_prompt_for_a_password.htm[/URL]

If you want to learn more then [URL="http://en.wikipedia.org/wiki/BIOS"]http://en.wikipedia.org/wiki/BIOS[/URL] :D

Getting used to using your keyboard exclusively and leaving your mouse behind will make you much more efficient at performing any task on any Windows system. I use the following keyboard shortcuts every day: Windows key + R = Run menu This is usually followed by: cmd = Command Prompt …

place to start [URL="http://www.pcguide.com/intro/works/exampl.htm"]http://www.pcguide.com/intro/works/exampl.htm[/URL] Hope this helps a bit :D

read this [URL="http://labnol.blogspot.com/2007/08/how-to-view-adobe-pdf-files-on-your.html"]http://labnol.blogspot.com/2007/08/how-to-view-adobe-pdf-files-on-your.html[/URL]

[QUOTE=junior_jie;845040] Then, one day, put simply, after the windows XP logo appears, my co-worker's PC hangs and shows nothing but a black screen. (Ctrl+Alt+Del won't work). [/QUOTE] If you jump in safe mode and search a file named [b]boot.ini[/b] do you see as follows? :idea: [icode] [boot loader] timeout=30 default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS …

If you want to decode you can find the decoder here [URL="http://www.gridinsoft.com/chm.php"]http://www.gridinsoft.com/chm.php[/URL] Or if you want an 'AddOn' ,here you can find to the firefox [URL="https://addons.mozilla.org/en-US/firefox/addon/3235"]https://addons.mozilla.org/en-US/firefox/addon/3235[/URL]

and if your xp set on auto update then this will download the Sp3 and ask you what to do,so my opinion Sp3 too.And do not affraid it won't harm your programs,just refresh and fix some in the windows' stability.No fear!

Look at this page [URL="http://www.kellys-korner-xp.com/xp_haldll_missing.htm"]http://www.kellys-korner-xp.com/xp_haldll_missing.htm[/URL]

wake up the restore partition. If you have got restore partition then when you jump in the BIOS you need set that it will be the first boot device...and restart your pc..I think that it will automatically install :)

You're right 'jsosnowski',big eating :).But do not worry 'turbomen'... First thing that you have to do is thinking of the algorithm of the main program,a bit more than you did it last time.And what do you want?To write these data to a text file,and read these data back to an …

example: edit box ->Object Inspector->Properties->PasswordChar :) [code=delphi] Edit1.PasswordChar:=#42; {*} {or} Edit1.PasswordChar:=#35; {#} {or} Edit1.PasswordChar:='*'; {or} Edit1.PasswordChar:='x'; { Use the PasswordChar property to create an edit control that displays a special character in place of any entered text. If PasswordChar is set to the null character (ANSI character zero), the edit …

There can other problem too.Power off your pc.Try to take off the battery from the motherboard.....wait some minute....take in...and power on your pc..... Else Power off your pc, there is a 'jumper' around the battery it was set to 1-2 take off the jumper and put it through 2-3...wait some …

Hi "1shadow1" :) What about the delphi help?If you search you find. Use the TIniFile keyword Unit IniFiles Description TIniFile enables handling the storage and retrieval of application-specific information and settings in a standard INI file. The INI file text format is a standard introduced in Windows 3.x for storing …

Hi all I have an idea for this question :) [code=pascal] Program Solution01; Uses Crt; Label start,good,finish,timeout; Var i:Byte; {0..255} U,P:String; Begin {main} P:='apple'; start: i:=10; Repeat WriteLn('REMAINING TIME: ',i); Write('GIVE ME THE PASSWORD: '); Dec(i);{decrease value of 'i' by 1} Delay(1000); {waiting 1000 millisec} ClrScr; If (i=0) Then Begin …

I don't know that working with Vista or not...try if you want [URL="http://www.ezbsystems.com/easyboot/index.html"]http://www.ezbsystems.com/easyboot/index.html[/URL]

And what about 'installing windows xp from usb' ? [URL="http://wiki.eeeuser.com/windowsxpusb"]http://wiki.eeeuser.com/windowsxpusb[/URL]

First backup your important files from 40gb If you put in the xp cd and format the whole hard disk ,and create the two partition again? insert xp disk,restart your computer,catch the bios(generally Del button) Bios->First Boot Device->Cd Dvd->Save changes.Hold the xp cd in the cd drive.Format every partitions with …

Fixed version.Good luck :) [code=delphi] Program Solution; {$APPTYPE CONSOLE} Uses SysUtils; Type //new type TStudent = Record //with only one field RName:String[15]; End; Var Name:array[0..3]of TStudent; inputname:string[15]; n:integer; Begin {the beginning of the main program} {fill the array with names} Name[0].RName:='Fred'; //dont forget that this is array of TStudent Name[1].RName:='Jack'; …

Here is the fixed version of your program :) [code=delphi] (* Dear Sir / Madam, The following is the game of Rock, Paper, Scissors. But I don't know why computer is always choose Rock. My Answer:- *) Program RPS5; {$APPTYPE CONSOLE} Uses SysUtils; var Computer : integer; Choice, Move : …

Hi all What if we counts the divisors?If more or less as 2 then Not prime else if exactly 2 then prime...(only 1 and itself) Like in pascal there is a function [b]Mod[/b] always return the reminder(s), and if the function returns 0 the the counter variable increasing by 1.In …

Good luck,guy :) [code=delphi] program commission_rate; {$APPTYPE CONSOLE} uses SysUtils; Var CoRate,ItSold,Prc:Integer; (*this is our little function that will calculate the results*) Function Something(CommissionRate,ItemsSold,Price:Integer):Real; Begin Something:=((Price/100)*CommissionRate)*ItemsSold; End; Begin {main} {gathering data} Write('Give me the commission rate,only numbers: '); ReadLn(CoRate); Write('Now,give me the price of the item,only numbers: '); ReadLn(Prc); Write('And …

[code=delphi] if (condition true)then Do something; {if you want to an 'else' part too then,do not put semi-colon} if (condition true)then Do something {do not here} Else Do anything;{Here} Because the semicolon at the end of 'if statement' is the sort version of 'If' {or the Begin..end;} { if it …

What do you think? :) [code=pascal] { Question "Play it for three times and we can get the final result." } Program Solution01; Var number,guess,i,counter:Integer; Begin {main} Randomize; counter:=0; For i:=1 To 3 Do Begin {three times} number:=1+Random(3);{in every round,random number between 1 and 3} WriteLn('---------------------------------'); WriteLn(i,'. Welcome to the …

[code=pascal] { Question lotto game,one number only once,6 numbers,between 1..40! } Program Solution01; Var Temp,i,j:Integer; Lotto:Array[1..6]Of Integer; H:Set of Byte; Begin Randomize; {try to fill with random numbers} H:=[]; {empty} For i:= 1 To 6 Do Begin Lotto[i]:=1+Random(40);{1..40} If (Lotto[i] In H) Then Begin i:=i-1; End Else Begin H:=H+[Lotto[i]]; End; …

Example? :) [code=pascal] { Question The menu opions are: 1 Enter a new stock item 2 Delete a stock item 3 Update current item's details 4 Pint reports on stock status 5 Exit } Program Solution01; Uses Crt; Var User_Choice:Integer; {the procedures} Procedure NewStock; Begin WriteLn('1 pressed,entering a new stock …

Dos Error 2 :File not found.When calling 'Reset','Append',Rename or 'Erase',the file assigned by the file-variable not exist or its name is invalid

[CODE=pascal] Program increment_for; Uses Crt; Var i:Byte; Begin ClrScr; For i:=0 To 100 Do Begin If i>=100 Then Break; Inc(i,20); {increment i with 20} Write(i, ' '); Dec(i); {decrement i with 1} End; Repeat Until KeyPressed; End. [/CODE] In the turbo pascal there is a function called INC(number,increment) and I …

writeln ('Your age in days is ', days,' ,'); when you write the argument to the 'writeln' you need to write it carefully.If you want to show proposition,or simple words you need to use delimiter [code= pascal] WriteLn('Hello World!');{shows these chars to the screen} {but if you want to show …

Hi [b]turbomen[/b]! I have an idea in [b]pascal[/b] :) [code=pascal] { To design a program that works out the powers of numbers. For example 3^5 = 3*3*3*3*3 = 243 2^3 = 2*2*2 = 8 } Program Program01; Uses Crt; Var i:Byte; a,b,c:LongInt; word01:String[1];{it can be char too} Begin {Main} word01:='*'; …

[code=pascal] { I need to write a program that asks a user for their new password, to check that they have entered it correctly they must verify it by entering it again. If the two passwords matach then you accept the change and tell the user that they have been …

:) [code=pascal] Program Program01; Var a,b:Integer;{-32767..32768} Count:Integer; answer:Char;{0..255 characters from the ASCII table} Begin {main} answer:='y'; Count:=0; While (answer = 'y') Do Begin Write('Please enter a number: '); ReadLn(a); Write('Please enter another number: '); ReadLn(b); If (a>b) Then Begin WriteLn(a,' is greater than ', b); End;{if a>b} If (a=b) Then …

Hi I wrote a solution for your problem in [b]Pascal[/b] [code=pascal] {Question: A positive integer is entered from the keyboard. If it's even, all even integers from 2 up to and includng the entered integer are displayed. If odd, all odd integers from 1 up to and including the entered …

how many times you want to run this procedure?

[QUOTE=anandkrishnantc;830753]I want to display a multiline text with certain font size. How to determine the font size in windows? How to convert it into point size? [/QUOTE] If we talking about pascal then you have to read about [b]Graph Unit[/b].....'Cause the answer is there.... [code=pascal]{ -=GetTextSettings (procedure) (Graph unit)=- Gets …

I worked it out :) [code=pascal] Program Program01; Uses Crt; Const Min=1990; Max=2050; Var Year:Array[Min..Max]Of Word; {0..65535} LeapYear:Array[Min..Max]Of Word; i,j:Word; {Main} Begin {fill the array with years} For i:=Min To Max Do Year[i]:=i; j:=Min; WriteLn('Leap Years:'); For i:=Min To Max Do Begin If (Year[i] Mod 4 = 0) Or (Year[i] …

I wrote a program that demonstrate your problem :) [code=pascal] { Question: A letter of the alphabet is to be input from the keyboard, and a message output as to whether it is upper or lowercase. The user is allowed to repeatedly input letters if they wish. Data entry is …

I'm not good in delphi...but I want to help you I looked for you problem on the web,and there was a good idea for your problem.They say:Try to convert that string into number.The StrToIntDef takes an extra argument that is returned, if the string could not be converted to int …

[code=pascal] If (you ask something) And (the answer was good) Then Write('Don''t forget to click the ''Mark As Solved''') Else Write('Notify the others that your problem is not resolved'); {got it?} {head or tail game....?} [/code]

I have a procedure just made .... :) [code=pascal] Program Program01; Uses Crt; Procedure ExitOrNot; Var C:Char; Begin WriteLn('Are sure you want to exit?'); Write('Enter to quit or Esc to continue'); C:=ReadKey; WriteLn; Case (C) Of #13:Halt; #27:Write('We are going back...'); End; End; Begin {main} {call our procedure...} ExitOrNot; ReadKey; …

Delphi Or Pascal this is the question...?....

Put that string in a variable. [code=pascal] var a:String; {in pascal,strings can be handle as array} {example} a:= 'Hello'; a[0]:= 5; {this is a number of chars,here:5} a[1]:='H'; a[2]:='e'; a[3]:='l'; a[4]:='l'; a[5]:='o'; [/code]

I have an idea: [code=pascal] If (Points >= 15) And (Points < 20) Then WriteLn('Nice!'); [/code] I hope that you know that this gives true value back if both of condition are true...and the answer was good then click 'Solved'..

I want to ask the boss,what if a thread has solved by me but the guy who's asking,just said:"Thanx I got it"..... and didn't mark that "Solved".. What can be do?

I have an idea,see it :) [code=pascal] Program coins; Uses crt; Var pick,c:Char; {from ASCII characters} Head,Tail,Flip:Byte; {0..255} Begin Head:=0; Tail:=1; Repeat Write ('choose the outcome of the toss of the coin H or T: '); ReadLn (pick); Case (pick) of 'H','h':Begin WriteLn('You choose: Head: ',Head); Randomize; {shuffling..} Flip:=Random(2); {generate} …

Missing command.!.. :) [code=pascal] {used units} Uses Crt;{this module is missing from your program} {and before main 'End.' Write a simple command} {like ReadKey; or ReadLn; and then you will see} {that: } {'writeln('Continuation text');'} {'cause I've seen} [/code]