home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.pascal.borland      Borland Pascal was actually pretty neat      2,978 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 2,668 of 2,978   
   Marco van de Voort to sasa.bistrovic@ck.t-com.hr   
   Re: SetEnvironmentVariable PROBLEM   
   22 Jul 08 15:11:02   
   
   From: marcov@stack.nl   
      
   On 2008-07-22, Saša Bistrović  wrote:   
   > SetEnvironmentVariable PROBLEM   
      
   First, this is the wrong group for Delphi problems, but   
      
   > How to get in SHOWMESSAGE dialog box CHAR 'A' ?   
      
   showmessage('A');   
      
   (or specify better what you want).   
      
   > ---->>>Project1.DPR BEGIN---->>>   
   > program Project1;   
   >   
   > uses   
   >   SysUtils, Dialogs, Math, Windows;   
   >   
   > var I:integer;   
   >   
   > begin   
   > I:=FileCREATE('DATA.TXT');   
   > FileWrite(I,'DATA.TXT',Length('DATA.TXT'));   
   > FileSeek(I,1,1);   
   > FileRead(I,PChar(SetEnvironmentVariable(PChar('DATA'),nil))^,1);   
      
   What is this supposed to do? Setenvironmentvariable returns a bool.   
      
   var c:char;   
      
   fileread(i,c);   
   showmessage(c);   
      
   What are you trying to do?   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca