Опять обои
AnsiString DirData ;
……
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TSearchRec sr;
int iAttributes = 0;
AnsiString S2=DirData+"*.*";
iAttributes |= faAnyFile;
if (FindFirst(S2, iAttributes, sr) == 0)
{
do
{
if ((sr.Attr & iAttributes) == sr.Attr)
{
// папытка сделать паузу for (int ms=0; ms<1000000; ms++)
// папытка сделать паузу {
// папытка сделать паузу }
AnsiString S1=DirData+sr.Name;
//ListBox1->Items->Add(S1);
SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, S1.c_str(), 0);
}
}while (FindNext(sr) == 0);
FindClose(sr);
}
}
1 хотелось бы запихать в этот код нормальный таймер
2 при нажатии на кнопке чтоб все элементы становились не доступны
3 чтоб кнопка оставалась бы чувствительна к нажатию, и мгновенно останавливала все процессы
4 почему-то на рабочий стол вставляются только *.bmp хотелось бы также увидеть *.jpg
ты бы хоть задачу сперва описал - что надо-то, а то сразу код.
t1ime = StrToInt(Edit1->Text
t1ime = ((t1ime * 60)*60)*10;
Timer1->Interval = t1ime;
Timer1->Enabled=true;
Цитата:
Originally posted by ФДУЧ
Cитуация такова
1 хотелось бы запихать в этот код нормальный таймер
2 при нажатии на кнопке чтоб все элементы становились не доступны
3 чтоб кнопка оставалась бы чувствительна к нажатию, и мгновенно останавливала все процессы
4 почему-то на рабочий стол вставляются только *.bmp хотелось бы также увидеть *.jpg
Cитуация такова
1 хотелось бы запихать в этот код нормальный таймер
2 при нажатии на кнопке чтоб все элементы становились не доступны
3 чтоб кнопка оставалась бы чувствительна к нажатию, и мгновенно останавливала все процессы
4 почему-то на рабочий стол вставляются только *.bmp хотелось бы также увидеть *.jpg
1. В чем проблем?? Ctrl-Ins, Shift-Ins отменили ???
2. Button1->Enabled=false; сразу после срабатывания таймера и Button1->Enabled=true; после смены обоины.
3. Что значит все процессы ?? И систему тоже ?? Или только свои процессы ?? Или все такие речь идет о потоках? Если свои потоки, то самый правильные вариант - это флаги.
4. Только BMP. Конвертировать надо.
поиска файлов и вставления на раб.стол
===================================
[COLOR=red]Не занимайся оверпостингом.[/COLOR]